Publish workflow: implement file moving in scripts

It makes sense to put the decisions of which files to publish with the
generation of said files.

.github/workflows/publish.yml

@@ -55,19 +55,7 @@ jobs:
         run: ~/.emacs.d/bin/doom install --no-env --no-fonts
 
       - name: Export config
-        run: |
-          cd ~/.config/doom/misc
-          ./config-publishing/publish.sh
-          cp ../config.html ../index.html
-
-      - name: Move files of interest to the publish subdir
-        if: ${{ github.event_name != 'pull_request'}}
-        run: |
-          cd ~/.config/doom
-          mkdir ./publish
-          mv *.html ./publish
-          mkdir ./publish/misc
-          mv ./misc/*.svg ./publish/misc/
+        run: ~/.config/doom/misc/config-publishing/publish.sh
 
       - name: Deploy
         if: ${{ github.event_name != 'pull_request'}}

misc/config-publishing/htmlize.sh

@@ -48,6 +48,7 @@
   </style>\n")
         (let ((inhibit-message t))
           (write-file output-file)
+          (publish output-file)
           (kill-buffer (current-buffer))))
       (kill-buffer (current-buffer)))))
 

misc/config-publishing/initialise.el

@@ -18,6 +18,8 @@
 
 (write-region "" nil log-file)
 
+;;; Messaging
+
 (defvar message-colour nil)
 
 (defun logged-message (msg)
@@ -58,6 +60,8 @@
   (advice-add 'debug :around #'red-error)
   (advice-add 'message :around #'timed-coloured-message))
 
+;;; Initialisation
+
 (defun initialise ()
   (advice-add 'theme-magic-from-emacs :override #'ignore)
   (advice-add 'format-all-buffer :override #'ignore)
@@ -70,3 +74,31 @@
   (when (and (featurep 'undo-tree) global-undo-tree-mode)
     (global-undo-tree-mode -1)
     (advice-add 'undo-tree-save-history :override #'ignore)))
+
+;;; Publishing
+
+(defvar publish-dir (expand-file-name "publish/" config-root))
+
+(defvar known-existing-dirs (list config-root))
+(defun ensure-dir-exists (file-or-dir)
+  (let ((dir (file-name-directory (expand-file-name file-or-dir config-root))))
+    (unless (member dir known-existing-dirs)
+      (unless (file-exists-p dir)
+        (make-directory dir t))
+      (push dir known-existing-dirs))))
+
+(defun publish (&rest files)
+  "Move each file into `publish'.
+Names containing \"*\" are treate as a glob."
+  (dolist (file files)
+    (if (string-match-p "\\*" file)
+        (apply #'publish
+               (directory-files (expand-file-name (or (file-name-directory file) "./") config-root)
+                                t
+                                (dired-glob-regexp (file-name-nondirectory file))))
+      (message (concat (when message-colour "[34] ") "Publishing %s") file)
+      (let ((target (replace-regexp-in-string (regexp-quote config-root)
+                                              publish-dir
+                                              (expand-file-name file config-root))))
+        (ensure-dir-exists target)
+        (rename-file (expand-file-name file config-root) target t)))))

misc/config-publishing/org-exporter.sh

@@ -16,6 +16,11 @@
   (message "[33] Exporting %s" (buffer-file-name))
   (org-html-export-to-html))
 
+(make-symbolic-link (expand-file-name "config.html" config-root)
+                    (expand-file-name "index.html" config-root))
+
+(publish "config.html" "index.html" "misc/*.svg")
+
 (message "[1;32] Config export complete!")
 
 (setq inhibit-message t)