[elpa] externals/ebdb d53ddc1 08/15: Use Gnus' window configuration for popping up EBDB buffers

[Eric Abrahamsen]

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

    Use Gnus' window configuration for popping up EBDB buffers
    
    * ebdb-gnus.el (ebdb-gnus-window-configuration): New customization
      option for changing how the *EBDB-Gnus* buffer is displayed.
      Something still isn't working correctly here, though -- while the
      Gnus article buffers are now wrapped correctly, the EBDB buffer
      still isn't wrapped right.
    
    Relevant to #62
---
 ebdb-gnus.el | 32 ++++++++++++++++++++++++++++++--
 1 file changed, 30 insertions(+), 2 deletions(-)

diff --git a/ebdb-gnus.el b/ebdb-gnus.el
index fa71944..88303cd 100644
--- a/ebdb-gnus.el
+++ b/ebdb-gnus.el
@@ -35,6 +35,28 @@
   :group 'ebdb-mua)
 (put 'ebdb-mua-gnus 'custom-loads '(ebdb-gnus))
 
+(defcustom ebdb-gnus-window-configuration
+  `(article
+    ,(cond
+      (gnus-use-trees
+       '(vertical 1.0
+                 (summary 0.25 point)
+                 (tree 0.25)
+                 (horizontal 1.0
+                             (article 1.0)
+                             (ebdb-gnus 0.4))))
+      (t
+       '(vertical 1.0
+                 (summary 0.25 point)
+                 (horizontal 1.0
+                             (article 1.0)
+                             (ebdb-gnus 0.4))))))
+  "Gnus window configuration to include EBDB.
+By default, this adds the *EBDB-Gnus* window to the right of the
+article buffer, taking up 40% of the horizontal space."
+  :group 'ebdb-mua-gnus
+  :type 'list)
+
 (defgroup ebdb-mua-gnus-scoring nil
   "Gnus-specific scoring EBDB customizations"
   :group 'ebdb-mua-gnus)
@@ -189,13 +211,19 @@ Note that `\( is the backquote, NOT the quote '\(."
 ;; Insinuation
 ;;
 
-(add-hook 'gnus-article-prepare-hook 'ebdb-mua-auto-update)
+(add-hook 'gnus-article-prepare-hook #'ebdb-mua-auto-update)
 
-(add-hook 'gnus-startup-hook 'ebdb-insinuate-gnus)
+(add-hook 'gnus-startup-hook #'ebdb-insinuate-gnus)
 
 (defsubst ebdb-gnus-buffer-name ()
   (format "*%s-Gnus*" ebdb-buffer-name))
 
+;; Tell Gnus how to display the *EBDB-Gnus* buffer.
+(with-eval-after-load "gnus-win"
+  (add-to-list 'gnus-window-to-buffer
+              `(ebdb-gnus . ,(ebdb-gnus-buffer-name)))
+  (gnus-add-configuration ebdb-gnus-window-configuration))
+
 (cl-defmethod ebdb-make-buffer-name (&context (major-mode gnus-summary-mode))
   "Produce a EBDB buffer name associated with Gnus."
   (ebdb-gnus-buffer-name))