support changing unions.

is it safe to use the reader? can it execute code?

clj/clarity/cljs/clarity.cljs

(ns clarity
  (:require [om.core :as om :include-macros true]
  (:require [cljs.reader :as r]
            [om.core :as om :include-macros true]
            [om.dom :as dom :include-macros true]))
(enable-console-print!)
(defmethod make-typed-input 'U [value owner {type :type}]
  (om/component
    (dom/select nil
    (dom/select #js {:onChange #(om/update! value (fn [_ n] n) (r/read-string (.. % -target -value)))}
      (into-array
        (map (fn [[_ v]]
               (dom/option nil (str v)))