awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

ui/modeline: prevent cut-off popups #2219

Browse Source 
By forcing resized windows to take non-standard modeline height into
account.
This commit is contained in:
Henrik Lissner
2019-12-20 20:37:55 -05:00
parent 6c0d71eb65
commit 0e4d25d533
2 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
modules/ui/modeline/+light.el
View File

@ -68,14 +68,6 @@ side of the modeline, and whose CDR is the right-hand side.")
;; ;;
;;; Helpers ;;; Helpers
(defvar +modeline--redisplayed-p nil)
(defadvice! modeline-recalculate-height-a (&optional _force &rest _ignored)
"Ensure that window resizing functions take modeline height into account."
:before '(fit-window-to-buffer resize-temp-buffer-window)
(unless +modeline--redisplayed-p
(setq-local +modeline--redisplayed-p t)
(redisplay t)))
;;; `active' ;;; `active'
(defvar +modeline--active-window (selected-window)) (defvar +modeline--active-window (selected-window))

9
modules/ui/modeline/config.el
View File

@ -4,6 +4,15 @@
(load! "+light")) (load! "+light"))
(defvar +modeline--redisplayed-p nil)
(defadvice! modeline-recalculate-height-a (&optional _force &rest _ignored)
"Ensure that window resizing functions take modeline height into account."
:before '(fit-window-to-buffer resize-temp-buffer-window)
(unless +modeline--redisplayed-p
(setq-local +modeline--redisplayed-p t)
(redisplay t)))
(use-package! doom-modeline (use-package! doom-modeline
:unless (featurep! +light) :unless (featurep! +light)
:hook (after-init . doom-modeline-mode) :hook (after-init . doom-modeline-mode)