From 9638a22e18373b218ee4b9033858290cbbcbec9d Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 31 Aug 2020 14:24:49 -0700 Subject: conditionalise insertion of timestamp Based on my file naming practices. --- .emacs.d/init-spw.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/.emacs.d/init-spw.el b/.emacs.d/init-spw.el index 4fa7b01c..f5741722 100644 --- a/.emacs.d/init-spw.el +++ b/.emacs.d/init-spw.el @@ -2388,12 +2388,13 @@ mutt's review view, after exiting EDITOR." (defun spw/process-org-essay-for-pandoc-export () (goto-char (point-max)) (insert "\n\n") - (insert "\n-----\n") - (insert "/This =.docx/.pdf= generated from plain text master/\n\n") - (insert (concat "/at " (format-time-string "%-I:%M%#p %Z, %-d %B %Y") - ;; " by user =" (user-login-name) "=" - ;; " on host =" (system-name) "=" - "/\n")) + (when (string-match "submission" (buffer-file-name)) + (insert "\n-----\n") + (insert "/This =.docx/.pdf= generated from plain text master/\n\n") + (insert (concat "/at " (format-time-string "%-I:%M%#p %Z, %-d %B %Y") + ;; " by user =" (user-login-name) "=" + ;; " on host =" (system-name) "=" + "/\n"))) (insert "* References")) -- cgit v1.2.3