emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Mu4e: Expand frame to minimum size on header view

Browse source
This commit is contained in:
TEC 2020-09-23 01:32:18 +08:00
parent 9b9f64d912
commit 0f9765c600
No known key found for this signature in database
GPG key ID: 779591AFDB81F06C
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
modules/email/mu4e/config.el
View file

@ -177,6 +177,8 @@ will also be the width of all other printable characters."
(+ (length (mu4e-message-field msg :to)) (+ (length (mu4e-message-field msg :to))
(length (mu4e-message-field msg :cc)))) (length (mu4e-message-field msg :cc))))
'face 'mu4e-footer-face))))))) 'face 'mu4e-footer-face)))))))
;; Marks usually affect the current view
(defadvice! +mu4e--refresh-current-view-a (&rest _) (defadvice! +mu4e--refresh-current-view-a (&rest _)
:after #'mu4e-mark-execute-all (mu4e-headers-rerun-search)) :after #'mu4e-mark-execute-all (mu4e-headers-rerun-search))
@ -186,6 +188,18 @@ will also be the width of all other printable characters."
;; Html mails might be better rendered in a browser ;; Html mails might be better rendered in a browser
(add-to-list 'mu4e-view-actions '("View in browser" . mu4e-action-view-in-browser)) (add-to-list 'mu4e-view-actions '("View in browser" . mu4e-action-view-in-browser))
;; The header view needs a certain amount of horizontal space to
;; actually show you all the information you want to see
;; so if the header view is entered from a narrow frame,
;; it's probably worth trying to expand it
(defvar mu4e-min-header-frame-width 120
"Minimum reasonable with for the header view.")
(defun mu4e-widen-frame-maybe ()
"Expand the frame with if it's less than `mu4e-min-header-frame-width'."
(when (< (frame-width) mu4e-min-header-frame-width)
(set-frame-width (selected-frame) mu4e-min-header-frame-width)))
(add-hook 'mu4e-headers-mode-hook #'mu4e-widen-frame-maybe)
(when (fboundp 'imagemagick-register-types) (when (fboundp 'imagemagick-register-types)
(imagemagick-register-types)) (imagemagick-register-types))