Skip to content

Commit

Permalink
tweak(org): add a way to disable lower case keywords
Browse files Browse the repository at this point in the history
  • Loading branch information
abougouffa committed Jun 1, 2023
1 parent e31ca12 commit 314f1eb
Showing 1 changed file with 8 additions and 1 deletion.
9 changes: 8 additions & 1 deletion modules/extras/me-org-extras.el
Original file line number Diff line number Diff line change
Expand Up @@ -18,6 +18,13 @@
:group 'minemacs-org
:type '(cons natnum natnum))

(defcustom +org-use-lower-case-keywords-and-properties t
"Automatically convert Org keywords and properties to lowercase on save."
:group 'minemacs-org
:type 'boolean)

(put '+org-use-lower-case-keywords-and-properties 'safe-local-variable 'booleanp)

(defvar-local +org-export-to-pdf-main-file nil
"The main (entry point) Org file for a multi-files document.")

Expand Down Expand Up @@ -280,7 +287,7 @@ Example: \"#+TITLE\" -> \"#+title\"
(add-hook
'before-save-hook
(defun +org--lower-case-keywords-and-properties-h ()
(when (derived-mode-p 'org-mode)
(when (and +org-use-lower-case-keywords-and-properties (derived-mode-p 'org-mode))
(+org-lower-case-keywords-and-properties)))))

(defun +org-extras-setup ()
Expand Down

0 comments on commit 314f1eb

Please sign in to comment.