diff options
| author | JSDurand <mmemmew@gmail.com> | 2021-08-16 00:11:08 +0800 |
|---|---|---|
| committer | JSDurand <mmemmew@gmail.com> | 2021-08-16 00:11:08 +0800 |
| commit | 594dc7eda49288282ee8c02fc0594fc3aeb97fad (patch) | |
| tree | 013effdf7079e5b0c0db1297d4ce313ba213c25c /gnus-conf.el | |
| parent | 16e4331df1ed3a6ed868185ea7cb7983419a484e (diff) | |
Display Gnus in a separate tab
The separation of Gnus into a tab means I can better handle the mails
and deal with them without interrupting my other activities.
* basic.el (display-buffer-alist): This creates the tab to display
* GNUS.
* gnus-conf.el (durand-display-gnus, gnus): This buries the original
buffer and calls the previous function. And gnus is after-adviced by
this function. This is needed since gnus calls `switch-to-buffer'
instead of `display-buffer' internally.
(durand-gnus-kill-tab): The kill-tab function kills the tab, if it is
present.
(durand-gnus-quit, gnus-group-mode-map): Bury the buffer and kills the
tab. Bind to the original "q" key.
(gnus-exit-gnus-hook): Call the kill-tab function in this hook.
Diffstat (limited to 'gnus-conf.el')
| -rw-r--r-- | gnus-conf.el | 32 |
1 files changed, 31 insertions, 1 deletions
diff --git a/gnus-conf.el b/gnus-conf.el index 39a211a..689a2fa 100644 --- a/gnus-conf.el +++ b/gnus-conf.el @@ -15,6 +15,36 @@ ;; (nnimap-server-port 143)) )) +;;; display using display-buffer + +(defun durand-display-gnus (&rest _args) + "Display the group buffer using display-buffer." + (cond + ((null (get-buffer "*Group*")) + (user-error "No group buffer!")) + (t + (quit-window) + (display-buffer (get-buffer "*Group*"))))) + +(advice-add #'gnus :after #'durand-display-gnus) + +(defun durand-gnus-kill-tab (&rest _args) + "Kill the tab when exiting Gnus." + (cond + ((durand-member "email" + (mapcar (lambda (tab) (cdr (assq 'name tab))) + (funcall tab-bar-tabs-function)) + #'string=) + (tab-bar-close-tab-by-name "email")))) + +(defun durand-gnus-quit () + "Quit and kill tab at the same time." + (interactive) + (bury-buffer) + (durand-gnus-kill-tab)) + +(add-hook 'gnus-exit-gnus-hook #'durand-gnus-kill-tab) + ;;; repunctuate sentences (add-hook 'gnus-part-display-hook 'gnus-treat-repunctuate) @@ -148,7 +178,7 @@ ;;; exiting -(define-key gnus-group-mode-map (vector ?q) #'bury-buffer) +(define-key gnus-group-mode-map (vector ?q) #'durand-gnus-quit) (define-key gnus-group-mode-map (vector ?x) #'gnus-group-exit) ;;; agent key bindings |