app/write: fix +write-mode not disabling other modes
This commit is contained in:
parent
0a746bdf1e
commit
9079fdd9ec
1 changed files with 14 additions and 3 deletions
|
@ -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))
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue