transformation.clj

(require '[clojure.string :as s])
(require '[cheshire.core :refer [parse-string])

(defn str->long [val] (Long/parseLong val))
(defn parse-date [val] val)
(defn extract-date-hour [val] val)

(def transformators {:url (comp (partial remove empty?) (fn[x] (when-not (empty? x)(s/split x #"/"))))
                    :data (fn[x] (if-not (nil? x)
                                  (-> (parse-string x true) :data)))
                    :resp.data (fn[x] (if-not (nil? x)
                                  (-> (parse-string x true) :data)))
                    :ip (fn[x] (when-not (nil? x) (first (s/split x #","))))
                    :date (comp extract-date-hour parse-date)
                    :response-start str->long
                    :response-end str->long})