Welcome to the CHICKEN Scheme pasting service

(use sxml-transforms clojurian-syntax)

(define (extract-headings doc level)
  (->> `((heading *preorder* . 
                  ,(lambda (name children)
                     (and (pair? children)
                          (= level (car children))
                          (cons name children))))
         (*default* . ,(constantly #f)))
       (pre-post-order* doc)
       (filter identity)))

(define doc
  '((heading 1 "foo")
    (paragraph "test")
    (heading 2 "bar")
    (heading 1 "nice")))

(extract-headings doc 1) 
; => ((heading 1 "foo") (heading 1 "nice"))

(extract-headings doc 2)
; => ((heading 2 "bar"))