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

Fix wrong regex

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
(require 'message)
(concat "@" (message-make-fqdn))))))
(concat prefix (car (split-string (concat etime postfix) "-")))))
(concat prefix "-" (car (split-string (concat etime postfix) "-")))))
;;;###autoload
(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
(rx (or alpha num "-" "_"))
"[^[:alpha:][:digit:]-_]"
"-"
(if (string= orgpath "")
(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")))
(cond
((and id
@ -106,7 +106,6 @@ CUSTOM_ID of the entry is returned."
(buffer-file-name (buffer-base-buffer)))
id)))))
;;;###autoload
(defun org-unique-id ()
"Add a CUSTOM_ID to all headers missing one.