get-in-link.clj

(defn get-in-link
  "Wrapper around get-in for looking up for idents. if ks is nil it return the not-found value which is an empty map. That protects you from getting the entire state on a nested component."
  ([m ks]
   (get-in-link m ks {}))
  ([m ks not-found]
   (if (nil? ks)
     not-found
     (get-in m ks not-found))))

(defmethod read :form-cliente
  [{:keys [state]} key params]
  (let [st @state]
    {:value (get-in-link st (get st key))}))