From 58dd73030c6d61e01a8e50f2836705f81517a865 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Edwin=20T=C3=B6r=C3=B6k?= <edwin@etorok.net>
Date: Wed, 3 Oct 2018 22:58:18 +0100
Subject: [PATCH] +write-mode: initialization functions were not run
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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>
---
 modules/app/write/autoload.el | 21 +++++++++++++++++++++
 modules/app/write/config.el   | 18 ------------------
 2 files changed, 21 insertions(+), 18 deletions(-)

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