random936/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Made jm/dt-format-link document relative

Browse Source
This commit is contained in:
Random936 2024-01-23 21:30:45 -08:00
parent eab64d3274
commit 8a9c925467
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
.emacs.d/functions.org
View File

@ -34,10 +34,14 @@ These functions are for my org roam daily capture template.
(defun jm/dt-format-link (prefix) (defun jm/dt-format-link (prefix)
(let ((item-name (org-entry-get nil "ITEM")) (let ((item-name (org-entry-get nil "ITEM"))
(item-id (or (org-entry-get nil "ID") (item-id (org-entry-get nil "ID"))
(car (org-property-values "ID"))))) (doc-id (car (org-property-values "ID")))
(when (stringp item-id) (doc-title (org-get-title)))
(format "%s [[id:%s][%s]]" prefix item-id item-name)))) (cond ((stringp item-id)
(format "%s [[id:%s][%s]]" prefix item-id item-name))
((and (stringp doc-id) (stringp doc-title))
(format "%s [[id:%s][%s - %s]]" prefix doc-id doc-title item-name))
(nil (error "jm/dt-format-link: couldn't find a valid id")))))
#+end_src #+end_src
** Queries ** Queries