12 lines
255 B
EmacsLisp
12 lines
255 B
EmacsLisp
(defun org-dump-ast (outpath)
|
|
(let
|
|
(
|
|
;; (parsed-tree (format "%s" (org-element-parse-buffer)))
|
|
(parsed-tree (pp-to-string (org-element-parse-buffer)))
|
|
)
|
|
(with-temp-file outpath
|
|
(insert parsed-tree)
|
|
)
|
|
)
|
|
)
|