[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Accepted] [Orgmode] body-only property for publishing projects
From: |
Carsten Dominik |
Subject: |
[Accepted] [Orgmode] body-only property for publishing projects |
Date: |
Mon, 23 Aug 2010 13:34:45 +0200 (CEST) |
Patch 228 (http://patchwork.newartisans.com/patch/228/) is now "Accepted".
Maintainer comment: none
This relates to the following submission:
http://mid.gmane.org/%3C4C6D081E.1050202%40gmail.com%3E
Here is the original message containing the patch:
> Content-Type: text/plain; charset="utf-8"
> MIME-Version: 1.0
> Content-Transfer-Encoding: 7bit
> Subject: [Orgmode] body-only property for publishing projects
> Date: Thu, 19 Aug 2010 15:31:58 -0000
> From: Harri Kiiskinen <address@hidden>
> X-Patchwork-Id: 228
> Message-Id: <address@hidden>
> To: Org-mode list <address@hidden>
>
> 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.
>
>
> 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 <body> 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)
>