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

Use filter-return for downcase of uuidgen

Browse source
This commit is contained in:
James Ravn 2020-04-07 10:22:05 +01:00
parent f7fa3f3a86
commit dd94bd67ac
No known key found for this signature in database
GPG key ID: 52C372C72159D6EE
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
modules/lang/org/config.el
View file

@ -514,12 +514,12 @@ current workspace (and clean them up)."
(apply old-create-image file-or-data type data-p props))))) (apply old-create-image file-or-data type data-p props)))))
(apply orig-fn args))) (apply orig-fn args)))
(defadvice! +org--fix-inconsistent-uuidgen-case (orig-fn &rest args) (defadvice! +org--fix-inconsistent-uuidgen-case-a (uuid)
"Ensure uuidgen always produces lowercase output regardless of system." "Ensure uuidgen always produces lowercase output regardless of system."
:around #'org-id-new :filter-return #'org-id-new
(if (equal org-id-method 'uuid) (if (eq org-id-method 'uuid)
(downcase (apply orig-fn args)) (downcase uuid)
(apply orig-fn args)))) uuid)))
(defun +org-init-keybinds-h () (defun +org-init-keybinds-h ()