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

Add autoload cookies for org-link functions

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

5
org-contacts.el
View file

@ -1236,6 +1236,7 @@ are effectively trimmed). If nil, all zero-length substrings are retained."
(setq proplist (cons bufferstring proplist)))) (setq proplist (cons bufferstring proplist))))
(cdr (reverse proplist)))) (cdr (reverse proplist))))
;;;###autoload
;;; Add an Org link type `org-contact:' for easy jump to or searching org-contacts headline. ;;; Add an Org link type `org-contact:' for easy jump to or searching org-contacts headline.
;;; link spec: [[org-contact:query][desc]] ;;; link spec: [[org-contact:query][desc]]
(org-link-set-parameters "org-contact" (org-link-set-parameters "org-contact"
@ -1244,6 +1245,7 @@ are effectively trimmed). If nil, all zero-length substrings are retained."
:store #'org-contacts-link-store :store #'org-contacts-link-store
:face 'org-contacts-link-face) :face 'org-contacts-link-face)
;;;###autoload
(defun org-contacts-link-store () (defun org-contacts-link-store ()
"Store the contact in `org-contacts-files' with a link." "Store the contact in `org-contacts-files' with a link."
(when (and (eq major-mode 'org-mode) (when (and (eq major-mode 'org-mode)
@ -1260,6 +1262,7 @@ are effectively trimmed). If nil, all zero-length substrings are retained."
(org-link-add-props :link link :description headline-str) (org-link-add-props :link link :description headline-str)
link))))) link)))))
;;;###autoload
(defun org-contacts--all-contacts () (defun org-contacts--all-contacts ()
"Return a list of all contacts in `org-contacts-files'. "Return a list of all contacts in `org-contacts-files'.
Each element has the form (NAME . (FILE . POSITION))." Each element has the form (NAME . (FILE . POSITION))."
@ -1276,6 +1279,7 @@ Each element has the form (NAME . (FILE . POSITION))."
`(:name ,name :file ,file :position ,position)))))) `(:name ,name :file ,file :position ,position))))))
org-contacts-files))) org-contacts-files)))
;;;###autoload
(defun org-contacts-link-open (path) (defun org-contacts-link-open (path)
"Open contacts: link type with jumping or searching." "Open contacts: link type with jumping or searching."
(let ((query path)) (let ((query path))
@ -1306,6 +1310,7 @@ Each element has the form (NAME . (FILE . POSITION))."
;; (with-current-buffer buf (goto-char position))) ;; (with-current-buffer buf (goto-char position)))
)))) ))))
;;;###autoload
(defun org-contacts-link-complete (&optional _arg) (defun org-contacts-link-complete (&optional _arg)
"Create a org-contacts link using completion." "Create a org-contacts link using completion."
(let ((name (completing-read "org-contact Name: " (let ((name (completing-read "org-contact Name: "