Change HTML export to use main site CSS

config.org

@@ -606,7 +606,7 @@ Settings for export, mostly for DW post previews but also fic?? And work I guess
 #+BEGIN_SRC emacs-lisp
   (setq org-export-headline-levels 6)
   (setq org-html-head-include-default-style nil)
-  (setq org-html-head "<link rel=\"stylesheet\" type=\"text/css\" href=\"https://tre.praze.net/fic/fic4.css\" />")
+  (setq org-html-head "<link rel=\"stylesheet\" type=\"text/css\" href=\"https://tre.praze.net/main.css\" />")
   (setq org-footnote-define-inline t)
   (setq org-export-with-creator nil)
   (setq org-export-with-toc nil)

custom/html-colour.el

@@ -1,32 +0,0 @@
-(defun red ()
-  "Set exported HTML file to red"
-  (interactive)
-  (setq oldname (concat (file-name-base) ".org"))
-  (setq newname (concat (file-name-base) ".html"))
-  (find-file-noselect newname)
-  (with-current-buffer newname
-    (goto-char (point-min))
-    (replace-regexp-in-region "<div id=\"content\" class=\"content\".*>" "<div id=\"content\" class=\"content\" style=\"--colourone: #a70000;--colourtwo: #f5c1c1;\">")
-    (write-file newname)))
-
-(defun blue ()
-  "Set exported HTML file to blue"
-  (interactive)
-  (setq oldname (concat (file-name-base) ".org"))
-  (setq newname (concat (file-name-base) ".html"))
-  (find-file-noselect newname)
-  (with-current-buffer newname
-    (goto-char (point-min))
-    (replace-regexp-in-region "<div id=\"content\" class=\"content\".*>" "<div id=\"content\" class=\"content\" style=\"--colourone: #002fa7;--colourtwo: #c1d0f5;\">")
-    (write-file newname)))
-
-(defun green ()
-  "Set exported HTML file to green"
-  (interactive)
-  (setq oldname (concat (file-name-base) ".org"))
-  (setq newname (concat (file-name-base) ".html"))
-  (find-file-noselect newname)
-  (with-current-buffer newname
-    (goto-char (point-min))
-    (replace-regexp-in-region "<div id=\"content\" class=\"content\".*>" "<div id=\"content\" class=\"content\" style=\"--colourone: #00a700;--colourtwo: #c1f5c1;\">")
-    (write-file newname)))