fix highlights for completing-read #1467

This commit is contained in:
Jethro Kuan
2021-04-15 03:13:35 +08:00
parent 517f18afb4
commit f52c3a47d4

View File

@ -610,10 +610,11 @@ is the `org-roam-node'."
:title title :title title
:point pos :point pos
:tags (gethash id tags-table))) :tags (gethash id tags-table)))
(candidate-main (org-roam-node--format-entry node (1- (frame-width))))
(tag-str (org-roam--tags-to-str (org-roam-node-tags node)))) (tag-str (org-roam--tags-to-str (org-roam-node-tags node))))
(cons (propertize (concat tag-str " " alias) (cons (concat (propertize tag-str 'invisible t)
'node node candidate-main
'display (org-roam-node--format-entry node (1- (frame-width)))) (propertize alias 'invisible t))
node))))) node)))))
(defun org-roam-node-read (&optional initial-input filter-fn require-match) (defun org-roam-node-read (&optional initial-input filter-fn require-match)