From mboxrd@z Thu Jan 1 00:00:00 1970 From: Dieter Wilhelm Subject: Re: Some %elements in org-html-postamble-format became too "generous" Date: Tue, 09 Apr 2013 07:46:30 +0200 Message-ID: <8738v0mf2h.fsf@duenenhof-wilhelm.de> References: <8761zyzhf5.fsf@duenenhof-wilhelm.de> <87ppy6xzjf.fsf@gmail.com> <87txnixq63.fsf@duenenhof-wilhelm.de> <87li8uxkcd.fsf@gmail.com> <20130407185101.GA22894@BigDog.local> <87sj32w4hg.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([208.118.235.92]:36553) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UPROU-0007tN-Dl for emacs-orgmode@gnu.org; Tue, 09 Apr 2013 01:47:04 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UPROQ-0002NZ-9T for emacs-orgmode@gnu.org; Tue, 09 Apr 2013 01:46:58 -0400 Received: from mail-ee0-f45.google.com ([74.125.83.45]:45644) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UPROQ-0002LX-02 for emacs-orgmode@gnu.org; Tue, 09 Apr 2013 01:46:54 -0400 Received: by mail-ee0-f45.google.com with SMTP id c50so1968531eek.32 for ; Mon, 08 Apr 2013 22:46:52 -0700 (PDT) In-Reply-To: <87sj32w4hg.fsf@gmail.com> (Nicolas Goaziou's message of "Sun, 07 Apr 2013 21:00:27 +0200") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Nicolas Goaziou Cc: emacs-orgmode@gnu.org Nicolas Goaziou writes: > Then what about this patch? Could someone please point me to the docu for applying patches within Emails. I think Bastien has written about keyboard shortcuts for doing this but I can't find his Email... -- Thanks > > Regards, > > -- > Nicolas Goaziou > From 91283eedf89bd8b74b68f127737478a7a9b4d670 Mon Sep 17 00:00:00 2001 > From: Nicolas Goaziou > Date: Sun, 7 Apr 2013 20:59:26 +0200 > Subject: [PATCH] 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. > --- > lisp/ox-html.el | 23 +++++++++++++---------- > 1 file changed, 13 insertions(+), 10 deletions(-) > > diff --git a/lisp/ox-html.el b/lisp/ox-html.el > index d09cc0f..3fe97dd 100644 > --- a/lisp/ox-html.el > +++ b/lisp/ox-html.el > @@ -136,10 +136,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") > > @@ -912,6 +908,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 > @@ -1432,7 +1436,7 @@ INFO is a plist used as a communication channel." > (format > (when :time-stamp-file > (format-time-string > - (concat "\n")))) > + (concat "\n")))) > (format > "\n" > (or (and org-html-coding-system > @@ -1500,7 +1504,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) > @@ -1509,7 +1513,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 "")))) > @@ -1552,10 +1556,9 @@ communication channel." > (format > "

%s: %s

\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 "

%s

\n" > - creator)) > + (format "

%s

\n" creator)) > (format "

%s

\n" > validation-link)))) > (t (format-spec -- Best wishes H. Dieter Wilhelm Darmstadt Germany