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

(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 []
      (when (toggl/stop-entry)
        (jb/set RUNNING_KEY nil)
        (->> MESSAGES :stop-entry rand-nth (out "@" user " "))))
    #"^(神様|神さま).*(違い|違う|消して|けして)"
    (matchfn []
      (let [key (if (toggl/delete-entry) :delete-entry :no-entry-to-delete)]
        (jb/set RUNNING_KEY nil)
        (->> MESSAGES
             key
             rand-nth
