                               (if priority-cookie
                                 (str " " priority-cookie)
                                 "")
-                              (if-let [prefix (custom-prefix today item)]
+                              (if-let [prefix (:custom-prefix item)]
                                 (str prefix " ")
                                 "")
                               (if (:repeat? item)

(defn do-once
  [{:keys [directory] :as cfg} now]
  (let [by-file (all-agenda-data directory now)]
    (write-to-agenda-file by-file cfg now)))

(defn watch
  [{:keys [directory reset-all-file] :as cfg}]
  (let [q (LinkedBlockingQueue.)]
    (run! #(.add q %) (all-org-files directory))
    (let [do-refresh-all (fn []

                              (filter first)
                              (sort-by first)
                              (run! (fn [[[t1 t2] item]]
                                      (let [past? (:past? item)
                                            t1 (.toLocalTime t1)
                                            t2 (some-> t2 .toLocalTime)]
                                        (printf "      %s%s%s: %s %s\n"
