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 "") + (setq org-html-head "") (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 "
" "
") - (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 "
" "
") - (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 "
" "
") - (write-file newname)))