branch: externals/ebdb
commit 501edfb6d124000b112b7dfb82a6e92c102df7b2
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
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
