feat: start a new pomodoro every time we clawe-reload

I don't reload often, so this might be a nice boon. I suspect we'll have
to be careful about the sometimes-end-pomodoro datas, but i think going
loosey goosey on the data will free up more opportunities than holding
back on the data at this point.

Really this should be a smart-pomo-toggle helper that can get called
whenever. One step closer to automagic-pomodoros and 'modes' (in this
case, break-vs-working ui modes).

Author: russmatney

src/api/pomodoros.clj

@@ -22,7 +22,7 @@
                          first)]
     {:current current :last last}))
 
-(defn start-new []
+(defn start-if-break []
   (let [current (:current (get-state))]
     (if current
       (log/warn "Attempted to start-new pomodoro when current exists, doing nothing")
@@ -35,6 +35,21 @@
         (notify/notify "Starting new pomodoro")))
     (get-state)))
 
+;; TODO write some kind of 'smart-toggle' logic in here
+;; e.g. if we're on a break, start the pomorodo
+;; e.g. if we're beyond 2x our 'break' time, stop the pomodoro
+;; e.g. if we're beyond 4/5x our 'break' time, start another one
+(defn start-pomodoro
+  "Starts a pomodoro regardless of the current state."
+  []
+  (-> {:doctor/type         :type/pomodoro
+       :pomodoro/started-at (dt/now)
+       :pomodoro/is-current true
+       :pomodoro/id         (random-uuid)}
+      (db/transact))
+  (notify/notify "Starting new pomodoro")
+  (get-state))
+
 (defn end-current []
   (let [{:keys [current]} (get-state)]
     (when current
@@ -47,10 +62,12 @@
 
 (comment
   (get-state)
-  (start-new)
+  (start-if-break)
+  (start-pomodoro)
   (end-current))
 
 
+
 (defn clean-up-pomodoros []
   (->> (db/query '[:find (pull ?e [*])
                    :where [?e :pomodoro/id _]])

src/clawe/doctor.clj

@@ -19,6 +19,9 @@
 (defn update-screenshots []
   (slurp (str (clawe.config/doctor-base-url) "/screenshots/update")))
 
+(defn start-pomodoro []
+  (slurp (str (clawe.config/doctor-base-url) "/pomodoros/start")))
+
 (defn rebuild-blog
   ([] (rebuild-blog nil))
   ([_] (slurp (str (clawe.config/doctor-base-url) "/blog/rebuild"))))

src/clawe/restart.clj

@@ -133,13 +133,17 @@
      (install-zsh-tab-completion))
 
    ;; Doom env refresh - probably a race-case here....
-   (tmux/fire {:tmux.fire/cmd     "doom env"
-               :tmux.fire/session "dotfiles"
+   (tmux/fire {:tmux.fire/cmd       "doom env"
+               :tmux.fire/session   "dotfiles"
                :tmux.fire/directory "~/dotfiles"
                })
    (emacs/fire "(doom/reload-env)")
 
    (clawe.doctor/update-topbar)
+
+   ;; TODO move to 'smart-toggle' (or some other name)
+   (clawe.doctor/start-pomodoro)
+
    (log "Reload complete")
 
    (check-unit-tests)))

src/dates/tick.cljc

@@ -186,14 +186,25 @@
   (duration-since (parse-time-string "2022-02-26_15:47:52-0500")))
 
 (defn an-x-ago-ms
-  "Returns duration-ago as milliseconds."
+  "Returns duration-ago as milliseconds.
+  NOTE only useful for per-day units, not less than 1 day.
+  "
   [duration]
   (-> (t/today)
       (t/at (t/midnight))
       (t/<< duration)
       t/inst
       inst-ms))
 
+;; TODO support and update note above
+;; (defn an-hour-ago-ms
+;;   "Returns an-hour-ago as milliseconds."
+;;   []
+;;   (an-x-ago-ms (t/new-duration 1 :hours)))
+
+;; (comment
+;;   (an-hour-ago-ms))
+
 (defn a-week-ago-ms
   "Returns a-week-ago as milliseconds."
   []

src/doctor/api.clj

@@ -24,6 +24,9 @@
     (string/starts-with? "/api/pomodoros" uri)
     (pomodoros/route req)
 
+    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+    ;; clawe
+
     (= uri "/reload")
     (do
       (clawe.restart/reload)
@@ -35,6 +38,9 @@
       (topbar/push-topbar-metadata)
       {:status 200 :body "updated topbar"})
 
+    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+    ;; screenshots/clips
+
     (= uri "/screenshots/update")
     (do
       (screenshots/ingest-screenshots)
@@ -45,11 +51,22 @@
       (clips/ingest-clips)
       {:status 200 :body "updated clips"})
 
+    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+    ;; pomodoros/todos
+
+    (= uri "/pomodoros/start")
+    (do
+      (pomodoros/start-pomodoro)
+      {:status 200 :body "starting new pomodoro"})
+
     (= uri "/todos/update")
     (do
       (todos/reingest-todos)
       {:status 200 :body "updated todos"})
 
+    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+    ;; blog
+
     (= uri "/blog/rebuild")
     (do
       ;; TODO perhaps this should be non-blocking?
@@ -71,6 +88,9 @@
       (blog/restart-systems)
       {:status 200 :body "restarted blog systems"})
 
+    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+    ;; clawe rofi/mx
+
     (= uri "/clawe-mx")
     (do
       (clawe.mx/mx)
@@ -91,6 +111,9 @@
       (clawe.mx/mx-open)
       {:status 200})
 
+    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+    ;; clawe toggle
+
     (= uri "/clawe-toggle")
     (do
       ;; TODO handle query params/body

src/doctor/ui/handlers.cljc

@@ -161,8 +161,8 @@
 ;; pomodoros
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defhandler pomodoro-start-new []
-  (api.pomodoros/start-new)
+(defhandler pomodoro-start-if-break []
+  (api.pomodoros/start-if-break)
   :ok)
 
 (defhandler pomodoro-end-current []
@@ -177,7 +177,7 @@
            :action/on-click #(pomodoro-end-current)
            :action/icon     octicons/stop16}
           {:action/label    "Start"
-           :action/on-click #(pomodoro-start-new)
+           :action/on-click #(pomodoro-start-if-break)
            :action/icon     octicons/play16})])))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;