From mboxrd@z Thu Jan 1 00:00:00 1970 From: Harri Kiiskinen Subject: [PATCH] body-only property for publishing projects Date: Thu, 19 Aug 2010 13:31:58 +0300 Message-ID: <4C6D081E.1050202@gmail.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------060609050501060507080408" Return-path: Received: from [140.186.70.92] (port=41517 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Om2Pj-0003Ul-UW for emacs-orgmode@gnu.org; Thu, 19 Aug 2010 06:32:05 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1Om2Pi-0005wE-9f for emacs-orgmode@gnu.org; Thu, 19 Aug 2010 06:32:03 -0400 Received: from mail-ey0-f169.google.com ([209.85.215.169]:43579) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1Om2Pi-0005w6-3C for emacs-orgmode@gnu.org; Thu, 19 Aug 2010 06:32:02 -0400 Received: by eyg7 with SMTP id 7so1156485eyg.0 for ; Thu, 19 Aug 2010 03:32:01 -0700 (PDT) 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: Org-mode list This is a multi-part message in MIME format. --------------060609050501060507080408 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit Dear All, I had a look at the code and did some experimenting. The resulting patch is attached, and it adds the :body-only property to publishing, so that one can decide to publish the file with only the document included. Best, Harri Kiiskinen PS. For some reason, I do not get copies of the messages I send to the list, even though I have selected that option in the settings. That's why this is not a response to my original mails. --------------060609050501060507080408 Content-Type: text/x-patch; name="org-publish.el.diff" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="org-publish.el.diff" diff --git a/lisp/org-publish.el b/lisp/org-publish.el index 4bf2031..cae7be6 100644 --- a/lisp/org-publish.el +++ b/lisp/org-publish.el @@ -189,7 +189,14 @@ sitemap of files or summary page for a given project. The following properties control the creation of a concept index. - :makeindex Create a concept index." + :makeindex Create a concept index. + +Other properties affecting publication. + + :body-only Set this to 't' to publish only the body of the + documents, excluding everything outside and + including the tags in HTML, or + \begin{document}..\end{document} in LaTeX." :group 'org-publish :type 'alist) @@ -513,7 +520,9 @@ PUB-DIR is the publishing directory." (setq export-buf-or-file (funcall (intern (concat "org-export-as-" format)) (plist-get plist :headline-levels) - nil plist nil nil pub-dir)) + nil plist nil + (plist-get plist :body-only) + pub-dir)) (when (and (bufferp export-buf-or-file) (buffer-live-p export-buf-or-file)) (set-buffer export-buf-or-file) --------------060609050501060507080408 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --------------060609050501060507080408--