             (= 83 (.-keyCode %)))
        (.preventDefault %)
        (put! (:channel @app) [:save nil]))))
+
+;; The main app
 
 (defn wordsmith-app
   "The starting point of the wordsmith app. Implements will-mount and 

                       :onClick #(new-document-click app)}
                  "new"))))

;; Left menu

(defn update-current
  "Sends a :change command on the app channel."
  [event app]
  (let [title (.. event -target -textContent)]

               :id "output-area"
               :dangerouslySetInnerHTML #js {:__html (marked input)}})))))

;; State transformations

(defn update-many!
  "Updates multiple keys on Om cursor to the given value."
  [app ks v]
  (doseq [k ks]
    (om/update! app k v)))
