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

Define export variables locally

Browse source
This commit is contained in:
trémeur 2021-10-25 22:34:15 +01:00
parent e3516e15a4
commit 40adaa9565
2 changed files with 14 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
custom/dwpost.el
View file

@ -1,5 +1,12 @@
(defun dwpost (psubject)
(interactive "MPost title (REQUIRED): ")
(setq org-export-with-author 'nil)
(setq org-export-with-creator 'nil)
(setq org-export-with-date 'nil)
(setq org-export-with-section-numbers 'nil)
(setq org-export-time-stamp-file 'nil)
(setq org-export-with-toc 'nil)
(setq org-html-validation-link 'nil)
(org-html-export-to-html)
(defvar newname (concat (file-name-base) ".html"))
(find-file-noselect newname)
@ -16,6 +23,13 @@
(defun dwpost-public (psubject)
(interactive "MPost title (REQUIRED): ")
(setq org-export-with-author 'nil)
(setq org-export-with-creator 'nil)
(setq org-export-with-date 'nil)
(setq org-export-with-section-numbers 'nil)
(setq org-export-time-stamp-file 'nil)
(setq org-export-with-toc 'nil)
(setq org-html-validation-link 'nil)
(org-html-export-to-html)
(defvar newname (concat (file-name-base) ".html"))
(find-file-noselect newname)

7
init.el
View file

@ -350,13 +350,6 @@
(load-file "~/mail.el")
(require 'mu4e)
(setq send-mail-function 'smtpmail-send-it)
(setq org-export-with-author 'nil)
(setq org-export-with-creator 'nil)
(setq org-export-with-date 'nil)
(setq org-export-with-section-numbers 'nil)
(setq org-export-time-stamp-file 'nil)
(setq org-export-with-toc 'nil)
(setq org-html-validation-link 'nil)
(load-file "~/.emacs.d/custom/dwpost.el"))
;; Aesthetics