emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix(docs): don't hide # lines in src blocks

Browse source 
This would hide shebang lines and comments in languages that use # as a
line comment delimiter.
This commit is contained in:
Henrik Lissner 2022-09-15 21:19:02 +02:00
parent c8099a89ad
commit 451933b2ba
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 15 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

29
lisp/lib/docs.el
View file

@ -148,20 +148,21 @@
(save-match-data (save-match-data
(let ((case-fold-search t)) (let ((case-fold-search t))
(while (re-search-forward "^[ \t]*\\#" nil t) (while (re-search-forward "^[ \t]*\\#" nil t)
(catch 'abort (unless (org-in-src-block-p t)
(org-fold-core-region (catch 'abort
(line-beginning-position) (org-fold-core-region
(cond ((looking-at "+\\(?:title\\|subtitle\\): +") (line-beginning-position)
(match-end 0)) (cond ((looking-at "+\\(?:title\\|subtitle\\): +")
((looking-at "+\\(?:created\\|since\\|author\\|email\\|date\\): +") (match-end 0))
(throw 'abort nil)) ((looking-at "+\\(?:created\\|since\\|author\\|email\\|date\\): +")
((or (eq (char-after) ?\s) (throw 'abort nil))
(looking-at "+\\(begin\\|end\\)_comment")) ((or (eq (char-after) ?\s)
(line-beginning-position 2)) (looking-at "+\\(begin\\|end\\)_comment"))
((looking-at "+\\(?:begin\\|end\\)_\\([^ \n]+\\)") (line-beginning-position 2))
(line-end-position)) ((looking-at "+\\(?:begin\\|end\\)_\\([^ \n]+\\)")
((line-beginning-position 2))) (line-end-position))
doom-docs-mode 'doom-doc-hidden))))))) ((line-beginning-position 2)))
doom-docs-mode 'doom-doc-hidden))))))))
(defun doom-docs--hide-drawers-h () (defun doom-docs--hide-drawers-h ()
"Hide all property drawers." "Hide all property drawers."