laser.clj

(defn and
  "Like and, but for selectors. Returns true iff all selectors match."
  [& selectors]
  (fn [loc] (every? identity (map #(% loc) selectors))))


(defn and2
  "Like and, but for selectors. Returns true iff all selectors match."
  [& selectors]
  (fn [loc] ((apply every-pred selectors) loc)))

Looks like it!

(defn and
  "Like and, but for selectors. Returns true iff all selectors match."
  [& selectors]
  (partial apply every-pred selectors))

It'd be awesome if you could send me a pull request. Otherwise, I'll change it tomorrow (it's 2AM here).

Oh wow, no way. Edit: I think partial version is returning a function that passes the loc in as an arg to apply.

And yeah sure, I'll send a pull request.