[elpa] externals/org-contacts 21d4ae5367 141/154: Improve the alternative org-contacts headline goto.

[ELPA Syncer]

branch: externals/org-contacts
commit 21d4ae5367beadba13a8fa15b6809ca1f93e5ae3
Author: stardiviner <numbchild@gmail.com>
Commit: stardiviner <numbchild@gmail.com>

    Improve the alternative org-contacts headline goto.
---
 org-contacts.el | 25 ++++++++++++++++---------
 1 file changed, 16 insertions(+), 9 deletions(-)

diff --git a/org-contacts.el b/org-contacts.el
index 2cff1f7dce..d6e2e11bab 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -1297,7 +1297,7 @@ Each element has the form (NAME . (FILE . POSITION))."
         (with-current-buffer buf
           (string-match "/\\(.*\\)/" query)
           (occur (match-string 1 query)))))
-     ;; jump to contact headline directly
+     ;; jump to exact contact headline directly
      (t
       (let* ((f (car org-contacts-files))
              (_ (find-file f))
@@ -1305,14 +1305,21 @@ Each element has the form (NAME . (FILE . POSITION))."
         (with-current-buffer buf
           (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))
-      ;;         (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)))
+
+      ;; (let* ((f (car org-contacts-files))
+      ;;        (_ (find-file f))
+      ;;        ;; FIXME:
+      ;;        (contact-entry (map-filter
+      ;;                        (lambda (contact-plist)
+      ;;                          (if (string-equal (plist-get contact-plist 
:name) query)
+      ;;                              contact-plist))
+      ;;                        (org-contacts--all-contacts)))
+      ;;        (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))))
+      ;;   (with-current-buffer buf (goto-char position))
+      ;;   (display-buffer buf '(display-buffer-below-selected)))
       ))))
 
 ;;;###autoload