emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] How to represent parse-tree so that 'org-element-interpret-data' wor


From: Thorsten Jolitz
Subject: [O] How to represent parse-tree so that 'org-element-interpret-data' works?
Date: Tue, 10 Sep 2013 01:25:49 +0200
User-agent: Gnus/5.130002 (Ma Gnus v0.2) Emacs/24.3 (gnu/linux)

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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]