You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
30 lines
1.2 KiB
EmacsLisp
30 lines
1.2 KiB
EmacsLisp
2 years ago
|
(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)))
|