Window matching

(defn in-window? [{:keys [from until tz]} instant]
  (let [f (bound from tz) u (bound until tz)]
    (and (not (.isBefore instant f))
         (.isBefore instant u))))