(defmacro defsnippets
 [source & specs]
 `(let [xml# (html-resource ~source)] 
   ~@(map (fn [[name selector args & forms]]
            `(def ~name (snippet xml# ~selector ~args ~@forms)))
       specs)))