(defn carousel-entry [{:keys [src title text active]}]
  [:div.item {:class (if active "active" "not")}
   [:img {:src src}]
   [:div.carousel-caption
    [:h4 title]
    [:p text]]])

(defpartial carousel [coll & [id]]
  [:div.carousel {:id (or id "myCarousel")}
    (let [coll (assoc-in [0 :active] true)]
      (map carousel-entry coll))])