Re: [O] Separate Org file from Subtree

[simon]

Thanks very much for this John.  As you say, the normal export "C-c C-e
C-s O o" does not work as expected. Your function exported the
properties properly, but seemed to work on the visible text only and
wouldn't export the content of  headings (unless I unfold them all prior
to import). If the article was like this:

* DONE Article One
 :PROPERTIES:
 :EXPORT_TITLE: An Interesting Article
 :EXPORT_AUTHOR: Simon Jones
:EXPORT_FILE_NAME: an-interesting-article
:EXPORT_DATE: 2015-02-16
 :END:

Article content ....

** Section title
Section content

it would export as intended but without the section content. Thanks
again for your time.

Simon
-------


On Mon, 16 Feb 2015, at 12:54 PM, John Kitchin wrote:
> Change :EXPORT_FILENAME: an-interesting-article to :EXPORT_FILE_NAME:
> an-interesting-article
> 
> Then,
> 
> C-c C-e C-s O o
> 
> should export to that file. I notice in the org export that the
> properties are not getting exported, and even the headline is not
> exported as the title though.
> 
> Here is a function that seems to do what you want.
> 
> #+BEGIN_SRC emacs-lisp
> (defun export-subtree ()
>  (interactive)
>  (let ((fname  (concat (org-entry-get (point) "EXPORT_FILE_NAME")
>  ".org"))
>        (author (org-entry-get (point) "EXPORT_AUTHOR"))
>        (title (org-entry-get (point) "EXPORT_TITLE"))
>        (date (org-entry-get (point) "EXPORT_DATE"))
>        (content (progn (set-buffer (org-org-export-as-org nil t t))
>                    (buffer-string))))
>    ;; warning you can delete something unintentionally
>    (when (file-exists-p fname) (delete-file fname))
>    (find-file fname)
>    (insert "#+TITLE: " title "\n")
>    (insert "#+AUTHOR: " author "\n")
>    (insert "#+DATE: " date "\n")
>    (insert "\n" content)
>    ;; remove properties drawer. Kind of hacky.
>    (goto-char (point-min))
>    (re-search-forward ":PROPERTIES:")
>    (setf (buffer-substring
>           (org-element-property :begin (org-element-context))
>           (org-element-property :end (org-element-context)))
>            "")
>    (save-buffer)))
> 
> (export-subtree)
> #+END_SRC
> 
> address@hidden writes:
> 
> > Hi there,
> >
> > I think I must be missing something.
> >
> > I have  a collection of articles in one org file (under separate
> > headings). I can export these as a subtree using Org's normal export
> > function as html etc., but I want to export the selected subtree as an
> > individual org file using the properties under each heading.)
> >
> > In other words I want to export this subtree ...
> > * DONE Article One
> > :PROPERTIES:
> > :EXPORT_TITLE: An Interesting Article
> > :EXPORT_AUTHOR: Simon Jones
> > :EXPORT_FILENAME: an-interesting-article
> > :EXPORT_DATE: 2015-02-16
> > :END:
> >
> > Article content ....
> >
> > into an Org file entitled 'an-interesting-article.org' that looks like
> > this ...
> >
> > #+TITLE: An Interesting Article
> > #+AUTHOR: Simon Jones
> > #+DATE: 2015-02-16
> >
> > Article content...
> >
> > Can anyone help me with this? I'm very sorry if I'm missing something
> > obvious.
> >
> > Simon.
> 
> --
> Professor John Kitchin
> Doherty Hall A207F
> Department of Chemical Engineering
> Carnegie Mellon University
> Pittsburgh, PA 15213
> 412-268-7803
> @johnkitchin
> http://kitchingroup.cheme.cmu.edu