                     first)
         r (mod (int (/ (System/currentTimeMillis) 4000)) (count values))
         n (first (nth values r))]
-    (log/info r)
-    (log/info n)
     (reset! tidbit-index n)
     (async/<! (async/timeout (rand-nth [1200 600])))
     (recur (update tidbit-freqs n inc))))

                                                                            :gray))
                                                :background-color (rcolor/color->rgb :white)}} [
                                  [Highlight {} [(str (or (item :hotkey)
                                                          \space))]]
                                  [:text {} [(format "%c%s%s %s %s"
                                               (if-let [hotkey (get item :hotkey)]
                                                 (if (contains? (set selected-hotkeys) hotkey)

        strength      (int (rp/get-player-attribute game-state :strength))
        dexterity     (rp/get-player-attribute game-state :dexterity)
        toughness     (rp/get-player-attribute game-state :toughness)]
    (zc/csx [zcui/Popup {:style {:top -5}} [
        [:text {} [(format "Name:      %s" player-name)]]
        [:text {} [(format "Level:     %d (%d/%d)" level xp xp-next-level)]]
        [:text {} [""]]
