Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (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 :first] true)]
- (map carousel-entry coll))])
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement