awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix(lib): doom-docs-mode: hiding property drawers

Browse Source 
Includes a minor optimization: reading the current level from an
org-element object, rather than relying on (org-current-level), which
resorts to walking the buffer with regex.
This commit is contained in:
Henrik Lissner
2023-09-11 23:18:51 +02:00
parent c1b0326ce7
commit deb83dc6a9
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/lib/docs.el
View File

@ -239,11 +239,9 @@
(beg (max (point-min) (1- (org-element-property :begin el)))) (beg (max (point-min) (1- (org-element-property :begin el))))
(end (org-element-property :end el)) (end (org-element-property :end el))
((memq (org-element-type el) '(drawer property-drawer)))) ((memq (org-element-type el) '(drawer property-drawer))))
(when (org-current-level) (when (org-element-property-inherited :level el)
(cl-decf end)) (cl-decf end))
(org-fold-core-region beg end doom-docs-mode 'doom-doc-hidden) (org-fold-core-region beg end doom-docs-mode 'doom-doc-hidden))))
(when doom-docs-mode
(org-fold-core-region beg end nil 'org-hide-drawer)))))
;; FIX: If the cursor remains within a newly folded region, that folk will ;; FIX: If the cursor remains within a newly folded region, that folk will
;; come undone, so we move it. ;; come undone, so we move it.
(if pt (goto-char pt)))) (if pt (goto-char pt))))