* How to represent parse-tree so that 'org-element-interpret-data' works?
@ 2013-09-09 23:25 Thorsten Jolitz
2013-09-10 7:50 ` Thorsten Jolitz
0 siblings, 1 reply; 2+ messages in thread
From: Thorsten Jolitz @ 2013-09-09 23:25 UTC (permalink / raw)
To: emacs-orgmode
Hi List,
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'?
No matter if I use print, princ, prin1, (format "%s" ....) or (format "%S"
...) to get the parse-tree in textual form, with or without setting
(print-circle nil), there are always errors.
E.g. given file tmp.org:
,-------------------
| #+options: toc:nil
| * A
| B
`-------------------
#+begin_src emacs-lisp
(with-current-buffer "tmp.org"
(org-element-interpret-data (org-element-parse-buffer)))
#+end_src
yields:
,--------------------
| "#+OPTIONS: toc:nil
| * A
| B
| "
`--------------------
but, e.g., this
#+begin_src emacs-lisp
(with-current-buffer "tmp.org"
(print (org-element-parse-buffer)))
#+end_src
yields:
#+begin_src emacs-lisp
(org-data nil (section (:begin 1 :end 20 :contents-begin
1 :contents-end 20 :post-blank 0 :parent
#0) (keyword (:key "OPTIONS" :value "toc:nil" :begin 1 :end
20 :post-blank 0 :post-affiliated 1 :parent
#1))) (headline (:raw-value "A" :begin 20 :end 26 :pre-blank
0 :hiddenp nil :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 #1))) :parent #0) (section (:begin 24 :end
26 :contents-begin 24 :contents-end 26 :post-blank 0 :parent
#1) (paragraph (:begin 24 :end 26 :contents-begin
24 :contents-end 26 :post-blank 0 :post-affiliated 24 :parent #2)
#("B" 0 2 (:parent #3))))))
#+end_src
what can't be used with 'org-element-interpret-data.
--
cheers,
Thorsten
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: How to represent parse-tree so that 'org-element-interpret-data' works?
2013-09-09 23:25 How to represent parse-tree so that 'org-element-interpret-data' works? Thorsten Jolitz
@ 2013-09-10 7:50 ` Thorsten Jolitz
0 siblings, 0 replies; 2+ messages in thread
From: Thorsten Jolitz @ 2013-09-10 7:50 UTC (permalink / raw)
To: emacs-orgmode
Thorsten Jolitz <tjolitz@gmail.com> writes:
> Hi List,
> 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
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2013-09-10 7:55 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2013-09-09 23:25 How to represent parse-tree so that 'org-element-interpret-data' works? Thorsten Jolitz
2013-09-10 7:50 ` Thorsten Jolitz
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.