ブログ更新の前にHugoとEmacs (ox-hugo) を直すことになった

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14

% hugo server -D
Watching for changes in <省略>
Watching for config changes in <省略>
Start building sites …
hugo v0.169.0+extended+withdeploy darwin/arm64 BuildDate=2026-10-27T14:52:20Z VendorInfo=Homebrew

Built in 35 ms
ERROR error building site: assemble: failed to create page from pageMetaSource <省略>: "<省略>.org:1:1": access denied: "text/org" is not whitelisted in policy "security.allowContent"; the current security configuration is:

[security]
  allowContent = ['! ^text/html$', '! ^text/org$']
  enableInlineShortcodes = false

  <以下、省略>

1
2

[security]
  allowContent = ['! ^text/html$']

1

Point is not in a valid Hugo post subtree; move to one and try again

1
2
3
4
5
6
7

(list
 :org-version (org-version)
 :ox-hugo (symbol-file 'org-hugo-export-wim-to-md)
 :export-name (org-entry-get nil "EXPORT_FILE_NAME" t)
 :valid-subtree
 (save-excursion
   (not (null (org-hugo--get-valid-subtree)))))

1
2
3
4

(:org-version "9.7.11"
 :ox-hugo "/Users/hiroakit/.emacs.d/elpa/ox-hugo-20240305.1923/ox-hugo.elc"
 :export-name "index"
 :valid-subtree t)

1
2
3

Return the Org element for a valid Hugo post subtree.
The condition to check validity is that the EXPORT_FILE_NAME
property is defined for the subtree element.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

(setq user-emacs-directory "~/.emacs.d/")
(package-initialize)

(require 'cl-lib)
(require 'ox-hugo)
(setq debug-on-error t)

(princ (format "Org=%s; ox-hugo=%s\n"
               (org-version) (symbol-file 'org-hugo-export-wim-to-md)))

(let* ((root (make-temp-file "ox-hugo-test-" t))
       (source (expand-file-name "article.org" root))
       (site (expand-file-name "site" root)))
  (make-directory (expand-file-name "content" site) t)
  (find-file source)

  ;; 簡単なOrgエントリの作成
  (insert (format "#+HUGO_BASE_DIR: %s\n#+HUGO_SECTION: posts\n* Test article\n:PROPERTIES:\n:EXPORT_FILE_NAME: ox-hugo-check\n:EXPORT_DATE: 2026-11-10\n:END:\nExpected body.\n** Child heading\nChild body.\n" site))

  (goto-char (point-min))
  (re-search-forward "^Expected body")

  ;; このテストではorg-idのIDインデックス更新を考慮しない。
  ;;
  ;; なお、org-hugo-export-wim-to-mdはorg-id-locationsがnilもしくは空のハッシュテーブルなら自動生成を図る。
  ;; https://github.com/kaushalmodi/ox-hugo/blob/v0.12.1/ox-hugo.el#L4790-L4793
  (let ((org-id-locations nil))
    (cl-letf (((symbol-function 'org-id-update-id-locations) #'ignore))
      (org-hugo-export-wim-to-md)))
  (let ((out (expand-file-name "content/posts/ox-hugo-check.md" site)))
    (unless (file-exists-p out) (error "[ERROR] org-hugo-export-wim-to-md -- Markdown file was not produced: %s" out))
    (with-temp-buffer
      (insert-file-contents out)
      (unless (and (search-forward "Expected body." nil t)
                   (search-forward "Child body." nil t))
        (error "[ERROR] org-hugo-export-wim-to-md -- generated Markdown is missing expected body text")))
    (princ (format "[SUCCESS] org-hugo-export-wim-to-md -- direct export produced Markdown: %s\n" out))))

1
2
3

/Applications/Emacs.app/Contents/MacOS/Emacs \
  --batch -Q \
  -l ox-hugo-test.el

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13

[ox-hugo] Exporting ‘[org-element-deferred org-element-property-2 (:raw-value) nil]’ ..

Debugger entered--Lisp error: (error "[ERROR] org-hugo-export-wim-to-md -- generated Markdown is missing expected body text")
  error("[ERROR] org-hugo-export-wim-to-md -- generated Markdown is missing expected body text")

  <中略>

Org=9.7.11; ox-hugo=/Users/hiroakit/.emacs.d/elpa/ox-hugo-20240305.1923/ox-hugo.elc

Error: error ("[ERROR] org-hugo-export-wim-to-md -- generated Markdown is missing expected body text")
  error("[ERROR] org-hugo-export-wim-to-md -- generated Markdown is missing expected body text")

<以下、省略>

1
2
3
4

(setq user-emacs-directory "~/.emacs.d/")
(package-initialize)
(load-file (expand-file-name "elpa/ox-hugo-20240305.1923/ox-hugo.el" user-emacs-directory))
(load "/path/to/your/ox-hugo-test.el" nil t)

1
2
3

/Applications/Emacs.app/Contents/MacOS/Emacs \
  --batch -Q \
  -l ox-hugo-source-test.el

1
2
3

[ox-hugo] Exporting ‘Test article’ ..
Org=9.7.11; ox-hugo=/Users/hiroakit/.emacs.d/elpa/ox-hugo-20240305.1923/ox-hugo.el
[SUCCESS] org-hugo-export-wim-to-md -- direct export produced Markdown: /var/folders/zs/f7xjhm_157959t0chxsmzz900000gn/T/ox-hugo-test-LlzMtW/site/content/posts/ox-hugo-check.md

1
2
3
4
5
6

(progn
  (require 'org)
  (require 'ox)
  (byte-recompile-directory
   (expand-file-name "~/.emacs.d/elpa/ox-hugo-20240305.1923/")
   0 t))

1
2
3

/Applications/Emacs.app/Contents/MacOS/Emacs \
  --batch -Q \
  -l ox-hugo-test.el

1
2
3
4

[ox-hugo] Exporting ‘Test article’ ..
Org=9.7.11; ox-hugo=/Users/hiroakit/.emacs.d/elpa/ox-hugo-20240305.1923/ox-hugo.elc
[SUCCESS] org-hugo-export-wim-to-md -- direct export produced Markdown:
/var/folders/zs/f7xjhm_157959t0chxsmzz900000gn/T/ox-hugo-test-4XepdV/site/content/posts/ox-hugo-check.md

1
2
3

[ox-hugo] Exporting ‘私のブログ記事’ ..
6 files scanned, 5 files contains IDs, and 156 IDs found.
if: Unable to resolve link; aborting: "FBC92631-D6DE-41D9-B8FF-1DEA6BA5CCF8"

1
2
3
4
5
6

(with-eval-after-load 'org-id
  (when (symbolp org-id-extra-files)
    (setq org-id-extra-files (symbol-value org-id-extra-files)))
  (dolist (file '("~/path/to/your/file-a.org"
                  "~/path/to/your/file-b.org"))
    (add-to-list 'org-id-extra-files (expand-file-name file))))