Define export variables locally

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)

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