app/write: fix +write-mode not disabling other modes

This commit is contained in:
Henrik Lissner 2018-07-31 19:11:41 +02:00
parent 0a746bdf1e
commit 9079fdd9ec
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -6,12 +6,23 @@
(defvar +write-line-spacing nil (defvar +write-line-spacing nil
"What to set `line-spacing' in `+write-mode'.") "What to set `line-spacing' in `+write-mode'.")
(defun +write|init-line-numbers ()
(if +write-mode
(doom|enable-line-numbers)
(doom|disable-line-numbers)))
(defun +write|init-mixed-pitch ()
(mixed-pitch-mode (if +write-mode +1 -1)))
(defun +write|init-visual-fill-column ()
(visual-fill-column-mode (if +write-mode +1 -1)))
(add-hook! '+write-mode-hook (add-hook! '+write-mode-hook
#'(flyspell-mode #'(flyspell-mode
visual-fill-column-mode
visual-line-mode visual-line-mode
mixed-pitch-mode +write|init-mixed-pitch
doom|enable-line-numbers +write|init-visual-fill-column
+write|init-line-numbers
+write|init-org-mode)) +write|init-org-mode))