app/write: conform hooks to conventions

This commit is contained in:
Henrik Lissner 2019-11-25 16:20:53 -05:00
parent 69366ed674
commit 811dbc4e68
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -16,28 +16,28 @@
(setq-local line-spacing +write-line-spacing))) (setq-local line-spacing +write-line-spacing)))
;;;###autoload ;;;###autoload
(defun +write|init-org-mode () (defun +write-init-org-mode-h ()
"Initializes `org-mode' specific settings for `+write-mode'." "Initializes `org-mode' specific settings for `+write-mode'."
(when (eq major-mode 'org-mode) (when (eq major-mode 'org-mode)
(+org-pretty-mode (if +write-mode +1 -1)))) (+org-pretty-mode (if +write-mode +1 -1))))
;;;###autoload ;;;###autoload
(defun +write|init-line-numbers () (defun +write-init-line-numbers-h ()
(display-line-numbers-mode (if +write-mode +1 -1))) (display-line-numbers-mode (if +write-mode +1 -1)))
;;;###autoload ;;;###autoload
(defun +write|init-mixed-pitch () (defun +write-init-mixed-pitch-h ()
(mixed-pitch-mode (if +write-mode +1 -1))) (mixed-pitch-mode (if +write-mode +1 -1)))
;;;###autoload ;;;###autoload
(defun +write|init-visual-fill-column () (defun +write-init-visual-fill-column-h ()
(visual-fill-column-mode (if +write-mode +1 -1))) (visual-fill-column-mode (if +write-mode +1 -1)))
;;;###autoload ;;;###autoload
(add-hook! '+write-mode-hook (add-hook! '+write-mode-hook
#'(flyspell-mode #'(flyspell-mode
visual-line-mode visual-line-mode
+write|init-mixed-pitch +write-init-mixed-pitch-h
+write|init-visual-fill-column +write-init-visual-fill-column-h
+write|init-line-numbers +write-init-line-numbers-h
+write|init-org-mode)) +write-init-org-mode-h))