[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Problems with Emacs print syntax
From: |
Thorsten Jolitz |
Subject: |
Re: Problems with Emacs print syntax |
Date: |
Tue, 10 Sep 2013 09:49:13 +0200 |
User-agent: |
Gnus/5.130002 (Ma Gnus v0.2) Emacs/24.3 (gnu/linux) |
Thorsten Jolitz <tjolitz@gmail.com> writes:
> Hi List,
>
> this is a question about the org-element parse-tree, but its actually
> about reading 'unreadable' Emacs print syntax, so I ask it here too (in
> a slightly different formulation).
>
> How do I get the printed representation of an org-file parse-tree that can be
> reverted to the original org-file with `'org-element-interpret-data'?
Ups, I just figured out that this actually works:
#+begin_src emacs-lisp
(org-element-interpret-data '#1=(org-data nil #2=(section (:begin
1 :end 20 :contents-begin 1 :contents-end 20 :post-blank
0 :parent #1#) (keyword (:key "OPTIONS" :value "toc:nil" :begin
1 :end 20 :post-blank 0 :post-affiliated 1 :parent #2#)))
#3=(headline (:raw-value "A" :begin 20 :end 26 :pre-blank
0 :hiddenp outline :contents-begin 24 :contents-end 26 :level
1 :priority nil :tags nil :todo-keyword nil :todo-type
nil :post-blank 0 :footnote-section-p nil :archivedp
nil :commentedp nil :quotedp nil :CATEGORY nil :title (#("A" 0
1 (:parent #3#))) :parent #1#) #4=(section (:begin 24 :end
26 :contents-begin 24 :contents-end 26 :post-blank 0 :parent #3#)
#5=(paragraph (:begin 24 :end 26 :contents-begin 24 :contents-end
26 :post-blank 0 :post-affiliated 24 :parent #4#) #("B" 0
2 (:parent #5#)))))))
#+end_src
,--------------------
| "#+OPTIONS: toc:nil
| * A
| B
| "
`--------------------
so using (print-circle t) and quoting the result does the trick.
Sorry for the noise.
--
cheers,
Thorsten