Emacs の hideshow で全てのブロックを再帰的に隠す関数

recursive-hideshow.el

;;; recursive-hideshow.el


(require 'hideshow)


(defun jiros--hs-hide-all-recursive-work (minp maxp)
  (goto-char minp)
  (when (hs-find-block-beginning)
    (setq minp (1+ (point)))
    (funcall hs-forward-sexp-func 1)
    (setq maxp (1- (point)))
    (goto-char minp))

  (while (and (< (point) maxp)
              (re-search-forward hs-block-start-regexp maxp t))
    (let* ((minp (match-beginning hs-block-start-mdata-select))
           (maxp (save-excursion (goto-char minp) (funcall hs-forward-sexp-func 1) (point))))
      (jiros--hs-hide-all-recursive-work (1+ minp) (1- maxp))
      (goto-char minp)
      (hs-hide-block-at-point t)))
  (goto-char maxp))


(defun jiros-hs-hide-all-recursive ()
  "hide all blocks recursively."
  (interactive)
  (save-excursion
    (jiros--hs-hide-all-recursive-work (point-min) (point-max))
    ))


(provide 'recursive-hideshow)


;; EOF