From 72b7da234d517a5c46589d6158f809f9cd5c5563 Mon Sep 17 00:00:00 2001 From: Ruijie Yu Date: Tue, 11 Apr 2023 23:15:05 +0800 Subject: [PATCH 15/16] * publish.sh: allow using locale-specific postamble (get-postamble): Took the sexp from `setq' on `org-html-postamble-format' and converted into a function. (setq org-html-postamble-format): specified a zh-CN-specific postamble file. --- publish.sh | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/publish.sh b/publish.sh index a8b66d2..00184ff 100755 --- a/publish.sh +++ b/publish.sh @@ -13,6 +13,12 @@ (setq make-backup-files nil debug-on-error t) +(defun get-postamble (root-dname) + (with-temp-buffer + (insert-file-contents-literally + (expand-file-name "resources/postamble.html" root-dname)) + (buffer-substring-no-properties (point-min) (point-max)))) + (setq org-confirm-babel-evaluate nil org-html-style-default "" org-html-scripts "" @@ -22,9 +28,8 @@ org-html-validation-link nil org-html-postamble t org-html-postamble-format - `(("en" ,(with-temp-buffer - (insert-file-contents-literally "./resources/postamble.html") - (buffer-substring-no-properties (point-min) (point-max)))))) + `(("en" ,(get-postamble ".")) + ("zh-CN" ,(get-postamble "zh-CN")))) (dolist (org-file (directory-files-recursively default-directory "\\.org$")) (let ((html-file (concat (file-name-directory org-file) -- 2.40.0