diff --git a/modules/lang/org/config.el b/modules/lang/org/config.el index e7c2f23fd..c0ed2791c 100644 --- a/modules/lang/org/config.el +++ b/modules/lang/org/config.el @@ -522,7 +522,14 @@ current workspace (and clean them up)." (lambda (file-or-data &optional type data-p &rest props) (let ((type (if (plist-get props :width) type))) (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-a (uuid) + "Ensure uuidgen always produces lowercase output regardless of system." + :filter-return #'org-id-new + (if (eq org-id-method 'uuid) + (downcase uuid) + uuid))) (defun +org-init-keybinds-h ()