 
 (defmethod client-trans :ping/by-id
   [_ v]
-  (timbre/debug v)
   (let [local-time (:ping/local-time v)
         [y m d]    ((juxt t/year t/month t/day) local-time)]
     (-> v

   ping-read])

(defn make-new-db [db {:keys [result action path errors namespace]}]
  (timbre/debug result)
  (timbre/debug path)
  (timbre/debug namespace)
  (cond
    (seq errors) (assoc db :db/errors errors)



(defn client-converter [type]
  (fn [things]
    (reduce
     (fn [accu v]
       (update accu type assoc (:id v) (client-trans type (utils/with-ns v (namespace type)))))
