[Top][All Lists]
[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
- [O] [PATCH] Allow customization of date and time format,
Sebastien Vauban <=