(require 'org) (setq org-html-style-default "") (setq org-html-postamble (let ((article-name (getenv "FILE_NAME")) (last-commit (getenv "LAST_COMMIT"))) (concat (format "

View source

" last-commit (substring article-name 2)) (format "

View PDF

" (string-replace "org" "pdf" (substring article-name 2)))))) (setq org-html-head-extra (let ((last-commit-date (getenv "LAST_COMMIT_DATE")) (first-commit-date (getenv "FIRST_COMMIT_DATE")) (article-name (getenv "FILE_NAME"))) (concat "" (format "" first-commit-date) (format "" last-commit-date) "" "" (format "" (string-replace "org" "pdf" (substring article-name 2)))))) (setq org-html-preamble (let ((last-commit-date (getenv "LAST_COMMIT_DATE")) (first-commit-date (getenv "FIRST_COMMIT_DATE"))) (if (string= last-commit-date first-commit-date) (concat "

Author: Andrew Rioux

" ; "" "" "

Publish date: " last-commit-date "

") (concat "

Author: Andrew Rioux

" ; "" "" "

Initial publish date: " first-commit-date "

Last modify date: " last-commit-date "

") )))