     #"^(.+?).*(を)?(開始|始め|はじめ)"
     (matchfn [desc]
       (toggl/start-entry desc :pid (desc->pid desc))
+      (jb/set RUNNING_KEY "true")
       (->> MESSAGES :start-entry rand-nth (out "@" user " ")))
     #"^(再開|さいかい)"
     (matchfn []

(def hestia-schedule
  (js/schedules
    "0 /5 * * * * *"
    #(when-let [{:keys [pid sec]} (toggl/get-running-entry)]
       (cond
         (and (= (str pid) REST_PID) (> sec REST_WARN_SEC))
         (->> MESSAGES :rest-warn rand-nth (out "@uochan "))

         (> sec WARN_SEC)
         (->> MESSAGES :warn rand-nth (out "@uochan "))))
    ))

    #"^(神様|神さま).*(休憩|一休み)"
    (matchfn []
      (->> MESSAGES :start-rest rand-nth (out "@" user " "))
      (jb/set RUNNING_KEY "true")
      (toggl/start-entry "休憩" :pid REST_PID)
      nil)

