[elpa] externals/ebdb 501edfb 149/350: Give Org mode its own popup window

[Eric Abrahamsen]

branch: externals/ebdb
commit 501edfb6d124000b112b7dfb82a6e92c102df7b2
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Give Org mode its own popup window
    
    * ebdb-org.el (ebdb-make-buffer-name): Define a method for org-mode.
      (ebdb-org-open): Pop up a buffer when opening links.
    
    Eventually we should shift things so that EBDB considers Org just
    another MUA.
---
 ebdb-org.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ebdb-org.el b/ebdb-org.el
index beb6588..274e4c4 100644
--- a/ebdb-org.el
+++ b/ebdb-org.el
@@ -95,7 +95,7 @@
       (cond
        ((eql records 'unknown) (message "Unknown field prefix: %s" (nth 1 
bits)))
        ((null records) (message "No records found"))
-       (t (ebdb-display-records records))))))
+       (t (ebdb-display-records records nil nil nil (ebdb-popup-window)))))))
 
 (defun ebdb-org-export (path desc format)
   "Create the export version of a EBDB link specified by PATH or DESC.
@@ -162,5 +162,9 @@ potential tags for completion.")
     (dolist (tag tags)
       (add-to-list 'ebdb-org-tags tag))))
 
+(cl-defmethod ebdb-make-buffer-name (&context (major-mode org-mode))
+  "Use a separate EBDB buffer for Org-related contacts."
+  (format "*%s-Org*" ebdb-buffer-name))
+
 (provide 'ebdb-org)
 ;;; ebdb-org.el ends here