aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add autoload cookirs for completing functions

Browse source
This commit is contained in:
stardiviner 2021-11-18 22:23:23 +08:00
parent 8a074f2a41
commit 58edab6f69
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
org-contacts.el
View file

@ -626,11 +626,13 @@ description."
(run-hook-with-args-until-success (run-hook-with-args-until-success
'org-contacts-complete-functions string)))))))) 'org-contacts-complete-functions string))))))))
;;;###autoload
(defun org-contacts-org-complete--annotation-function (candidate) (defun org-contacts-org-complete--annotation-function (candidate)
"Return org-contacts tags of contact candidate." "Return org-contacts tags of contact candidate."
;; TODO ;; TODO
"Tags: ") "Tags: ")
;;;###autoload
(defun org-contacts-org-complete--doc-function (candidate) (defun org-contacts-org-complete--doc-function (candidate)
"Return org-contacts content of contact candidate." "Return org-contacts content of contact candidate."
(let* ((candidate (substring-no-properties candidate 1 nil)) (let* ((candidate (substring-no-properties candidate 1 nil))
@ -663,6 +665,7 @@ description."
(org-show-all))) (org-show-all)))
doc-buffer)) doc-buffer))
;;;###autoload
(defun org-contacts-org-complete--location-function (candidate) (defun org-contacts-org-complete--location-function (candidate)
"Return org-contacts location of contact candidate." "Return org-contacts location of contact candidate."
(let* ((candidate (substring-no-properties candidate 1 nil)) (let* ((candidate (substring-no-properties candidate 1 nil))
@ -676,6 +679,7 @@ description."
(goto-char position) (goto-char position)
(cons (current-buffer) position)))) (cons (current-buffer) position))))
;;;###autoload
(defun org-contacts-org-complete-function () (defun org-contacts-org-complete-function ()
"Function used in `completion-at-point-functions' in `org-mode' to complete @name. "Function used in `completion-at-point-functions' in `org-mode' to complete @name.
Usage: (add-hook 'completion-at-point-functions 'org-contacts-org-complete-function nil 'local)" Usage: (add-hook 'completion-at-point-functions 'org-contacts-org-complete-function nil 'local)"