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 it. See `pcase' for a powerful pattern matcher which might help you there. Cheers - t
signature.asc
Description: Digital signature
