                 [:text {} [""]]
                 [:text {:style {:left -6}} [(format "Generating %s..." (nth loading-tidbits @tidbit-index))]]
                 [:text {} [""]]
-                [:text {:style {:left 3}} [(nth ["/" "-" "\\" "|"] (mod (swap! loading-index inc) 4))]]]]]]]]]]]])))
+                [:text {:style {:left 3}} [(first @spinner-chars)]]]]]]]]]]]])))
 
 (zc/def-component Connecting
   [this]

;; Functions for rendering state to screen
(ns robinson.ui.components.robinson
  (:require 
            [taoensso.timbre :as log]

    (async/<! (async/timeout (rand-nth [1200 600])))
    (recur (update tidbit-freqs n inc))))

(def spinner-chars (atom (cycle ["/" "-" "\\" "|"])))
(def spinner-routine
  (go-loop []
    (swap! spinner-chars rest)
    (async/<! (async/timeout 100))
    (recur)))

(zc/def-component Loading
  [this]
  (let [{:keys [state]} (zc/props this)]
