                 :dirty 0
                 :tags [:statusbar.console-toggle]
                 :init (fn [this]
-                        (status-item (toggle-span this) "")))
+                        (statusbar-item (toggle-span this) "")))
 
 (def console-toggle (object/create ::statusbar.console-toggle))
-(add-status-item console-toggle)
+(add-statusbar-item console-toggle)
 
 (defn dirty []
   (object/update! console-toggle [:dirty] inc))

(defn ->cursor-str [{:keys [pos]}]
  [:span.pos (str "" (inc (:line pos)) " / " (inc (:ch pos)))])

(declare status-cursor)

(behavior ::update-cursor-location
                  :triggers #{:update!}
                  :reaction (fn [this pos]

                        (statusbar-item (bound this ->cursor-str) "")
                        ))

(def statusbar-cursor (object/create ::statusbar.cursor))
(add-statusbar-item statusbar-cursor)

(behavior ::report-cursor-location
                  :triggers #{:move :active}
                  :reaction (fn [this]
                              (object/raise statusbar-cursor :update! (ed/->cursor this))))


;;**********************************************************
;; loader
