SHOW:
|
|
- or go back to the newest paste.
| 1 | (defn carousel-entry [{:keys [src title text active]}]
| |
| 2 | [:div.item {:class (if active "active" "not")}
| |
| 3 | [:img {:src src}]
| |
| 4 | [:div.carousel-caption | |
| 5 | [:h4 title] | |
| 6 | [:p text]]]) | |
| 7 | ||
| 8 | - | (defpartial carousel [coll id] |
| 8 | + | (defpartial carousel [coll & [id]] |
| 9 | [:div.carousel {:id (or id "myCarousel")}
| |
| 10 | - | (let [coll (assoc-in [0 :first] true)] |
| 10 | + | (let [coll (assoc-in [0 :active] true)] |
| 11 | (map carousel-entry coll))]) |
