mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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.
This commit is contained in:
Nicolas Goaziou 2013-04-07 20:59:26 +02:00
parent 01d6b355d8
commit 0480d0a0d0
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lisp/ox-html.el
View File

@ -135,10 +135,6 @@
(defvar org-html-format-table-no-css) (defvar org-html-format-table-no-css)
(defvar htmlize-buffer-places) ; from htmlize.el (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" (defvar org-html--pre/postamble-class "status"
"CSS class used for pre/postamble") "CSS class used for pre/postamble")
@ -921,6 +917,14 @@ org-info.js for your website."
(list :tag "Postamble" (const :format "" postamble) (list :tag "Postamble" (const :format "" postamble)
(string :tag " id") (string :tag "element")))) (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 ;;;; Template :: Mathjax
(defcustom org-html-mathjax-options (defcustom org-html-mathjax-options
@ -1441,7 +1445,7 @@ INFO is a plist used as a communication channel."
(format (format
(when :time-stamp-file (when :time-stamp-file
(format-time-string (format-time-string
(concat "<!-- " org-html--timestamp-format " -->\n")))) (concat "<!-- " org-html-metadata-timestamp-format " -->\n"))))
(format (format
"<meta http-equiv=\"Content-Type\" content=\"text/html;charset=%s\"/>\n" "<meta http-equiv=\"Content-Type\" content=\"text/html;charset=%s\"/>\n"
(or (and org-html-coding-system (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." used in the preamble or postamble."
`((?t . ,(org-export-data (plist-get info :title) info)) `((?t . ,(org-export-data (plist-get info :title) info))
(?d . ,(org-export-data (org-export-get-date info) 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)) (?a . ,(org-export-data (plist-get info :author) info))
(?e . ,(mapconcat (?e . ,(mapconcat
(lambda (e) (lambda (e)
@ -1518,7 +1522,7 @@ used in the preamble or postamble."
", ")) ", "))
(?c . ,(plist-get info :creator)) (?c . ,(plist-get info :creator))
(?C . ,(let ((file (plist-get info :input-file))) (?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)) (if file (nth 5 (file-attributes file))
(current-time))))) (current-time)))))
(?v . ,(or org-html-validation-link "")))) (?v . ,(or org-html-validation-link ""))))
@ -1561,10 +1565,9 @@ communication channel."
(format (format
"<p class=\"date\">%s: %s</p>\n" "<p class=\"date\">%s: %s</p>\n"
(org-html--translate "Created" info) (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) (when (plist-get info :with-creator)
(format "<p class=\"creator\">%s</p>\n" (format "<p class=\"creator\">%s</p>\n" creator))
creator))
(format "<p class=\"xhtml-validation\">%s</p>\n" (format "<p class=\"xhtml-validation\">%s</p>\n"
validation-link)))) validation-link))))
(t (format-spec (t (format-spec