jason/emacs.d
1
0
Fork 0
Code Issues 3 Pull requests Projects Releases Packages Wiki Activity

update my/copy-org-id-at-point to remind if there is no valid ID property

Browse source
This commit is contained in:
Jason Tian 2024-06-27 12:10:00 +08:00
parent 2b260c28a5
commit e867c87227
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/init-utils.el
View file

@ -370,9 +370,11 @@ DIRECTORY is the directory where the org files are located."
"Copy the ID property of the heading at point to the kill-ring."
(interactive)
(let ((id (org-entry-get nil "ID")))
(when id
(kill-new id)
(message "Copied ID: %s" id))))
(if id
(progn
(kill-new id)
(message "Copied ID: %s" id))
(message "No ID property in the heading at point."))))
(defun my-get-heading-from-org-id-db (org-id)
"Retrieve the heading title associated with an Org ID from the