reagent.cljs

(ns learning-reagent.core
    (:require [reagent.core :as reagent]))

;; -------------------------
;; Views

(defn fibo
  ([] (fibo 1 1))
  ([s1 s2] (lazy-seq (cons s1 (fibo s2 (+ s1 s2))))))

(defn fibo-container
  [f]
  [:div "Fibo: " (first @f)])

(defn spinner-container
  [s]
  [:div (map (fn [c] [:div {:class c}]) (take 3 @s))])

(defn sequence-cycler
  [s f t]
  (let [foo (reagent/atom s)]
    (fn [s]
      (js/setTimeout #(swap! foo rest) t)
      (f foo))))

(defn top-container []
  [:div
   [:div [sequence-cycler (fibo) fibo-container 1000]]
   [:div [sequence-cycler (cycle [:red :black :black]) spinner-container 300]]])

(defn mount-root []
  (reagent/render [top-container] (.getElementById js/document "app")))

(defn init! []
  (mount-root))