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

Add org-mode mailto: link type :complete supporting

Browse source
This commit is contained in:
stardiviner 2021-12-28 22:14:13 +08:00
parent 81d9ed977d
commit fe466ab2ae
1 changed files with 27 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
org-contacts.el
View file

@ -1318,7 +1318,7 @@ Each element has the form (NAME . (FILE . POSITION))."
;;;###autoload
(defun org-contacts-link-complete (&optional _arg)
"Create a org-contacts link using completion."
(let ((name (completing-read "org-contact Name: "
(let ((name (completing-read "org-contacts NAME: "
(mapcar
(lambda (plist) (plist-get plist :name))
(org-contacts--all-contacts)))))
@ -1331,6 +1331,32 @@ Each element has the form (NAME . (FILE . POSITION))."
'(:background "sky blue" :overline t :slant 'italic))
(t '(:inherit 'org-link))))
;;; org-mode link "mailto:" email completion.
(org-link-set-parameters "mailto" :complete #'org-contacts-mailto-link-completion)
(defun org-contacts-mailto-link--get-all-emails ()
"Retrieve all org-contacts EMAIL property values."
(mapcar
(lambda (contact)
(let* ((org-contacts-buffer (find-file-noselect (car org-contacts-files)))
(name (plist-get contact :name))
(position (plist-get contact :position))
(email (save-excursion
(with-current-buffer org-contacts-buffer
(goto-char position)
;; (symbol-name (org-property-or-variable-value 'EMAIL))
(org-entry-get (point) "EMAIL")))))
;; (cons name email)
email))
(org-contacts--all-contacts)))
(defun org-contacts-mailto-link-completion (&optional _arg)
"Org mode link `mailto:' completion with org-contacts emails."
(let ((email (completing-read "org-contacts EMAIL: "
(org-contacts-mailto-link--get-all-emails))))
(concat "mailto:" email)))
(provide 'org-contacts)
;;; org-contacts.el ends here