 
         {`p/nav (fn [_ k v]
                   (case k
+                    :instant (-> (.atEndOfMonth ym)
+                                 (.atStartOfDay)
+                                 (.toInstant (or (zone-offset v) @system-offset)))
                     :format (.format (dt-formatter (or v "yyyy-MM")) ym)
                     nil))})))
 

                    :iso-format (.format DateTimeFormatter/ISO_DATE ld)
                    :format     (.format (dt-formatter v) ld)
                    :julian     (julian-field ld v)
                    :weekday    weekday
                    :year-month ym
                    nil))})))

  (:require [clojure.core.protocols :as p]
            [clojure.datafy :as d])
  (:import (java.time YearMonth Month DayOfWeek Instant
                      LocalTime LocalDate LocalDateTime
                      ZonedDateTime OffsetDateTime
                      ZoneOffset ZoneId)
           (java.time.format DateTimeFormatter)
           (java.time.temporal IsoFields JulianFields TemporalAccessor)))

