Re: [O] Separate Org file from Subtree

[simon]

That's perfect John, works a treat!

Thank you very much.

Simon.
-------

On Mon, 16 Feb 2015, at 02:59 PM, John Kitchin wrote:
> I think if you change (org-org-export-as-org nil t t) to
> (org-org-export-as-org nil t) you would get the section content. I
> didn't test it though.
> 
> address@hidden writes:
> 
> > 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
> 
> --
> 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