support the `Any` type.

clj/clarity/cljs/clarity.cljs

@@ -22,6 +22,12 @@
      (keyword name)
      nil)))
(defn read-string-safe [s default]
  (try
    (r/read-string s)
    (catch js/Error e
      default)))
(defmulti empty-value
  (fn get-type [type]
    (cond
@@ -46,6 +52,9 @@
(defmethod empty-value 'Value [[_ v]]
  v)
(defmethod empty-value 'Any [{:keys [default]}]
  (or default nil))
(defmethod empty-value 'Option [[_ v]]
  (empty-value v))
@@ -115,6 +124,12 @@
                           (keyword? value) {:type "text", :pattern keyword-pattern}
                           :else {:type "text"})))))))
(defmethod make-typed-input 'Any [m owner {:keys [key] :as opts}]
  (om/component
    (dom/input #js {:type "text"
                    :onChange (update-on-change! m key
                                                 (assoc opts :transform-fn #(read-string-safe % nil)))})))
(defmethod make-typed-input 'Option [m owner {type :type :as opts}]
  (let [[_ type] type]
    (make-typed-input m owner (assoc opts :type type))))
@@ -134,10 +149,6 @@
      (om/build make-typed-input m {:opts {:type (om/value t), :key k, :val (k m)
                                           :optional? optional?}}))))
(defn read-string-safe [s default]
  (let [r (r/push-back-reader s)]
    (r/read r false default false)))
(defn update-dynamic-field! [type owner]
  (fn [ev]
    (let [k (om/get-state owner :key)