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

docs: use lowercase keywords

Browse source 
As per Org's new defaults, which we're adopting elsewhere, so may as
well adopt it here.
This commit is contained in:
Henrik Lissner 2022-03-28 15:03:21 +02:00
parent 9744946a66
commit e77a45bc22
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
167 changed files with 665 additions and 664 deletions
Download patch file Download diff file Expand all files Collapse all files

35
core/autoload/docs.el
View file

@ -6,23 +6,24 @@
(defun doom--docs-hide-meta-h ()
"Hide all meta or comment lines."
(org-with-wide-buffer
(goto-char (point-min))
(let (case-fold-search)
(while (re-search-forward "^[ \t]*\\#" nil t)
(catch 'abort
(org-flag-region
(line-beginning-position)
(cond ((looking-at "+\\(?:TITLE\\|SUBTITLE\\): +")
(match-end 0))
((looking-at "+\\(?:CREATED\\|SINCE\\|AUTHOR\\|EMAIL\\|DATE\\): +")
(throw 'abort nil))
((or (eq (char-after) ?\s)
(looking-at "+\\(begin\\|end\\)_comment"))
(line-beginning-position 2))
((looking-at "+\\(?:begin\\|end\\)_\\([^ \n]+\\)")
(line-end-position))
((line-beginning-position 2)))
doom-docs-mode t))))))
(goto-char (point-min))
(save-match-data
(let ((case-fold-search t))
(while (re-search-forward "^[ \t]*\\#" nil t)
(catch 'abort
(org-flag-region
(line-beginning-position)
(cond ((looking-at "+\\(?:title\\|subtitle\\): +")
(match-end 0))
((looking-at "+\\(?:created\\|since\\|author\\|email\\|date\\): +")
(throw 'abort nil))
((or (eq (char-after) ?\s)
(looking-at "+\\(begin\\|end\\)_comment"))
(line-beginning-position 2))
((looking-at "+\\(?:begin\\|end\\)_\\([^ \n]+\\)")
(line-end-position))
((line-beginning-position 2)))
doom-docs-mode t)))))))
(defun doom--docs-hide-drawers-h ()
"Hide all property drawers."