From b86538652e844cfbff399672b3a7e6ccf67c1191 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?tr=C3=A9meur?= <git@praze.net>
Date: Mon, 20 May 2024 21:46:10 +0100
Subject: [PATCH] Change HTML export to use main site CSS

---
 config.org            |  2 +-
 custom/html-colour.el | 32 --------------------------------
 2 files changed, 1 insertion(+), 33 deletions(-)
 delete mode 100644 custom/html-colour.el

diff --git a/config.org b/config.org
index de341ed..3124ccb 100644
--- a/config.org
+++ b/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)
diff --git a/custom/html-colour.el b/custom/html-colour.el
deleted file mode 100644
index f4f756f..0000000
--- a/custom/html-colour.el
+++ /dev/null
@@ -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)))