From 40adaa956584ecc48f094be4cffc6cb470ea194f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?tr=C3=A9meur?= Date: Mon, 25 Oct 2021 22:34:15 +0100 Subject: [PATCH] Define export variables locally --- custom/dwpost.el | 14 ++++++++++++++ init.el | 7 ------- 2 files changed, 14 insertions(+), 7 deletions(-) diff --git a/custom/dwpost.el b/custom/dwpost.el index aab92dc..0a421b8 100644 --- a/custom/dwpost.el +++ b/custom/dwpost.el @@ -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) diff --git a/init.el b/init.el index 331e3f6..89f1741 100644 --- a/init.el +++ b/init.el @@ -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