[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 3d80b5b: org-contacts.el: Display contacts buffer r
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 3d80b5b: org-contacts.el: Display contacts buffer result. |
Date: |
Sun, 24 Jan 2021 21:57:09 -0500 (EST) |
branch: externals/org
commit 3d80b5bff65da0697478e780697ef3affcc7da5f
Author: stardiviner <numbchild@gmail.com>
Commit: stardiviner <numbchild@gmail.com>
org-contacts.el: Display contacts buffer result.
* contrib/lisp/org-contacts.el (org-contacts-link-open): Display the
searched contacts file buffer.
---
contrib/lisp/org-contacts.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el
index 2811db6..cd10e48 100644
--- a/contrib/lisp/org-contacts.el
+++ b/contrib/lisp/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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/org 3d80b5b: org-contacts.el: Display contacts buffer result.,
ELPA Syncer <=