From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: [PATCH] Allow functions for HTML export preamble and postamble Date: Mon, 6 Jul 2009 18:13:44 +0200 Message-ID: <5A522359-6AB3-4BE3-8B0C-5E75565350D4@gmail.com> References: <87vdm9sch6.fsf@delenn.lan> Mime-Version: 1.0 (Apple Message framework v935.3) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MNrKZ-0007rk-Ps for emacs-orgmode@gnu.org; Mon, 06 Jul 2009 12:46:15 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MNrKW-0007lH-2K for emacs-orgmode@gnu.org; Mon, 06 Jul 2009 12:46:15 -0400 Received: from [199.232.76.173] (port=34789 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MNrKV-0007kn-Es for emacs-orgmode@gnu.org; Mon, 06 Jul 2009 12:46:11 -0400 Received: from mail-ew0-f208.google.com ([209.85.219.208]:48583) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1MNrKU-0002zd-VJ for emacs-orgmode@gnu.org; Mon, 06 Jul 2009 12:46:11 -0400 Received: by mail-ew0-f208.google.com with SMTP id 4so4952932ewy.42 for ; Mon, 06 Jul 2009 09:46:10 -0700 (PDT) In-Reply-To: <87vdm9sch6.fsf@delenn.lan> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Andreas Rottmann Cc: org-mode mailing list Hi Andreas, I like the patch and have applied it. This is on the border of something where I need a copyright assignment. Mind to send one to the FSF? - Carsten On Jul 3, 2009, at 11:06 PM, Andreas Rottmann wrote: > Hi! > > Well, the subject says it all -- attached is a rough patch to allow > more > flexibility with the HTML export; I use it like this: > > (defun rotty/homepage-preamble (opt-plist) > (insert "
") > (insert > " >
> Home > | Writings > | Software > | Blog >
> ") > (insert (format > "

rotty > %s h1>\n" > (plist-get opt-plist :title))) > (insert "

\n") > (insert "
\n")) > > Note that this is my first real patch to org-mode, so be gentle ;-). > > From: Andreas Rottmann > Subject: [PATCH] Allow functions for {pre/post}amble > > > --- > lisp/org-html.el | 13 +++++++++++-- > 1 files changed, 11 insertions(+), 2 deletions(-) > > diff --git a/lisp/org-html.el b/lisp/org-html.el > index ee72065..be4ddfd 100644 > --- a/lisp/org-html.el > +++ b/lisp/org-html.el > @@ -606,6 +606,7 @@ PUB-DIR is set, use this as the publishing > directory." > (file-name-sans-extension > (file-name-nondirectory buffer-file-name))) > "UNTITLED")) > + (custom-plist (org-combine-plists (list :title title) opt- > plist)) > (html-table-tag (plist-get opt-plist :html-table-tag)) > (quote-re0 (concat "^[ \t]*" org-quote-string "\\>")) > (quote-re (concat "^\\(\\*+\\)\\([ \t]+" org-quote-string "\\>\ > \)")) > @@ -745,7 +746,7 @@ lang=\"%s\" xml:lang=\"%s\"> > date author description keywords > style)) > > - (insert (or (plist-get opt-plist :preamble) "")) > + (org-export-html-insert-plist-item opt-plist :preamble > custom-plist) > > (when (plist-get opt-plist :auto-preamble) > (if title (insert (format org-export-html-title-format > @@ -1372,7 +1373,7 @@ lang=\"%s\" xml:lang=\"%s\"> > > (if org-export-html-with-timestamp > (insert org-export-html-html-helper-timestamp)) > - (insert (or (plist-get opt-plist :postamble) "")) > + (org-export-html-insert-plist-item opt-plist :postamble > custom-plist) > (insert "\n
\n\n\n")) > > (unless (plist-get opt-plist :buffer-will-be-killed) > @@ -1425,6 +1426,14 @@ lang=\"%s\" xml:lang=\"%s\"> > (kill-buffer (current-buffer))) > (current-buffer))))) > > +(defun org-export-html-insert-plist-item (plist key &rest args) > + (let ((item (plist-get plist key))) > + (cond ((functionp item) > + (apply item args)) > + (item > + (insert item))))) > + > + > (defun org-export-html-format-href (s) > "Make sure the S is valid as a href reference in an XHTML document." > (save-match-data > -- > tg: (0795e42..) t/html-export-amble-funtions (depends on: master) > > Regards, Rotty > _______________________________________________ > Emacs-orgmode mailing list > Remember: use `Reply All' to send replies to the list. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode