tec/emacs-config
tec
/
emacs-config
1
0
Fork 0
Code Issues 4 Pull Requests Releases Activity

Org: keyword case conversion, don't touch RESULTS

This commit is contained in:
TEC 2021-03-12 15:53:48 +08:00
parent a9e237a6c9
commit 7985f6e40b
Signed by: tec
GPG Key ID: 779591AFDB81F06C
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
config.org
View File

@ -5277,7 +5277,7 @@ documents and using mixed syntax, I'll whip up a basic transcode-y function.
It likely misses some edge cases, but should mostly work.
#+begin_src emacs-lisp
(defun org-syntax-convert-case-to-lower ()
(defun org-syntax-convert-keyword-case-to-lower ()
"Convert all #+KEYWORDS to #+keywords."
(interactive)
(save-excursion
@ -5285,8 +5285,9 @@ It likely misses some edge cases, but should mostly work.
(let ((count 0)
(case-fold-search nil))
(while (re-search-forward "^[ ]*#\\+[A-Z_]+" nil t)
(replace-match (downcase (match-string 0)) t)
(setq count (1+ count)))
(unless (s-matches-p "RESULTS" (match-string 0))
(replace-match (downcase (match-string 0)) t)
(setq count (1+ count))))
(message "Replaced %d occurances" count))))
#+end_src
**** Extra links