      zone-id? (YearMonth/now x)
      string? (YearMonth/parse x)
      :else (YearMonth/from x)))
-  ([a b]
-   (if (integer? a)
-       (YearMonth/of a b)
-       (YearMonth/parse a b))))
+  ([year-or-text month-or-formatter]
+   (if (integer? year-or-text)
+       (YearMonth/of year-or-text month-or-formatter)
+       (YearMonth/parse year-or-text month-or-formatter))))
 
 (defn get-field
   [accessor field]

     string? (OffsetTime/parse x)
     keyword? (offset-time-keywords x)
     :else (OffsetTime/from x)))
  ([a b]
   (pred-cond a
     local-time? (OffsetTime/of a (zone-offset b))
     instant? (OffsetTime/ofInstant a (zone-id b))
     :else (OffsetTime/parse a b)))
  ([hour minute second nano-of-second offset]
   (OffsetTime/of hour minute second nano-of-second offset)))


   (Clock/systemDefaultZone))
  ([x]
   (Clock/system (zone-id x)))
  ([instant-or-clock zone-or-duration]
   (if (instant? instant-or-clock) 
       (Clock/fixed instant-or-clock (zone-id zone-or-duration))
       (Clock/offset instant-or-clock (duration zone-or-duration)))))

(defn date-time-formatter
  ([x]
