From 0998e2895988b9fc5563302aeab90ac71f94e7bc Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 21 Aug 2020 22:16:39 -0400 Subject: [PATCH] Fix #3765: larger window dividers in writeroom-mode To make them easier to see. --- modules/ui/zen/config.el | 21 +++++++++++++++++++-- 1 file changed, 19 insertions(+), 2 deletions(-) diff --git a/modules/ui/zen/config.el b/modules/ui/zen/config.el index b685271a7..6ec42b7dc 100644 --- a/modules/ui/zen/config.el +++ b/modules/ui/zen/config.el @@ -6,6 +6,12 @@ (defvar +zen-text-scale 2 "The text-scaling level for `writeroom-mode'.") +(defvar +zen-window-divider-size 4 + "Pixel size of window dividers when `writeroom-mode' is active.") + + +(defvar +zen--old-window-divider-size window-divider-default-bottom-width) + ;; ;;; Packages @@ -14,14 +20,25 @@ ;; Users should be able to activate writeroom-mode in one buffer (e.g. an org ;; buffer) and code in another. Fullscreening/maximizing will be opt-in. (setq writeroom-maximize-window nil) - (remove-hook 'writeroom-global-effects 'writeroom-set-fullscreen) + (remove-hook 'writeroom-global-effects #'writeroom-set-fullscreen) (add-hook! 'writeroom-mode-hook (defun +zen-enable-text-scaling-mode-h () "Enable `mixed-pitch-mode' when in `+zen-mixed-pitch-modes'." (when (/= +zen-text-scale 0) (text-scale-set (if writeroom-mode +zen-text-scale 0)) - (visual-fill-column-adjust)))) + (visual-fill-column-adjust))) + (defun +zen-toggle-large-window-dividers-h () + "Make window dividers larger and easier to see." + (when (bound-and-true-p window-divider-mode) + (if writeroom-mode-hook + (setq +zen--old-window-divider-size (cons window-divider-default-bottom-width + window-divider-default-right-width) + window-divider-default-bottom-width +zen-window-divider-size + window-divider-default-right-width +zen-window-divider-size) + (setq window-divider-default-bottom-width (car +zen--old-window-divider-size) + window-divider-default-right-width (cdr +zen--old-window-divider-size))) + (window-divider-mode +1)))) ;; Adjust margins when text size is changed (advice-add #'text-scale-adjust :after #'visual-fill-column-adjust))