fix: smarter fetch-current on frontend and backend

I can't believe this code exists in both places :/

We no longer assume there's only one :current true pomodoro in the
database. might be easier to think of them as open vs closed, and
include some metadata/process in 'closing' them out
(e.g. stamping a doctor's report with commit and repos-pushed counts)

Author: russmatney

src/api/pomodoros.clj

@@ -14,7 +14,9 @@
 (defn get-state []
   (let [current (some->> (db/query '[:find (pull ?e [*])
                                      :where [?e :pomodoro/is-current true]])
-                         ffirst)
+                         (map first)
+                         (sort-by :pomodoro/started-at dt/sort-latest-first)
+                         first)
         last    (some->> (db/query '[:find (pull ?e [*])
                                      :where [?e :pomodoro/finished-at _]])
                          (map first)

src/doctor/ui/db.cljs

@@ -117,7 +117,12 @@
   (let [current (some->>
                   (d/q '[:find (pull ?e [*])
                          :where [?e :pomodoro/is-current true]] conn)
-                  ffirst)
+                  (map first)
+                  ;; ((fn [xs]
+                  ;;    (println "current pomodoros" xs)
+                  ;;    xs))
+                  (sort-by :pomodoro/started-at dt/sort-latest-first)
+                  first)
         last    (some->>
                   (d/q '[:find (pull ?e [*])
                          :where [?e :pomodoro/finished-at _]] conn)