         current-word (re-frame/subscribe [:key-in-db :current-word])
         user-history (re-frame/subscribe [:key-in-db :user-history])
         result (re-frame/subscribe [:key-in-db :result])
+        done (re-frame/subscribe [:key-in-db :done])
         ]
     (fn []
       [:div


(defn choose-word [user-history]
  (let [choice (serve-words-rand)]
    (if (contains? user-history choice) (choose-word user-history) choice)))

(defn set-new-word [db _]
  (let [

   :splitted-mapped-atom {}
   :current-model "0"
   :splitted=mapped []
   :done false
   })

;; Subscriptions
