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

Also detect whether org API function `org-add-link-type' available.

Browse source
This commit is contained in:
stardiviner 2022-06-03 11:29:47 +08:00
parent e52d4eed74
commit 0501463909
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
org-contacts.el
View file

@ -1212,7 +1212,8 @@ link string and return the pure link target."
;; so everything is in order for its use in Org files ;; so everything is in order for its use in Org files
(if (fboundp 'org-link-set-parameters) (if (fboundp 'org-link-set-parameters)
(org-link-set-parameters "tel") (org-link-set-parameters "tel")
(org-add-link-type "tel")) (if (fboundp 'org-add-link-type)
(org-add-link-type "tel")))
(defun org-contacts-split-property (string &optional separators omit-nulls) (defun org-contacts-split-property (string &optional separators omit-nulls)
"Custom version of `split-string'. "Custom version of `split-string'.
@ -1259,7 +1260,8 @@ are effectively trimmed). If nil, all zero-length substrings are retained."
:complete #'org-contacts-link-complete :complete #'org-contacts-link-complete
:store #'org-contacts-link-store :store #'org-contacts-link-store
:face 'org-contacts-link-face) :face 'org-contacts-link-face)
(org-add-link-type "org-contact" 'org-contacts-link-open)) (if (fboundp 'org-add-link-type)
(org-add-link-type "org-contact" 'org-contacts-link-open)))
;;;###autoload ;;;###autoload
(defun org-contacts-link-store () (defun org-contacts-link-store ()
@ -1353,7 +1355,8 @@ Each element has the form (NAME . (FILE . POSITION))."
;;; org-mode link "mailto:" email completion. ;;; org-mode link "mailto:" email completion.
(if (fboundp 'org-link-set-parameters) (if (fboundp 'org-link-set-parameters)
(org-link-set-parameters "mailto" :complete #'org-contacts-mailto-link-completion) (org-link-set-parameters "mailto" :complete #'org-contacts-mailto-link-completion)
(org-add-link-type "mailto")) (if (fboundp 'org-add-link-type)
(org-add-link-type "mailto")))
(defun org-contacts-mailto-link--get-all-emails () (defun org-contacts-mailto-link--get-all-emails ()
"Retrieve all org-contacts EMAIL property values." "Retrieve all org-contacts EMAIL property values."