     (hist/push-state! @app-state)
     (om/root editor-view app-state
              {:target (.getElementById js/document "editor-parent")
-              :opts {:edit-chan edit-chan
-                     :propagate-keypress? propagate-keypress?}
+              :opts {:edit-chan edit-chan}
               :tx-listen handle-tx})
     (om/root cli-view nil
              {:target (.getElementById js/document "cli-parent")

      (.preventDefault ev)
      (async/put! edit-chan action))))

(defn- propagate-keypress? [ev form]
  (when-let [action (bound-action ev)]
    (contains? (:tags (meta action)) :end-text-editing)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; application setup and wiring
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(def actions
  (assoc default-actions :flense/text-command
         ;; dummy action to trap ctrl+x keybind
         (with-meta identity {:tags #{:text-command}})))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; text commands
