From: simon@psilas.com
To: John Kitchin <jkitchin@andrew.cmu.edu>
Cc: emacs-orgmode@gnu.org
Subject: Re: Separate Org file from Subtree
Date: Mon, 16 Feb 2015 14:40:59 +0000 [thread overview]
Message-ID: <1424097659.1889829.228103853.29471F3B@webmail.messagingengine.com> (raw)
In-Reply-To: <m28ufyow2x.fsf@andrew.cmu.edu>
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
>
> simon@psilas.com 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
next prev parent reply other threads:[~2015-02-16 14:41 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-02-16 10:41 Separate Org file from Subtree simon
2015-02-16 12:54 ` John Kitchin
2015-02-16 14:40 ` simon [this message]
2015-02-16 14:59 ` John Kitchin
2015-02-16 15:30 ` simon
2015-08-05 0:00 ` Bastien Guerry
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=1424097659.1889829.228103853.29471F3B@webmail.messagingengine.com \
--to=simon@psilas.com \
--cc=emacs-orgmode@gnu.org \
--cc=jkitchin@andrew.cmu.edu \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.