From f70e17a65397884d69c518095c8474b25be20f58 Mon Sep 17 00:00:00 2001 From: gered Date: Tue, 21 May 2013 22:40:05 -0400 Subject: [PATCH] add helper for obtaining a seq of keys from a view --- src/blarg/models/db.clj | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/blarg/models/db.clj b/src/blarg/models/db.clj index 20a273e..3413387 100644 --- a/src/blarg/models/db.clj +++ b/src/blarg/models/db.clj @@ -18,6 +18,12 @@ (def posts (db-url "blarg_posts")) (def files (db-url "blarg_files")) +(defmacro ->view-keys + "returns a sequence of only the keys returned by running a view" + [& body] + `(if-let [result# ~@body] + (map (fn [x#] (:key x#)) result#))) + (defmacro ->view-values "returns a sequence of only the values returned by running a view" [& body]