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

Mu4e: Relocate min-frames-width statement

Browse source
This commit is contained in:
TEC 2021-07-29 17:58:54 +08:00
parent a39f7b0ced
commit 59178f2d71
No known key found for this signature in database
GPG key ID: 779591AFDB81F06C
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -100,6 +100,9 @@
all-the-icons-yellow) all-the-icons-yellow)
"Faces to use when coloring folders and account stripes.") "Faces to use when coloring folders and account stripes.")
(defvar +mu4e-min-header-frame-width 120
"Minimum reasonable with for the header view.")
;; Add a column to display what email account the email belongs to, ;; Add a column to display what email account the email belongs to,
;; and an account color stripe column ;; and an account color stripe column
(defvar +mu4e-header--maildir-colors nil) (defvar +mu4e-header--maildir-colors nil)
@ -160,8 +163,6 @@
;; actually show you all the information you want to see ;; actually show you all the information you want to see
;; so if the header view is entered from a narrow frame, ;; so if the header view is entered from a narrow frame,
;; it's probably worth trying to expand it ;; 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 () (defun mu4e-widen-frame-maybe ()
"Expand the frame with if it's less than `+mu4e-min-header-frame-width'." "Expand the frame with if it's less than `+mu4e-min-header-frame-width'."
(when (< (frame-width) +mu4e-min-header-frame-width) (when (< (frame-width) +mu4e-min-header-frame-width)