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

(fix): fix [[*]] completion (#1166)

Browse Source 
Links now complete to [[roam:*foo]] rather than the incorrect [[*roam:foo]]
This commit is contained in:
Jethro Kuan
2020-10-05 23:24:32 +08:00
committed by GitHub
parent 32bf91077e
commit ceee2348e0
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
org-roam-link.el
View File

@ -263,7 +263,7 @@ DESC is the link description."
"Do appropriate completion for the link at point."
(let ((end (point))
(start (point))
collection link-type)
collection link-type headline-only-p)
(when (org-in-regexp org-link-bracket-re 1)
(setq start (match-beginning 1)
end (match-end 1))
@ -285,7 +285,8 @@ DESC is the link description."
(setq collection #'org-roam-link--get-titles))
('headline
(setq collection #'org-roam-link--get-headlines)
(setq start (+ start star-idx 1))))))))))
(setq start (+ start star-idx 1))
(setq headline-only-p t)))))))))
(when collection
(let ((prefix (buffer-substring-no-properties start end)))
(list start end
@ -299,8 +300,11 @@ DESC is the link description."
collection)
:exit-function
(lambda (str &rest _)
(delete-char (- (length str)))
(insert (concat (unless (string= link-type "roam") "roam:") str))))))))
(delete-char (- 0 (length str)
(if headline-only-p 1 0)))
(insert (concat (unless (string= link-type "roam") "roam:")
(when headline-only-p "*")
str))))))))
(provide 'org-roam-link)
;;; org-roam-link.el ends here