[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] Separate Org file from Subtree
From: |
John Kitchin |
Subject: |
Re: [O] Separate Org file from Subtree |
Date: |
Mon, 16 Feb 2015 09:59:32 -0500 |
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