(ns java-time.util

(:require [clojure.string :as string])

(:import [java.lang.reflect Field]))

(defn get-static-fields-of-type [^Class klass, ^Class of-type]

(->> (seq (.getFields klass))

(map (fn [^Field f]

(when (.isAssignableFrom of-type (.getType f))

[(.getName f) (.get f nil)])) )

(keep identity)

(into {})))

(defn dashize [camelcase]

(let [words (re-seq #"([^A-Z]+|[A-Z]+[^A-Z]*)" camelcase)]

(string/join "-" (map (comp string/lower-case first) words))))

(defmacro if-threeten-extra [then-body else-body]

(if (try (Class/forName "org.threeten.extra.Temporals")

(catch Throwable e))

`(do ~then-body)

`(do ~else-body)))

(defmacro when-threeten-extra [& body]

(if (try (Class/forName "org.threeten.extra.Temporals")

(catch Throwable e))

`(do ~@body)))

(defmacro when-joda [& body]

(if (try (Class/forName "org.joda.time.DateTime")

(catch Throwable e))

`(do ~@body)))

(defn editable? [coll]

(instance? clojure.lang.IEditableCollection coll))

(defn reduce-map [f coll]

(if (editable? coll)

(persistent! (reduce-kv (f assoc!) (transient (empty coll)) coll))

(reduce-kv (f assoc) (empty coll) coll)))

(defn map-vals

"Maps a function over the values of an associative collection."

[f coll]

(reduce-map (fn [xf] (fn [m k v] (xf m k (f v)))) coll))

(defn map-kv

"Maps a function over the key/value pairs of an associate collection. Expects

[f coll]

(reduce-map (fn [xf] (fn [m k v] (let [[k v] (f k v)] (xf m k v)))) coll))