 ;;*********************************************************
 ;; Params
 ;;*********************************************************
-
-(defn clear-props [ed]
-  (reset! (.-ltproperties ed) {})
-  ed)
-
-(defn set-props [ed m]
-  (swap! (.-ltproperties ed) merge m)
-  ed)
-
-(defn ->ltid [ed]
-  (.-ltid ed))
-
-(defn ->prop
-  ([ed] (deref (.-ltproperties ed)))
-  ([ed k] (get (->prop ed) k)))
 
 (defn ->val [e]
   (. (->cm-ed e) (getValue)))

                     :onDragEvent (fn [] true)
                     :undoDepth 10000
                     :matchBrackets true})]
    (set-props e (dissoc context :content :doc))
    (when-let [c (:content context)]
      (set-val e c)
      (clear-history e))

                      (set-options obj {:tabSize tab-size
                                        :indentWithTabs use-tabs?
                                        :indentUnit indent-unit})))

(behavior ::set-codemirror-flags
          :triggers #{:object.instant}
          :type :user
          :desc "Editor: Set CodeMirror flags"
          :params [{:label "Flags map"
                    :ex "{:undoDepth 1000}"}]
          :reaction (fn [this flags]
                      (set-options this flags)))

(behavior ::read-only
          :triggers #{:object.instant}
