sel.clj

(defn selector [data]
  (cond
   (or (string? data) (keyword? data)) (name data)
   (coll? data) (clojure.string/join " " (map selector data))))

(defmacro sel
  ([data]
     `(sel ~data js/document))
  ([data base]
     `(.querySelector ~base ~(selector data))))