awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-08-03 12:27:23 -05:00
Code Issues Packages Projects Releases Wiki Activity

remove annotation function

Browse Source
This commit is contained in:
Jethro Kuan
2021-04-15 20:22:04 +08:00
parent 0697f376eb
commit 624ac77fe2
1 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
org-roam.el
View File

@ -626,12 +626,15 @@ If REQUIRE-MATCH, require returning a match."
(or (cdr (assoc node nodes)) (or (cdr (assoc node nodes))
(org-roam-node-create :title node)))) (org-roam-node-create :title node))))
(defun org-roam-node--annotation (node-title) (defun org-roam-node--annotation (_node-title)
"Return the annotation string for a NODE-TITLE." "?"
(let* ((node (get-text-property 0 'node node-title)) ;; TODO: think about what to do with this
(tags (org-roam-node-tags node))) ""
(when tags ;; (let* ((node (get-text-property 0 'node node-title))
(format " (%s)" (string-join tags ", "))))) ;; (tags (org-roam-node-tags node)))
;; (when tags
;; (format " (%s)" (string-join tags ", "))))
)
(defun org-roam-preview-visit (file point &optional other-window) (defun org-roam-preview-visit (file point &optional other-window)
"Visit FILE at POINT. "Visit FILE at POINT.