branch: externals/ebdb
commit 8e8c2e1ba0724c2a8c018765ec691183d397eb2a
Author: Eric Abrahamsen <e...@ericabrahamsen.net>
Commit: Eric Abrahamsen <e...@ericabrahamsen.net>
Make gnus-message window config stuff customizable
* ebdb-message.el (ebdb-message-reply-window-config,
ebdb-message-reply-yank-window-config): New customization options,
replacing the earlier hard-coded window configs.
---
ebdb-message.el | 33 ++++++++++++++++++++++++---------
1 file changed, 24 insertions(+), 9 deletions(-)
diff --git a/ebdb-message.el b/ebdb-message.el
index 8bd304e..a29e093 100644
--- a/ebdb-message.el
+++ b/ebdb-message.el
@@ -35,6 +35,26 @@
:group 'ebdb-mua)
(put 'ebdb-mua-message 'custom-loads '(ebdb-message))
+(defcustom ebdb-message-reply-window-config
+ '(reply
+ (horizontal 1.0
+ (message 1.0 point)
+ (ebdb-message 0.4)))
+ "Message reply window configuration to show EBDB.
+See Gnus' manual for details."
+ :group 'ebdb-mua-message
+ :type 'list)
+
+(defcustom ebdb-message-reply-yank-window-config
+ '(reply-yank
+ (horizontal 1.0
+ (message 1.0 point)
+ (ebdb-message 0.4)))
+ "Message reply-yank window configuration to show EBDB.
+See Gnus' manual for details."
+ :group 'ebdb-mua-message
+ :type 'list)
+
;; Suggestions welcome: What are good keybindings for the following
;; commands that do not collide with existing bindings?
;; (define-key message-mode-map "'" 'ebdb-mua-display-recipients)
@@ -102,20 +122,15 @@
;; The gnus window configuration stanza makes sure it's displayed
;; after the message buffer is set up.
(with-eval-after-load 'gnus-win
- (add-to-list 'gnus-window-to-buffer `(ebdb . ,(ebdb-message-buffer-name)))
+ (add-to-list 'gnus-window-to-buffer
+ `(ebdb-message . ,(ebdb-message-buffer-name)))
(add-hook 'message-header-setup-hook 'ebdb-mua-auto-update)
(gnus-add-configuration
- '(reply
- (horizontal 1.0
- (message 1.0 point)
- (ebdb 0.4))))
+ ebdb-message-reply-window-config)
(gnus-add-configuration
- '(reply-yank
- (horizontal 1.0
- (message 1.0 point)
- (ebdb 0.4)))))
+ ebdb-message-reply-yank-window-config))
(provide 'ebdb-message)
;;; ebdb-message.el ends here
