Calculate and display error rate (scary!)

bobbicodes · Aug 22, 2021 · 9bf7f3f · 9bf7f3f
1 parent a228a81
commit 9bf7f3f
Show file tree

Hide file tree

Showing 4 changed files with 21 additions and 3 deletions.
diff --git a/src/typing/db.cljs b/src/typing/db.cljs
@@ -28,6 +28,7 @@
    :ave-wpm 0
    :high-speed 0
    :prob-keys []
+   :errors 0
    :words words/common-words})
 
 (def ls-key "presses-reframe")                         ;; localstore key

diff --git a/src/typing/events.cljs b/src/typing/events.cljs
@@ -129,6 +129,11 @@
  (fn [db [_ value]]
    (assoc db :high-speed value)))
 
+(re-frame/reg-event-db
+ ::inc-errors
+ (fn [db [_ value]]
+   (update db :errors inc)))
+
 (re-frame/reg-event-db
  ::set-current-key
  (fn [db [_ value]]
@@ -162,7 +167,9 @@
                                                                                        (:prob-keys db))))))])
                                   0) ; reset counter and update text
                               (inc (:cursor-pos db))))
-                        (:cursor-pos db))))))
+                        (do
+                          (re-frame/dispatch [::inc-errors])
+                          (:cursor-pos db)))))))
 
 (re-frame/reg-event-db
  ::advance-cursor

diff --git a/src/typing/subs.cljs b/src/typing/subs.cljs
@@ -52,6 +52,11 @@
  (fn [db]
    (:words db)))
 
+(re-frame/reg-sub
+ ::errors
+ (fn [db]
+   (:errors db)))
+
 (re-frame/reg-sub
  ::deltas
  (fn [db]

diff --git a/src/typing/views.cljs b/src/typing/views.cljs
@@ -178,7 +178,8 @@
         prob-keys (re-frame/subscribe [::subs/prob-keys])
         moving-ave (re-frame/subscribe [::subs/moving-ave])
         high-speed (re-frame/subscribe [::subs/high-speed])
-        all-time-ave (re-frame/subscribe [::subs/all-time-ave])]
+        all-time-ave (re-frame/subscribe [::subs/all-time-ave])
+        errors (re-frame/subscribe [::subs/errors])]
     [:div [:center
            [gauge]
            [:h3 (str @moving-ave " wpm")]
@@ -192,5 +193,9 @@
       [:div
        [:span "Problem keys (ave. ms): "]
        [:span (interpose ", " (for [key (take 4 (filter #(contains? lowercase-letters (first %)) @prob-keys))]
-                                (str (first key) " - " (last key))))]]]]))
+                                (str (first key) " - " (last key))))]
+       [:p (str "Errors: " @errors "  ("
+                (.round js/Math (* 100 (/ @errors (+ (count @presses) @errors))))
+                "%)")]]]]))
 
+(/ 5 41)