                                 (make-org-link item header))))
         print-todo-line (fn [{:keys [effort properties] :as item}
                              {:keys [omit-effort?]}]
-                          (println (format "-%s %s%s"
+                          (println (format "-%s %s%s%s"
                                            (if omit-effort?
                                              ""
                                              (str " "

       (finally
         (.delete tmp-file#)))))

(defn write-to-agenda-file
  [deets-by-file {:keys [preamble] :as cfg} today]
  (let [now (ZonedDateTime/now CHICAGO)

          ;; TODO: we shouldn't be putting things in the calendar if they're
          ;; scheduled in the past...
          (->> todos
               (sort-by (juxt #(later-today-time % now) ;; put future things at the bottom
                              (comp - priority)
                              ;; move rep entries to the bottom for the future blocks, so that
                              ;; nonrepeating items stick out
                              (if (= date today) (constantly nil) :repeat?)
