From dd94bd67acd7680488d87aaa67f83d1581ce5847 Mon Sep 17 00:00:00 2001 From: James Ravn Date: Tue, 7 Apr 2020 10:22:05 +0100 Subject: [PATCH] Use filter-return for downcase of uuidgen --- modules/lang/org/config.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/modules/lang/org/config.el b/modules/lang/org/config.el index 34f7ae5b1..46f277aff 100644 --- a/modules/lang/org/config.el +++ b/modules/lang/org/config.el @@ -514,12 +514,12 @@ current workspace (and clean them up)." (apply old-create-image file-or-data type data-p props))))) (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." - :around #'org-id-new - (if (equal org-id-method 'uuid) - (downcase (apply orig-fn args)) - (apply orig-fn args)))) + :filter-return #'org-id-new + (if (eq org-id-method 'uuid) + (downcase uuid) + uuid))) (defun +org-init-keybinds-h ()