                                                       "?:??"))))
                                            (if (= 1 (priority item))
                                              "  "
+                                             "")
+                                           (if-let [lt (later-today-time item now)]
+                                             (format "(not until %s) " lt)
                                              "")
                                            (format-todo item)))
                           (when (= "t" (get properties "DEBUG"))

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

          ;; 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?)
