CI: Odd tweaks that seem to be needed

config.org

@@ -751,16 +751,17 @@ if the system doesn't have any of those fonts.
 
 (if missing-fonts
     (pp-to-string
-     `(add-hook! 'doom-init-ui-hook
-        (run-at-time nil nil
-                     (lambda ()
-                       (message "%s missing the following fonts: %s"
-                                (propertize "Warning!" 'face '(bold warning))
-                                (mapconcat (lambda (font)
-                                             (propertize font 'face 'font-lock-variable-name-face))
-                                           ',missing-fonts
-                                           ", "))
-                       (sleep-for 0.5)))))
+     `(unless noninteractive
+        (add-hook! 'doom-init-ui-hook
+          (run-at-time nil nil
+                       (lambda ()
+                         (message "%s missing the following fonts: %s"
+                                  (propertize "Warning!" 'face '(bold warning))
+                                  (mapconcat (lambda (font)
+                                               (propertize font 'face 'font-lock-variable-name-face))
+                                             ',missing-fonts
+                                             ", "))
+                         (sleep-for 0.5))))))
   ";; No missing fonts detected")
 #+end_src
 

misc/config-publishing/initialise.el

@@ -84,6 +84,8 @@
     (explain-pause-mode -1))
 
   (setq emojify-download-emojis-p t)
+  (unless (boundp 'image-types) ; why on earth is this needed?
+    (setq image-types '(svg png gif tiff jpeg xpm xbm pbm)))
 
   (after! undo-tree
     (global-undo-tree-mode -1)

misc/config-publishing/org-html.sh

@@ -1,7 +1,7 @@
 #!/usr/bin/env sh
 ":"; exec emacs --quick --script "$0" -- "$@" # -*- mode: emacs-lisp; lexical-binding: t; -*-
 
-(setq log-file (format "%s-log.txt" (file-name-base load-file-name)))
+(setq log-file (expand-file-name (format "%s-log.txt" (file-name-base load-file-name))))
 
 (load (expand-file-name "initialise.el" (file-name-directory load-file-name)) nil t)
 (initialise t)

misc/config-publishing/org-pdf.sh

@@ -1,7 +1,7 @@
 #!/usr/bin/env sh
 ":"; exec emacs --quick --script "$0" -- "$@" # -*- mode: emacs-lisp; lexical-binding: t; -*-
 
-(setq log-file (format "%s-log.txt" (file-name-base load-file-name)))
+(setq log-file (expand-file-name (format "%s-log.txt" (file-name-base load-file-name))))
 
 (load (expand-file-name "initialise.el" (file-name-directory load-file-name)) nil t)
 (initialise t)