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

Add function for adding colour to exported HTML

Browse source
This commit is contained in:
trémeur 2022-08-07 17:54:39 +01:00
parent 2f29030adb
commit 501e8a7004
1 changed files with 29 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

29
custom/html-colour.el Normal file
View file

@ -0,0 +1,29 @@
(defun 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 ()
(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 ()
(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)))