diff --git a/org-roam-db.el b/org-roam-db.el index 2b5381c..954cc3f 100644 --- a/org-roam-db.el +++ b/org-roam-db.el @@ -278,8 +278,9 @@ first encapsulating ID." (org-with-point-at 1 (when-let ((id (org-id-get))) (let ((file (buffer-file-name (buffer-base-buffer))) - (title (cadr (assoc "TITLE" (org-collect-keywords '("title")) - #'string-equal))) + (title (or (cadr (assoc "TITLE" (org-collect-keywords '("title")) + #'string-equal)) + (file-relative-name file org-roam-directory))) (pos (point)) (todo nil) (priority nil) diff --git a/org-roam-node.el b/org-roam-node.el index 0679fb5..d69059b 100644 --- a/org-roam-node.el +++ b/org-roam-node.el @@ -158,13 +158,12 @@ is the `org-roam-node'." :left-join nodes :on (= aliases:node-id nodes:id)])) collect (pcase-let* ((`(,file ,pos ,alias ,title ,id) row) - (fname (file-name-nondirectory file)) (node (org-roam-node-create :id id :file file - :title (or title fname) + :title title :point pos :tags (gethash id tags-table)))) - (cons (propertize (or alias fname) 'node node) node))))) + (cons (propertize alias 'node node) node))))) (defun org-roam-node-read (&optional initial-input filter-fn require-match) "Read and return an `org-roam-node'.