From mboxrd@z Thu Jan  1 00:00:00 1970
From: "Robert H. Klein" <roklein@roklein.de>
Subject: Re: Conditionally formatting org-html-postamble-format
Date: Wed, 27 Jan 2016 20:55:36 +0100
Message-ID: <20160127205536.5fb468ca@lt70.mpip-mainz.mpg.de>
References: <CAFyQvY3Pxvz_wCOa4T8Ho7CfSqksW6tzPWoe=F_8O78DtYVEpA@mail.gmail.com>
	<20160127192600.08cdad14@lt70.mpip-mainz.mpg.de>
	<CAFyQvY1Ndshc_50kPp9XjxXbXHNMU_sUw1+QW-tLGa3Cwe0sRQ@mail.gmail.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:55472)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <roklein@roklein.de>) id 1aOWBs-000280-AU
	for emacs-orgmode@gnu.org; Wed, 27 Jan 2016 14:55:45 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <roklein@roklein.de>) id 1aOWBn-0005p2-7F
	for emacs-orgmode@gnu.org; Wed, 27 Jan 2016 14:55:44 -0500
Received: from mout.kundenserver.de ([212.227.126.135]:57132)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <roklein@roklein.de>) id 1aOWBm-0005ov-Tw
	for emacs-orgmode@gnu.org; Wed, 27 Jan 2016 14:55:39 -0500
In-Reply-To: <CAFyQvY1Ndshc_50kPp9XjxXbXHNMU_sUw1+QW-tLGa3Cwe0sRQ@mail.gmail.com>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=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: Kaushal Modi <kaushal.modi@gmail.com>
Cc: emacs-org list <emacs-orgmode@gnu.org>

Hi Kaushal,

> Thanks for the reply.
> 
> > how about using a postamble function instead of
> > html-postamble-format  
> 
> Does it mean that I need to look into modifying the
> org-html--build-pre/postamble function?
> 
> If so, I will start looking into it but it will take a while as it
> full of elisp that I have never used (until today maybe):
> format-spec, plist-get and a lot of assoc's and assq's :)

No, I have two functions, one for the preamble, one for the postamble,
both returning a string.  In the project alist I set :html-preamble
and :html-postamble to those functions (beware of typos):


  ;; pre- and postamble for html export
  (defun linux-e-preamble (info)
    (with-temp-buffer
      (insert-file-contents "~/linuxdocs/html/preamble.html")    
      (let ((title (car (plist-get info :title))))
        (when title
          (if (stringp title)
              (let ((case-fold-search t)) ; case-insensitive
                (goto-char (point-min))
                (while (search-forward "<org-title />" nil t)
                  (replace-match title))))))
      (buffer-string)))

  (defun linux-e-postamble (info)
    (with-temp-buffer
      (insert-file-contents "~/linuxdocs/html/postamble.html")    
      (buffer-string)))

  ;; add linux to org-publish-poject-alist
  (add-to-list 'org-publish-project-alist
               '("linux-e-html"
                 :base-directory "~/linuxdocs"
                 :base-extension "org"
                 :publishing-directory "~/public_html/linuxdocs"
                 :publishing-function org-html-publish-to-html
                 :html-head "<link rel=\"stylesheet\" type=\"text/css\"
  href=\"css/linuxdocs.css\" />" :html-head-include-default-style nil
                 :html-head-include-scripts nil
                 :html-preamble linux-e-preamble
                 :html-postamble linux-e-postamble
                 ))


Best regards
Robert