awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-09-18 16:06:49 -05:00
Code Issues Packages Projects Releases Wiki Activity

(fix)completions: improve completion-at-point slightly (#1896)

Browse Source 
* Allow capfs to run after org-roam-complete-everywhere. This is
  necessary since org-roam-complete-everywhere gets triggered on every
  word, even if no match has been found.
* Simpler hook setup. org-roam-complete-at-point is unnecessary, better
  add the capfs directly.
This commit is contained in:
Daniel Mendler
2021-10-11 07:57:24 +02:00
committed by GitHub
parent 3a54182bb1
commit 5b933bd8ec
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
org-roam-node.el
View File

@@ -727,16 +727,17 @@ hence \"everywhere\"."
:exit-function :exit-function
(lambda (str _status) (lambda (str _status)
(delete-char (- (length str))) (delete-char (- (length str)))
(insert "[[roam:" str "]]")))))) (insert "[[roam:" str "]]"))
;; Proceed with the next completion function if the returned titles
(defun org-roam-complete-at-point () ;; do not match. This allows the default Org capfs or custom capfs
"Try get completion candidates at point using `org-roam-completion-functions'." ;; of lower priority to run.
(run-hook-with-args-until-success 'org-roam-completion-functions)) :exclusive 'no))))
(add-hook 'org-roam-find-file-hook #'org-roam--register-completion-functions-h) (add-hook 'org-roam-find-file-hook #'org-roam--register-completion-functions-h)
(defun org-roam--register-completion-functions-h () (defun org-roam--register-completion-functions-h ()
"Setup `org-roam-completion-functions' for `completion-at-point'." "Setup `org-roam-completion-functions' for `completion-at-point'."
(add-hook 'completion-at-point-functions #'org-roam-complete-at-point nil t)) (dolist (f org-roam-completion-functions)
(add-hook 'completion-at-point-functions f nil t)))
;;;; Editing ;;;; Editing
(defun org-roam-demote-entire-buffer () (defun org-roam-demote-entire-buffer ()