emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] [PATCH] Allow customization of date and time format


From: Sebastien Vauban
Subject: [O] [PATCH] Allow customization of date and time format
Date: Thu, 08 Mar 2012 11:16:30 +0100
User-agent: Gnus/5.130004 (Ma Gnus v0.4) Emacs/24.0.93 (windows-nt)

>From d4d2f7f32e659269c885a934a131c7aea1ec4798 Mon Sep 17 00:00:00 2001
From: Sebastien Vauban <address@hidden>
Date: Thu, 8 Mar 2012 11:04:00 +0100
Subject: [PATCH] Allow customization of date and time format

Allow customization of date and time format

        * org-html.el (org-export-as-html): Use a variable format
        string for export of date and time.

---
 lisp/org-html.el |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/lisp/org-html.el b/lisp/org-html.el
index bd133b3..72c0e37 100644
--- a/lisp/org-html.el
+++ b/lisp/org-html.el
@@ -653,6 +653,11 @@ postamble DIV."
          (string :tag "  Div for the content:")
          (string :tag "Div for the postamble:")))
 
+(defvar org-export-html-date-format-string "%Y-%m-%dT%R%z"
+  "The string used to format date and time.
+
+Default is an extended format of the ISO 8601 specification.")
+
 ;;; Hooks
 
 (defvar org-export-html-after-blockquotes-hook nil
@@ -1285,7 +1290,7 @@ PUB-DIR is set, use this as the publishing directory."
      ((and date (string-match "%" date))
       (setq date (format-time-string date)))
      (date)
-     (t (setq date (format-time-string "%Y-%m-%d %T %Z"))))
+     (t (setq date (format-time-string org-export-html-date-format-string))))
 
     ;; Get the language-dependent settings
     (setq lang-words (or (assoc language org-export-language-setup)
-- 
1.7.9

Best regards,
  Seb

-- 
Sebastien Vauban




reply via email to

[Prev in Thread] Current Thread [Next in Thread]