        (finally
          (.delete tmp-file#)))))
 
+(defn later-today-time
+  "If the item is scheduled for today, but still in the future, then returns
+  the LocalTime that it's scheduled at. Else nil."
+  [item now]
+  (if-let [s (:scheduled item)]
+    (if (instance? LocalDateTime s)
+      (if (= (.toLocalDate s) (.toLocalDate now))
+        (let [lt (.toLocalTime s)]
+          (if (compare/< (.toLocalTime now) lt)
+            lt))))))
+
 (defn write-to-agenda-file
   [deets-by-file {:keys [preamble] :as cfg} today]
   (let [now (ZonedDateTime/now CHICAGO)

                                                      "?:??"))))
                                           (if (= 1 (priority item))
                                             "  "
                                             "")
                                           (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%s"
                                           (if omit-effort?
                                             ""
                                             (str " "
