A 'find' function in Clojurescript that matches all key/values - clojurescript

Question

I'm interested in creating a function like the one shown below using just core functions in Clojurescript.
var props = [
["eyes", "brown"],
["age", "20"]
];
var people = [
{eyes: "brown", age: "20", name: "Dick"},
{eyes: "green", age: "30", name: "Tom"},
{eyes: "blue", age: "20", name: "Sally"},
{eyes: "brown", age: "20", name: "Harry"}
];
find = function (items, keyvals) {
var results = items.slice(0);
keyvals.forEach(function (keyval) {
results = results.reduce(function (memo, item) {
if (item.hasOwnProperty(keyval[0]) &&
item[keyval[0]] === keyval[1]) {
memo.push(item);
}
return memo;
}, []);
});
return results;
};
document.body.innerHTML = JSON.stringify(find(people, props));
So far I have:
(defn find-all
([items k v]
(filter #(= (k %) v) items))
([items k v & keyvals]
(into [k v] keyvals)))
The second part of the function above would call (find-all items k v) for each keyvals, store the resulting matches, and then feed those into the next call. items would be a vector of maps, instead of an array of objects as well.

Answer 1

Take a look at (source clojure.set/index) for inspiration.
(def props {:eyes "brown", :age "20"})
(def people #{{:eyes"brown", :age "20", :name "Dick"}
{:eyes "green", :age "30", :name "Tom"}
{:eyes "blue", :age "20", :name "Sally"}
{:eyes "brown", :age "20", :name "Harry"}})
((clojure.set/index people (keys props)) props)
;=> #{{:eyes "brown", :age "20", :name "Harry"}
{:eyes "brown", :age "20", :name "Dick"}}