From 15ed040fe8dc0cea44081abb0e11f219bf937c59 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 28 Apr 2017 03:45:54 -0400 Subject: [PATCH] app/write: flesh out config (wip) --- modules/app/write/autoload.el | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/modules/app/write/autoload.el b/modules/app/write/autoload.el index b568cbb7d..325bb612d 100644 --- a/modules/app/write/autoload.el +++ b/modules/app/write/autoload.el @@ -7,11 +7,18 @@ (define-minor-mode +write-mode :init-value nil :keymap nil - (let ((arg (if +write-mode +1 -1))) + (let ((arg (if +write-mode +1 -1)) + (iarg (if +write-mode -1 +1))) (when (and (featurep 'doom-themes) (not +write--buffer-mode) +write-mode) (setq +write--buffer-mode doom-buffer-mode)) - (text-scale-set (if +write-mode 1.5 0)) + (text-scale-set (if +write-mode 2 0)) + (nlinum-mode iarg) + (setq-local visual-fill-column-center-text +write-mode) (visual-fill-column-mode arg) - (setq line-spacing (if +write-mode 6)))) + (visual-line-mode arg) + (when (eq major-mode 'org-mode) + (+org-pretty-mode arg)) + (setq line-spacing (if +write-mode 4)))) +