Kaushal Modi
|
ad1b513c08
|
Lower case all Org keywords
Let there be:
#+options:
#+begin_src emacs-lisp
...
#+end_src
.. and so on.
Command used for this lower case conversion:
(defun modi/lower-case-org-keywords ()
"Lower case Org keywords and block identifiers.
Example: \"#+TITLE\" -> \"#+title\"
\"#+BEGIN_EXAMPLE\" -> \"#+begin_example\"
Inspiration:
13424336a6."
(interactive)
(save-excursion
(goto-char (point-min))
(let ((case-fold-search nil)
(count 0))
;; Match examples: "#+FOO ", "#+FOO:", "=#+FOO=", "~#+FOO~",
;; ",#+FOO ", "#+FOO_bar ", "#+FOO<eol>".
(while (re-search-forward "\\(?1:#\\+[A-Z_]+\\(?:_[[:alpha:]]+\\)*\\)\\(?:[ :=~’”]\\|$\\)" nil :noerror)
(setq count (1+ count))
(replace-match (downcase (match-string-no-properties 1)) :fixedcase nil nil 1))
(message "Lower-cased %d matches" count))))
|
8 years ago |
