6fce87bd06
Code folding commands will now obey outline headers (if outline-minor-mode is on and in outline-mode).
38 lines
1.7 KiB
EmacsLisp
38 lines
1.7 KiB
EmacsLisp
;;; emacs/hideshow/config.el -*- lexical-binding: t; -*-
|
|
|
|
(after! hideshow ; built-in
|
|
(setq hs-hide-comments-when-hiding-all nil
|
|
;; Nicer code-folding overlays (with fringe indicators)
|
|
hs-set-up-overlay #'+hideshow-set-up-overlay)
|
|
|
|
;; extra folding support for more languages
|
|
(unless (assq 't hs-special-modes-alist)
|
|
(setq hs-special-modes-alist
|
|
(append
|
|
'((vimrc-mode "{{{" "}}}" "\"")
|
|
(yaml-mode "\\s-*\\_<\\(?:[^:]+\\)\\_>"
|
|
""
|
|
"#"
|
|
+hideshow-forward-block-by-indent nil)
|
|
(haml-mode "[#.%]" "\n" "/" +hideshow-haml-forward-sexp nil)
|
|
(ruby-mode "class\\|d\\(?:ef\\|o\\)\\|module\\|[[{]"
|
|
"end\\|[]}]"
|
|
"#\\|=begin"
|
|
ruby-forward-sexp)
|
|
(enh-ruby-mode "class\\|d\\(?:ef\\|o\\)\\|module\\|[[{]"
|
|
"end\\|[]}]"
|
|
"#\\|=begin"
|
|
enh-ruby-forward-sexp nil)
|
|
(matlab-mode "if\\|switch\\|case\\|otherwise\\|while\\|for\\|try\\|catch"
|
|
"end"
|
|
nil (lambda (_arg) (matlab-forward-sexp))))
|
|
hs-special-modes-alist
|
|
'((t))))))
|
|
|
|
|
|
;; Ensure `hs-minor-mode' is active when triggering these commands
|
|
(advice-add #'hs-toggle-hiding :before #'+hideshow*ensure-mode)
|
|
(advice-add #'hs-hide-block :before #'+hideshow*ensure-mode)
|
|
(advice-add #'hs-hide-level :before #'+hideshow*ensure-mode)
|
|
(advice-add #'hs-show-all :before #'+hideshow*ensure-mode)
|
|
(advice-add #'hs-hide-all :before #'+hideshow*ensure-mode)
|