tre/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change HTML export to use main site CSS

Browse source
This commit is contained in:
mez 2024-05-20 21:46:10 +01:00
parent 6b46efd425
commit b86538652e
2 changed files with 1 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

32
custom/html-colour.el
View file

@ -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)))