From 8a9c92546730f5a19d711b70fadea19150231f5d Mon Sep 17 00:00:00 2001 From: Random936 Date: Tue, 23 Jan 2024 21:30:45 -0800 Subject: [PATCH] Made jm/dt-format-link document relative --- .emacs.d/functions.org | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/.emacs.d/functions.org b/.emacs.d/functions.org index 74822a7..c8959c7 100644 --- a/.emacs.d/functions.org +++ b/.emacs.d/functions.org @@ -34,10 +34,14 @@ These functions are for my org roam daily capture template. (defun jm/dt-format-link (prefix) (let ((item-name (org-entry-get nil "ITEM")) - (item-id (or (org-entry-get nil "ID") - (car (org-property-values "ID"))))) - (when (stringp item-id) - (format "%s [[id:%s][%s]]" prefix item-id item-name)))) + (item-id (org-entry-get nil "ID")) + (doc-id (car (org-property-values "ID"))) + (doc-title (org-get-title))) + (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 ** Queries