From d426349f2126db66cbf964f4edabb8f5a30f21fd Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 2 Jan 2020 21:54:28 -0500 Subject: [PATCH] ui/zen: add +zen-text-scale variable --- modules/ui/zen/config.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/modules/ui/zen/config.el b/modules/ui/zen/config.el index 41db5ea5b..ae55cb76c 100644 --- a/modules/ui/zen/config.el +++ b/modules/ui/zen/config.el @@ -3,6 +3,9 @@ (defvar +zen-mixed-pitch-modes '(markdown-mode org-mode) "What major-modes to enable `mixed-pitch-mode' in with `writeroom-mode'.") +(defvar +zen-text-scale 1 + "The text-scaling level for `writeroom-mode'.") + ;; ;;; Packages @@ -11,6 +14,12 @@ (setq writeroom-fullscreen-effect nil writeroom-maximize-window nil) + (add-hook! 'writeroom-mode-hook + (defun +zen-enable-mixed-pitch-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))))) + ;; Adjust margins when text size is changed (advice-add #'text-scale-adjust :after #'visual-fill-column-adjust))