mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org-contacts.el: Display contacts buffer result. 

* contrib/lisp/org-contacts.el (org-contacts-link-open): Display the
searched contacts file buffer.
This commit is contained in:
stardiviner 2021-01-25 10:04:40 +08:00
parent 3916a57406
commit 3d80b5bff6
No known key found for this signature in database
GPG Key ID: 1B5DF1C95AE89AC3
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
contrib/lisp/org-contacts.el
View File

@ -1197,6 +1197,7 @@ are effectively trimmed). If nil, all zero-length substrings are retained."
"Open contacts: link type with jumping or searching."
(let ((query path))
(cond
;; /query/ format searching
((string-match "/.*/" query)
(let* ((f (car org-contacts-files))
(buf (get-buffer (file-name-nondirectory f))))
@ -1204,12 +1205,14 @@ are effectively trimmed). If nil, all zero-length substrings are retained."
(with-current-buffer buf
(string-match "/\\(.*\\)/" query)
(occur (match-string 1 query)))))
;; jump to contact headline directly
(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)))))
(goto-char (marker-position (org-find-exact-headline-in-buffer query))))
(display-buffer buf '(display-buffer-below-selected)))
;; FIXME
;; (let* ((contact-entry (plist-get (org-contacts--all-contacts) query))
;; (contact-name (plist-get contact-entry :name))