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

        {:keys [triage deadlines by-day past-log]} (synthesize-agenda deets-by-file)
        format-todo (fn [{:keys [done todo priority-cookie header] :as item}]
                      (format "%s%s %s"
                              (or done todo)
                              (if priority-cookie
                                (str " " priority-cookie)
                                "")

                                                    (if (= "t" (get properties "EFFORT_EXEMPT"))
                                                      "    "
                                                      "?:??"))))
                                           (if (= 1 (priority item))
                                             "  "
                                             "")
                                           (format-todo item))))
        print-calendar (fn [items]
                         (->> items
