怎么能实现Spacemacs 打开 Markdown 文件 进入 Markdown-mode 设置自动折叠 ##级别的标题

怎么能实现Spacemacs 打开 Markdown 文件 进入 Markdonw-mode时 设置自动折叠
## 级别的标题

;; 不知道填什么
(add-hook 'markdown-mode
          (lambda ()

            )
          )

(add-hook 'markdown-mode-hook
          (lambda ()
            (goto-line 1)                           ;; 保证在第一行
            (while (re-search-forward "##+ " nil t) ;; 正则匹配二级标题或者更多
                                                    ;; 级的标题。因为 markdown
                                                    ;; 语法标题后面会有一个空格
              (outline-hide-entry)                  ;; 折叠
              (forward-line 1))))                   ;; 跳到下一行,避免死循环在当前行

1赞