Move auto-export on save stuff to new ox-hugo-sugar.el

ox-hugo-sugar.el

@@ -0,0 +1,44 @@
+;;; ox-hugo-sugar.el --- Sugar functions to improve ox-hugo experience -*- lexical-binding: t -*-
+
+;; Authors: Kaushal Modi <kaushal.mod@gmail.com>
+;; URL: https://ox-hugo.scripter.co
+
+;;; Commentary:
+
+;; *This is NOT a stand-alone package.*
+;;
+;; It is used by ox-hugo.
+
+;;; Code:
+
+(defvar org-hugo-allow-export-after-save t
+  "Enable flag for `org-hugo-export-wim-to-md-after-save'.
+When nil, the above function will not export the Org file to
+Hugo-compatible Markdown.
+
+This variable is usually set to nil by the user in
+`org-capture-before-finalize-hook' and set to t again in
+`org-capture-after-finalize-hook', so that the export does not
+happen as soon as a new post is created using Org capture.
+
+Note that the export after save will not work until
+`org-hugo-export-wim-to-md-after-save' is added to the
+`after-save-hook' by the user.")
+
+;;;###autoload
+(defun org-hugo-export-wim-to-md-after-save ()
+  "Fn for `after-save-hook' to run `org-hugo-export-wim-to-md'.
+
+The export is also skipped if `org-hugo-allow-export-after-save'
+is nil.  This variable is intended to be toggled dynamically in
+`org-capture-before-finalize-hook' and
+`org-capture-after-finalize-hook' hooks.  See the ‘Auto-export on
+Saving’ section in this package's documentation for an example."
+  (save-excursion
+    (when org-hugo-allow-export-after-save
+      (org-hugo-export-wim-to-md))))
+
+
+(provide 'ox-hugo-sugar)
+
+;;; ox-hugo-sugar.el ends here

ox-hugo.el

@@ -77,8 +77,9 @@
 (require 'ob-core)                      ;For `org-babel-parse-header-arguments'
 (declare-function org-hugo-pandoc-cite--parse-citations-maybe "ox-hugo-pandoc-cite")
 
-(defvar ffap-url-regexp)                ;Silence byte-compiler
+(require 'ox-hugo-sugar)
 
+(defvar ffap-url-regexp)                ;Silence byte-compiler
 
 ;; Using the correct function for getting inherited Org tags.
 ;; Starting Org 9.2, `org-get-tags' returns all the inherited tags
@@ -136,20 +137,6 @@ Pandoc understands meta-data only in YAML format.  So when Pandoc
 Citations are enabled, Pandoc is handed over the file with this
 YAML front-matter.")
 
-(defvar org-hugo-allow-export-after-save t
-  "Enable flag for `org-hugo-export-wim-to-md-after-save'.
-When nil, the above function will not export the Org file to
-Hugo-compatible Markdown.
-
-This variable is usually set to nil by the user in
-`org-capture-before-finalize-hook' and set to t again in
-`org-capture-after-finalize-hook', so that the export does not
-happen as soon as a new post is created using Org capture.
-
-Note that the export after save will not work until
-`org-hugo-export-wim-to-md-after-save' is added to the
-`after-save-hook' by the user.")
-
 (defvar org-hugo-blackfriday-options
   '("taskLists"
     "smartypants"
@@ -3662,19 +3649,6 @@ approach)."
               (when do-export
                 (org-hugo-export-to-md async subtree visible-only)))))))))
 
-;;;###autoload
-(defun org-hugo-export-wim-to-md-after-save ()
-  "Fn for `after-save-hook' to run `org-hugo-export-wim-to-md'.
-
-The export is also skipped if `org-hugo-allow-export-after-save'
-is nil.  This variable is intended to be toggled dynamically in
-`org-capture-before-finalize-hook' and
-`org-capture-after-finalize-hook' hooks.  See the ‘Auto-export on
-Saving’ section in this package's documentation for an example."
-  (save-excursion
-    (when org-hugo-allow-export-after-save
-      (org-hugo-export-wim-to-md))))
-
 ;;;###autoload
 (defun org-hugo-debug-info ()
   "Get Emacs, Org and Hugo version and ox-hugo customization info.