phundrak/org-unique-id
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix wrong regex

Browse Source
This commit is contained in:
Lucien Cartier-Tilet 2021-06-15 18:39:23 +02:00
parent 8618a7580a
commit ea91cc015f
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
org-unique-id.el
View File

@ -71,7 +71,7 @@ the variable `org-unique-id-prefix'."
(progn (progn
(require 'message) (require 'message)
(concat "@" (message-make-fqdn)))))) (concat "@" (message-make-fqdn))))))
(concat prefix (car (split-string (concat etime postfix) "-"))))) (concat prefix "-" (car (split-string (concat etime postfix) "-")))))
;;;###autoload ;;;###autoload
(defun org-unique-id-get (&optional pom create prefix) (defun org-unique-id-get (&optional pom create prefix)
@ -90,11 +90,11 @@ CUSTOM_ID of the entry is returned."
(replace-regexp-in-string (replace-regexp-in-string
"[_-][_-]+" "-" "[_-][_-]+" "-"
(replace-regexp-in-string (replace-regexp-in-string
(rx (or alpha num "-" "_")) "[^[:alpha:][:digit:]-_]"
"-" "-"
(if (string= orgpath "") (if (string= orgpath "")
(org-get-heading t t t t) (org-get-heading t t t t)
(concat orgpath "_" (org-get-heading t t t t))))))) (concat orgpath "-" (org-get-heading t t t t)))))))
(id (org-entry-get nil "CUSTOM_ID"))) (id (org-entry-get nil "CUSTOM_ID")))
(cond (cond
((and id ((and id
@ -106,7 +106,6 @@ CUSTOM_ID of the entry is returned."
(buffer-file-name (buffer-base-buffer))) (buffer-file-name (buffer-base-buffer)))
id))))) id)))))
;;;###autoload ;;;###autoload
(defun org-unique-id () (defun org-unique-id ()
"Add a CUSTOM_ID to all headers missing one. "Add a CUSTOM_ID to all headers missing one.