[elpa] externals/ebdb e52e17e 192/350: Pop up EBDB buffer when using company to complete

[Eric Abrahamsen]

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

    Pop up EBDB buffer when using company to complete
    
    * company-ebdb.el (company-ebdb--post-complete): New post-completion
      command.  When using company-mode to complete names, pop up the
      buffer same as if we'd used TAB.
---
 company-ebdb.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/company-ebdb.el b/company-ebdb.el
index 90e3ede..0fc5234 100644
--- a/company-ebdb.el
+++ b/company-ebdb.el
@@ -43,6 +43,13 @@
              (eval '(ebdb-search (ebdb-records) `((ebdb-field-name ,arg)
                                                  (ebdb-field-mail ,arg))))))
 
+(defun company-ebdb--post-complete (arg)
+  (when (memq major-mode company-ebdb-modes)
+   (let* ((bits (ebdb-decompose-ebdb-address arg))
+         (recs (ebdb-message-search (car bits) (nth 1 bits))))
+     (when recs
+       (ebdb-display-records recs nil nil nil (ebdb-popup-window))))))
+
 ;;;###autoload
 (defun company-ebdb (command &optional arg &rest ignore)
   "`company-mode' completion backend for EBDB."
@@ -55,6 +62,7 @@
                                (line-beginning-position))
                  (match-string-no-properties 2)))
     (candidates (company-ebdb--candidates arg))
+    (post-completion (company-ebdb--post-complete arg))
     (sorted t)
     (no-cache t)))