CLSS-LET

clss-let.lisp

;; Yay freedom of expression

(defmacro clss-let (doc bindings &body body)
  "Evaluate BODY after selecting tags specified in BINDINGS from DOC

   BINDINGS should be a list of LET bindings, execept the second element refers
   to a tag in DOC to be bound to the variable.

   e.g (clss-let (plump:parse doc-html)
           ((paragraph \"p.foo\")
            ...)
         (format t (plump:text paragraph)))"
  (let ((bindings-let (iter
                        (for (var sel) in bindings)
                        (collecting `(,var (clss:select ,sel ,doc))))))
    `(let (,@bindings-let)
       ,@body)))