 
 (defn end-or-continue [db how-many how-many-guessed]
   (if (>= how-many-guessed how-many)
-    (assoc db :result (calc-stats (:user-history db)))
+    (-> db
+        (assoc :result (calc-stats (:user-history db)))
+        (assoc :done true)
+        )
     (set-new-word db [])))
 
 (defn debug [db]

         n-of-separations (->> current-word (filter #(= \- %)) (count))
         k (clojure.string/replace current-word "-" "")
         user-history (:user-history db)
         how-many-guessed (-> user-history (count) (inc))
         ]
     (if (= n-of-separations 1)
       (-> db
           (assoc-in [:user-history k] current-word)

           (assoc :user-progress (* how-many-guessed (/ 100 how-many)))
           (end-or-continue how-many how-many-guessed)
                  )

        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
