From d06393de9a814db998c128b66bc8a8ce3e597293 Mon Sep 17 00:00:00 2001
From: Lei Wang <tendant@gmail.com>
Date: Mon, 5 Dec 2022 20:24:20 -0800
Subject: [PATCH] Add customization for content folder

---
 ox-hugo.el | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/ox-hugo.el b/ox-hugo.el
index 631ef57d..557379c4 100644
--- a/ox-hugo.el
+++ b/ox-hugo.el
@@ -265,6 +265,15 @@ export."
   :type 'directory)
 ;;;###autoload (put 'org-hugo-base-dir 'safe-local-variable 'stringp)
 
+(defcustom org-hugo-content-folder "content"
+  "Content folder for Hugo.
+
+Set either this value, or the HUGO_BASE_CONTENT_FOLDER global property for
+export."
+  :group 'org-export-hugo
+  :type 'string)
+;;;###autoload (put 'org-hugo-content-folder 'safe-local-variable 'stringp)
+
 (defcustom org-hugo-goldmark t
   "Enable Goldmark or Commonmark compatible Markdown export.
 
@@ -807,6 +816,7 @@ The software list is taken from https://www.gnu.org/software/."
                    (:hugo-section "HUGO_SECTION" nil org-hugo-section)
                    (:hugo-bundle "HUGO_BUNDLE" nil nil)
                    (:hugo-base-dir "HUGO_BASE_DIR" nil org-hugo-base-dir)
+                   (:hugo-base-dir "HUGO_BASE_CONTENT_FOLDER" nil org-hugo-content-folder)
                    (:hugo-goldmark "HUGO_GOLDMARK" nil org-hugo-goldmark)
                    (:hugo-code-fence "HUGO_CODE_FENCE" nil t) ;Prefer to generate triple-backquoted Markdown code blocks by default.
                    (:hugo-use-code-for-kbd "HUGO_USE_CODE_FOR_KBD" nil org-hugo-use-code-for-kbd)
@@ -1356,7 +1366,7 @@ INFO is a plist used as a communication channel."
   (let* ((base-dir (if (plist-get info :hugo-base-dir)
                        (file-name-as-directory (plist-get info :hugo-base-dir))
                      (user-error "It is mandatory to set the HUGO_BASE_DIR property or the `org-hugo-base-dir' local variable")))
-         (content-dir "content/")
+         (content-dir (concat org-hugo-content-folder "/"))
          (section-path (org-hugo--get-section-path info))
          (bundle-dir (let ((bundle-path (or ;Hugo bundle set in the post subtree gets higher precedence
                                          (org-hugo--entry-get-concat nil "EXPORT_HUGO_BUNDLE" "/")
@@ -3204,7 +3214,7 @@ INFO is a plist used as a communication channel."
          (bundle-name (when bundle-dir
                         (let* ((content-dir (file-truename
                                              (file-name-as-directory
-                                              (expand-file-name "content" hugo-base-dir))))
+                                              (expand-file-name org-hugo-content-folder hugo-base-dir))))
                                (is-home-branch-bundle (string= bundle-dir content-dir)))
                           (cond
                            (is-home-branch-bundle
@@ -4307,6 +4317,7 @@ are \"toml\" and \"yaml\"."
                      "HUGO_SECTION_FRAG"
                      "HUGO_BUNDLE"
                      "HUGO_BASE_DIR"
+                     "HUGO_BASE_CONTENT_FOLDER"
                      "HUGO_GOLDMARK"
                      "HUGO_CODE_FENCE"
                      "HTML_CONTAINER"