On Wed, Sep 16, 2020 at 02:09:42PM +0200, Przemysław Kamiński wrote:


> So I looked at (pp (org-element-parse-buffer)) however it does print
> out recursive stuff which other schemes have trouble parsing.
> My code looks more or less like this:
> (defun org-parse (f)
>   (with-temp-buffer
>     (find-file f)
>     (let* ((parsed (org-element-parse-buffer))
>            (all (append org-element-all-elements org-element-all-objects))
>            (mapped (org-element-map parsed all
>                      (lambda (item)
>                        (strip-parent item)))))
>       (pp mapped))))

Actually I'd tend to not modify the result, but to walk

See `pcase' for a powerful pattern matcher which might
help you there.

 - t

Attachment: signature.asc
Description: Digital signature

Reply via email to