diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-04-07 20:59:26 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-04-10 00:11:17 +0200 |
commit | 0480d0a0d0c4fd1836c9f946b8913dec968e7a60 (patch) | |
tree | 271740c02c668290eb6057ce86609bb55b96ab1e | |
parent | 01d6b355d8b7bd356ec894557e879cd1551eda9d (diff) | |
download | org-mode-0480d0a0d0c4fd1836c9f946b8913dec968e7a60.tar.gz |
ox-html: Add defcustom for timestamps in metadata
* lisp/ox-html.el (org-html-metadata-timestamp-format): New variable,
renamed from `org-html--timestamp-format'.
(org-html--build-meta-info, org-html-format-spec,
org-html--build-pre/postamble): Use new variable.
-rw-r--r-- | lisp/ox-html.el | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/lisp/ox-html.el b/lisp/ox-html.el index a083bc9..e91467b 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -135,10 +135,6 @@ (defvar org-html-format-table-no-css) (defvar htmlize-buffer-places) ; from htmlize.el -(defvar org-html--timestamp-format "%Y-%m-%d %a %H:%M" - "FORMAT used by `format-time-string' for timestamps in -preamble, postamble and metadata.") - (defvar org-html--pre/postamble-class "status" "CSS class used for pre/postamble") @@ -921,6 +917,14 @@ org-info.js for your website." (list :tag "Postamble" (const :format "" postamble) (string :tag " id") (string :tag "element")))) +(defcustom org-html-metadata-timestamp-format "%Y-%m-%d %a %H:%M" + "Format used for timestamps in preamble, postamble and metadata. +See `format-time-string' for more information on its components." + :group 'org-export-html + :version "24.4" + :package-version '(Org . "8.0") + :type 'string) + ;;;; Template :: Mathjax (defcustom org-html-mathjax-options @@ -1441,7 +1445,7 @@ INFO is a plist used as a communication channel." (format (when :time-stamp-file (format-time-string - (concat "<!-- " org-html--timestamp-format " -->\n")))) + (concat "<!-- " org-html-metadata-timestamp-format " -->\n")))) (format "<meta http-equiv=\"Content-Type\" content=\"text/html;charset=%s\"/>\n" (or (and org-html-coding-system @@ -1509,7 +1513,7 @@ INFO is a plist used as a communication channel." used in the preamble or postamble." `((?t . ,(org-export-data (plist-get info :title) info)) (?d . ,(org-export-data (org-export-get-date info) info)) - (?T . ,(format-time-string org-html--timestamp-format)) + (?T . ,(format-time-string org-html-metadata-timestamp-format)) (?a . ,(org-export-data (plist-get info :author) info)) (?e . ,(mapconcat (lambda (e) @@ -1518,7 +1522,7 @@ used in the preamble or postamble." ", ")) (?c . ,(plist-get info :creator)) (?C . ,(let ((file (plist-get info :input-file))) - (format-time-string org-html--timestamp-format + (format-time-string org-html-metadata-timestamp-format (if file (nth 5 (file-attributes file)) (current-time))))) (?v . ,(or org-html-validation-link "")))) @@ -1561,10 +1565,9 @@ communication channel." (format "<p class=\"date\">%s: %s</p>\n" (org-html--translate "Created" info) - (format-time-string org-html--timestamp-format))) + (format-time-string org-html-metadata-timestamp-format))) (when (plist-get info :with-creator) - (format "<p class=\"creator\">%s</p>\n" - creator)) + (format "<p class=\"creator\">%s</p>\n" creator)) (format "<p class=\"xhtml-validation\">%s</p>\n" validation-link)))) (t (format-spec |