From 0af8ca84b4318775f87fc2ef6f3f6c3b08682918 Mon Sep 17 00:00:00 2001 From: stardiviner Date: Mon, 25 Jan 2021 10:04:40 +0800 Subject: [PATCH] org-contacts.el: Display contacts buffer result. * contrib/lisp/org-contacts.el (org-contacts-link-open): Display the searched contacts file buffer. --- org-contacts.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/org-contacts.el b/org-contacts.el index 2811db6..cd10e48 100644 --- a/org-contacts.el +++ b/org-contacts.el @@ -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))