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

org-contacts.el: Display contacts buffer result.

Browse source 
* 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 1991ef0ecd
commit 0af8ca84b4
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
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." "Open contacts: link type with jumping or searching."
(let ((query path)) (let ((query path))
(cond (cond
;; /query/ format searching
((string-match "/.*/" query) ((string-match "/.*/" query)
(let* ((f (car org-contacts-files)) (let* ((f (car org-contacts-files))
(buf (get-buffer (file-name-nondirectory f)))) (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 (with-current-buffer buf
(string-match "/\\(.*\\)/" query) (string-match "/\\(.*\\)/" query)
(occur (match-string 1 query))))) (occur (match-string 1 query)))))
;; jump to contact headline directly
(t (t
(let* ((f (car org-contacts-files)) (let* ((f (car org-contacts-files))
(buf (get-buffer (file-name-nondirectory f)))) (buf (get-buffer (file-name-nondirectory f))))
(unless (buffer-live-p buf) (find-file f)) (unless (buffer-live-p buf) (find-file f))
(with-current-buffer buf (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 ;; FIXME
;; (let* ((contact-entry (plist-get (org-contacts--all-contacts) query)) ;; (let* ((contact-entry (plist-get (org-contacts--all-contacts) query))
;; (contact-name (plist-get contact-entry :name)) ;; (contact-name (plist-get contact-entry :name))