                              '(defn greet [name] (str "Hello, " name "!")))]}}))
 
 (defn bound-action [ev]
-  (-> ev phalanges/key-set keymap (@actions)))
+  (-> ev phalanges/key-set keymap default-actions))
 
 (defn handle-key [ev]
   (when-let [action (bound-action ev)]

  (when-let [action (bound-action ev)]
    (if (model/stringlike? form)
      ;; prevent all keybinds except those that end editing
      (#{:move/up :paredit/insert-outside} (:name action))
      ;; prevent delete keybind unless text fully selected
      (or (not= (:name action) :flense/remove)
          (fully-selected? (.-target ev))))))

(defn init []

(ns flense-demo.app
  (:require [cljs.core.async :as async]
            [flense.actions :refer [default-actions]]
            [flense.actions.history :as hist]
            [flense.editor :refer [editor-view]]
            [flense.model :as model]
            [flense-demo.keymap :refer [keymap]]
