diff --git a/modules/app/write/autoload.el b/modules/app/write/autoload.el index 46ebe462b..8a2f21044 100644 --- a/modules/app/write/autoload.el +++ b/modules/app/write/autoload.el @@ -20,3 +20,24 @@ "Initializes `org-mode' specific settings for `+write-mode'." (when (eq major-mode 'org-mode) (+org-pretty-mode (if +write-mode +1 -1)))) + +;;;###autoload +(defun +write|init-line-numbers () + (display-line-numbers-mode (if +write-mode +1 -1))) + +;;;###autoload +(defun +write|init-mixed-pitch () + (mixed-pitch-mode (if +write-mode +1 -1))) + +;;;###autoload +(defun +write|init-visual-fill-column () + (visual-fill-column-mode (if +write-mode +1 -1))) + +;;;###autoload +(add-hook! '+write-mode-hook + #'(flyspell-mode + visual-line-mode + +write|init-mixed-pitch + +write|init-visual-fill-column + +write|init-line-numbers + +write|init-org-mode)) diff --git a/modules/app/write/config.el b/modules/app/write/config.el index ecb6adc01..a4b5e23bb 100644 --- a/modules/app/write/config.el +++ b/modules/app/write/config.el @@ -6,24 +6,6 @@ (defvar +write-line-spacing nil "What to set `line-spacing' in `+write-mode'.") -(defun +write|init-line-numbers () - (display-line-numbers-mode (if +write-mode +1 -1))) - -(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 - #'(flyspell-mode - visual-line-mode - +write|init-mixed-pitch - +write|init-visual-fill-column - +write|init-line-numbers - +write|init-org-mode)) - - ;; ;; Packages