   (view-model session-id))
 
 (defn view-model [session-id]
+  (let [[contents tags]
+        (subvec
+          (with-car*
+            (let [session-key (format session-key-template session-id)
+                  session-tags-key (format session-tags-key session-id)]
+              (car/watch session-key)
+              (car/watch session-tags-key)
+              (if (car/exists session-key)
+                (do
+                  (car/hgetall session-key)
+                  (car/smembers session-tags-key))
+                nil))) 3 5)]
+    (assoc (keywordize-keys (apply hash-map contents)) :tags tags)))
+
+(defn view-models [session-ids]
   (with-car*
-    (def session-key (format session-key-template session-id))
-    (def session-tags-key (format session-tags-key session-id))
-    (car/watch session-key)
-    (car/watch session-tags-key)
-    (if (car/exists session-key)
-      (merge
-        {:id session-id :tags (car/smembers session-tags-key)}
-        (car/hgetall session-key))
-      nil)))
+    (let [session-ids (or session-ids (car/smembers session-set-key))]
+      (map view-model session-ids))))

                              current-url]
                       :or {browser-name "firefox"
                            node nil
                            reserved nil
                            tags nil
                            extra-desired-capabilities nil
                            reserve-after-create nil
                            force-create nil
                            current-url nil}
                       :as requirements}]
  (with-car*
    (def defaulted-reqs {})
    (def capabilities (merge {"browserName" browser-name}
                             extra-desired-capabilities))
    (def wd (new-webdriver (get-node) capabilities))

    (def session-tags-key (format session-tags-key-template session-id))

    (doall
      (map #(car/hset session-key (key %1) (val %1))
           (select-keys defaulted-reqs
                        [:browser-name :node :reserved :current-url])))
    (car/del session-tags-key)
