[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] scratch/org-contacts-rebased 034be20 093/118: org-contacts.el: Ad
From: |
Stefan Monnier |
Subject: |
[elpa] scratch/org-contacts-rebased 034be20 093/118: org-contacts.el: Add new link type "contact:" |
Date: |
Fri, 12 Nov 2021 15:37:11 -0500 (EST) |
branch: scratch/org-contacts-rebased
commit 034be20fefb85ecbefd09c3f8693b3c9307d8cdf
Author: stardiviner <numbchild@gmail.com>
Commit: Bastien <bzg@gnu.org>
org-contacts.el: Add new link type "contact:"
* contrib/lisp/org-contacts.el (org-contacts-link-store): Store a link
of org-contacts in Org file.
* contrib/lisp/org-contacts.el (org-contacts-link-open): Open contact:
link in Org file.
* contrib/lisp/org-contacts.el (org-contacts-link-complete): Insert a
contact: link with completion of contacts.
* contrib/lisp/org-contacts.el (org-contacts-link-face): Set different
face for contact: link.
---
org-contacts.el | 75 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 75 insertions(+)
diff --git a/org-contacts.el b/org-contacts.el
index 4b3693a..d8d4984 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -1146,6 +1146,81 @@ are effectively trimmed). If nil, all zero-length
substrings are retained."
(setq proplist (cons bufferstring proplist))))
(cdr (reverse proplist))))
+;;; 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"
+ :follow 'org-contacts-link-open
+ :complete 'org-contacts-link-complete
+ :store 'org-contacts-link-store
+ :face 'org-contacts-link-face)
+
+(defun org-contacts-link-store ()
+ "Store the contact in `org-contacts-files' with a link."
+ (when (eq major-mode 'org-mode)
+ ;; (member (buffer-file-name) (mapcar 'expand-file-name
org-contacts-files))
+ (let ((headline-str (substring-no-properties (org-get-heading t t t t))))
+ (org-store-link-props
+ :type "org-contact"
+ :link headline-str
+ :description headline-str))))
+
+(defun org-contacts--all-contacts ()
+ "Return an alist (name . (file . position)) of all contacts in
`org-contacts-files'."
+ (car (mapcar
+ (lambda (file)
+ (unless (buffer-live-p (get-buffer (file-name-nondirectory file)))
+ (find-file file))
+ (with-current-buffer (get-buffer (file-name-nondirectory file))
+ (org-map-entries
+ (lambda ()
+ (let ((name (substring-no-properties (org-get-heading t t t t)))
+ (file (buffer-file-name))
+ (position (point)))
+ `(:name ,name :file ,file :position ,position))))))
+ org-contacts-files)))
+
+(defun org-contacts-link-open (path)
+ "Open contacts: link type with jumping or searching."
+ (let ((query path))
+ (cond
+ ((string-match "/.*/" query)
+ (let* ((f (car org-contacts-files))
+ (buf (get-buffer (file-name-nondirectory f))))
+ (unless (buffer-live-p buf) (find-file f))
+ (with-current-buffer buf
+ (string-match "/\\(.*\\)/" query)
+ (occur (match-string 1 query)))))
+ (t
+ (let* ((f (car org-contacts-files))
+ (buf (get-buffer (file-name-nondirectory f))))
+ (unless (buffer-live-p buf) (find-file f))
+ (with-current-buffer buf
+ (goto-char (marker-position (org-find-exact-headline-in-buffer
query)))))
+ ;; FIXME
+ ;; (let* ((contact-entry (plist-get (org-contacts--all-contacts) query))
+ ;; (contact-name (plist-get contact-entry :name))
+ ;; (file (plist-get contact-entry :file))
+ ;; (position (plist-get contact-entry :position))
+ ;; (buf (get-buffer (file-name-nondirectory file))))
+ ;; (unless (buffer-live-p buf) (find-file file))
+ ;; (with-current-buffer buf (goto-char position)))
+ ))))
+
+(defun org-contacts-link-complete (&optional arg)
+ "Create a org-contacts link using completion."
+ (let ((name (completing-read "org-contact Name: "
+ (mapcar
+ (lambda (plist) (plist-get plist :name))
+ (org-contacts--all-contacts)))))
+ (concat "org-contact:" name)))
+
+(defun org-contacts-link-face (path)
+ "Different face color for different org-contacts link query."
+ (cond
+ ((string-match "/.*/" path)
+ '(:background "sky blue" :overline t :slant 'italic))
+ (t '(:background "green yellow" :underline t))))
+
(provide 'org-contacts)
;;; org-contacts.el ends here
- [elpa] scratch/org-contacts-rebased 49dd482 089/118: Use `string-match-p' instead of `org-string-match-p', (continued)
- [elpa] scratch/org-contacts-rebased 49dd482 089/118: Use `string-match-p' instead of `org-string-match-p', Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 124cc7a 098/118: org-contacts.el: Add usage comments, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased b2837af 109/118: simplify logic, remove unused variables, switch to lexical binding, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 5174678 116/118: Fix AVATAR property value not exist problem, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 1be8aa9 069/118: Merge branch 'maint', Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 9c233be 070/118: Revert "Update copyright years.", Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased fc25530 074/118: contrib/lisp/org-contacts.el: Add a hook to allow users to plug completion functions, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased d3509e4 076/118: contrib/lisp/org-contacts.el: Complete contacts using tags and properties, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 6bcb093 079/118: contrib: Fix error messages., Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 44968ec 084/118: Make `org-make-tags-matcher' lexical binding friendly, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 034be20 093/118: org-contacts.el: Add new link type "contact:",
Stefan Monnier <=
- [elpa] scratch/org-contacts-rebased 7161351 094/118: contrib/lisp/org-contacts.el: Add stardiviner as the maintainer, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 3beb906 057/118: org-contacts: Use progress-reporter for cache update message, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 0c439a4 102/118: org-contacts.el: Fix store link function does not return link., Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased cf0668a 064/118: org-contacts: Provide ordering when using cycle completion, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 8e07b36 082/118: contrib: move a few libraries to cl-lib in place of compile-time cl., Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 9a80cca 085/118: org-contacts: Register "tel" link, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 3ed6376 086/118: org-agenda: Remove unnecessary visibility modification, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 9f46067 088/118: Deprecate `org-no-warnings' in favor of `with-no-warnings', Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 8d0ca82 090/118: Update tel link definition, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 58ea7f2 095/118: org-contacts.el: Fix org-store-link error caused by org-contacts, Stefan Monnier, 2021/11/12