diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2020-08-31 14:24:49 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-08-31 14:24:49 -0700 |
commit | 9638a22e18373b218ee4b9033858290cbbcbec9d (patch) | |
tree | 69a6d15ce6e8a064b14cf0c2771d98b75094e0a8 | |
parent | c3e9271bb72f8307131acc4267622ad24a59efa2 (diff) | |
download | dotfiles-9638a22e18373b218ee4b9033858290cbbcbec9d.tar.gz |
conditionalise insertion of timestamp
Based on my file naming practices.
-rw-r--r-- | .emacs.d/init-spw.el | 13 |
1 files 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")) |