Reactive SimpleMDE component with reagent

simplemde-react-reagent.cljs

(defn editor [text]
  (let [dom-node (r/atom nil)]
    (r/create-class
      {:component-did-update
       ;; this is the draw code plus the update code
                     (fn [this old-argv]
                       (let [editor (js/SimpleMDE.
                                      (clj->js
                                        {:autofocus    true
                                         :spellChecker true
                                         :placeholder  ""
                                         :forceSync    true
                                         :element      @dom-node
                                         :initialValue @text
                                         :value        @text
                                         }))]
                         (-> editor
                             .-codemirror
                             (.on "change" (fn [] (reset! text (.value editor)))))
                         ;(set! (.-value editor) @text)
                         ))
       :component-did-mount
       ;; this is where we set the dom node once the component actually mounts
                     (fn [this]
                       (let [node (r/dom-node this)]
                         (reset! dom-node node)))
       :display-name "mjn-note-editor"
       :reagent-render
       ;; we must deref the atoms to make the thing update...
                     (fn []
                       @dom-node
                       [:textarea {:defaultValue @text}])})))

I've only tested this for displaying, not editing