emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Dieter Wilhelm <dieter@duenenhof-wilhelm.de>
To: Nicolas Goaziou <n.goaziou@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: Some %elements in org-html-postamble-format became too "generous"
Date: Tue, 09 Apr 2013 07:46:30 +0200	[thread overview]
Message-ID: <8738v0mf2h.fsf@duenenhof-wilhelm.de> (raw)
In-Reply-To: <87sj32w4hg.fsf@gmail.com> (Nicolas Goaziou's message of "Sun, 07 Apr 2013 21:00:27 +0200")

Nicolas Goaziou <n.goaziou@gmail.com> 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 <n.goaziou@gmail.com>
> 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 "<!-- " 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
> @@ -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
>  		       "<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

-- 
Best wishes

H. Dieter Wilhelm
Darmstadt
Germany

  parent reply	other threads:[~2013-04-09  5:47 UTC|newest]

Thread overview: 16+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2013-04-07 11:52 Some %elements in org-html-postamble-format became too "generous" Dieter Wilhelm
2013-04-07 13:04 ` Nicolas Goaziou
2013-04-07 16:26   ` Dieter Wilhelm
2013-04-07 17:35     ` Dieter Wilhelm
2013-04-07 18:35       ` Nicolas Goaziou
2013-04-07 18:32     ` Nicolas Goaziou
2013-04-07 18:51       ` Rick Frankel
2013-04-07 19:00         ` Nicolas Goaziou
2013-04-09  1:55           ` Rick Frankel
2013-04-10 12:44             ` Nicolas Goaziou
2013-04-10 13:15               ` [PATCH] org-contacts.el, add alias properties Feng Shu
2013-04-10 13:18                 ` Bastien
2013-04-09  5:46           ` Dieter Wilhelm [this message]
2013-04-09  9:54             ` Some %elements in org-html-postamble-format became too "generous" Bastien
2013-04-10 18:13           ` Dieter Wilhelm
2013-04-07 20:52       ` Dieter Wilhelm

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=8738v0mf2h.fsf@duenenhof-wilhelm.de \
    --to=dieter@duenenhof-wilhelm.de \
    --cc=emacs-orgmode@gnu.org \
    --cc=n.goaziou@gmail.com \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).