58dd73030c
setting +write-mode-hook had no effect because +write-mode-hook was not defined yet, it is only defined by the minor mode definition inside autoload.el (which didn't get autoloaded yet). Due to this when activating `+write-mode` the `mixed-pitch-mode` did not get activated. Fix this by moving these all to autoload. Signed-off-by: Edwin Török <edwin@etorok.net>
44 lines
1.2 KiB
EmacsLisp
44 lines
1.2 KiB
EmacsLisp
;;; app/write/autoload.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autoload
|
|
(defvar +write-mode-map (make-sparse-keymap)
|
|
"TODO")
|
|
|
|
;;;###autoload
|
|
(define-minor-mode +write-mode
|
|
"Turns Emacs into a more comfortable writing environment and word processor."
|
|
:init-value nil
|
|
:keymap +write-mode-map
|
|
(setq-local visual-fill-column-center-text t)
|
|
(when +write-text-scale
|
|
(text-scale-set (if +write-mode 2 0)))
|
|
(when +write-line-spacing
|
|
(setq-local line-spacing +write-line-spacing)))
|
|
|
|
;;;###autoload
|
|
(defun +write|init-org-mode ()
|
|
"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))
|