emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org-contacts 03a563b471 135/154: Add autoload cookies f


From: ELPA Syncer
Subject: [elpa] externals/org-contacts 03a563b471 135/154: Add autoload cookies for org-link functions
Date: Fri, 9 Sep 2022 15:58:55 -0400 (EDT)

branch: externals/org-contacts
commit 03a563b471e731a980476f2219a194382a2f8e58
Author: stardiviner <numbchild@gmail.com>
Commit: stardiviner <numbchild@gmail.com>

    Add autoload cookies for org-link functions
---
 org-contacts.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/org-contacts.el b/org-contacts.el
index 72ea8f93c4..0513df76ee 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -1236,6 +1236,7 @@ are effectively trimmed).  If nil, all zero-length 
substrings are retained."
         (setq proplist (cons bufferstring proplist))))
     (cdr (reverse proplist))))
 
+;;;###autoload
 ;;; Add an Org link type `org-contact:' for easy jump to or searching 
org-contacts headline.
 ;;; link spec: [[org-contact:query][desc]]
 (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
                          :face 'org-contacts-link-face)
 
+;;;###autoload
 (defun org-contacts-link-store ()
   "Store the contact in `org-contacts-files' with a link."
   (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)
           link)))))
 
+;;;###autoload
 (defun org-contacts--all-contacts ()
   "Return a list of all contacts in `org-contacts-files'.
 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))))))
         org-contacts-files)))
 
+;;;###autoload
 (defun org-contacts-link-open (path)
   "Open contacts: link type with jumping or searching."
   (let ((query path))
@@ -1306,6 +1310,7 @@ Each element has the form (NAME . (FILE . POSITION))."
       ;;    (with-current-buffer buf (goto-char position)))
       ))))
 
+;;;###autoload
 (defun org-contacts-link-complete (&optional _arg)
   "Create a org-contacts link using completion."
   (let ((name (completing-read "org-contact Name: "



reply via email to

[Prev in Thread] Current Thread [Next in Thread]