                                     (-> base
                                         (assoc :deadline deadline)
                                         (cond-> (pos? idx)
-                                          (-> (update :header #(str "(rep) " %))
-                                              (assoc :last-repeat nil)))))))
+                                          (assoc :repeat? true :last-repeat nil))))))
 
                 :else [base])))
       (catch Exception e

  [{:keys [directory reset-all-file] :as cfg}]
  (let [q (LinkedBlockingQueue.)]
    (run! #(.add q %) (all-org-files directory))
    (let [do-refresh-all (fn [] (run! #(.add q %) (all-org-files directory)))
          watcher (watch-dir (bound-fn [{:keys [file] :as event}]
                               (when (re-matches #".*\.org" (str file))
                                 (if (= reset-all-file (str file))
                                   (do-refresh-all)
                                   (.add q file))))
                             (io/file directory)
                             (fs/parent (io/file reset-all-file)))]

                                                                   (count all-dates)
                                                                   %)))))))

                scheduled-repeater?
                (->> (apply-repeater (:repeater scheduled) (:base scheduled) today max-repeater-date)
                     (map-indexed (fn [idx scheduled]
                                    (-> base
                                        (assoc :scheduled scheduled)
                                        (cond-> (pos? idx)
                                          (assoc :repeat? true :last-repeat nil))))))

                deadline-repeater?
                (->> (apply-repeater (:repeater deadline) (:base deadline) today max-repeater-date)
