   (datafy [lt]
     (let [nanos (.getNano lt)]
       (with-meta
-        {:day    {:hour   (.getHour lt)}
+        {:day    {:hour   (.getHour   lt)}
          :hour   {:minute (.getMinute lt)}
          :minute {:second (.getSecond lt)}
          :second {:nano  nanos

                 :nano   epoch-nano}}
        {`p/nav (fn [_ k v]
                  (case k
                    :iso-format (.format DateTimeFormatter/ISO_INSTANT inst)
                    :format     (.format ^DateTimeFormatter v inst)
                    :local-time      (LocalTime/ofInstant      inst  (or (zone-id v) @system-zone))


        {`p/nav (fn [_ k v]
                  (case k
                    :before? (.isBefore ym v)
                    :after?  (.isAfter  ym v)
                    :instant (-> (.atDay ym 1)
                                 (.atStartOfDay)
                                 (.toInstant (or (zone-offset v) @system-offset)))
