                         (statusbar-item (log this) "left")
                         ))
 
-(def status-loader (object/create ::statusbar.loader))
-(add-status-item status-loader)
+(def statusbar-loader (object/create ::statusbar.loader))
+(add-statusbar-item statusbar-loader)
 
 (defn loader-set []
   (object/merge! statusbar-loader {:loaders 0}))

                :dirty 0
                :tags [:statusbar.console-toggle]
                :init (fn [this]
                        (status-item (toggle-span this) "")))

(def console-toggle (object/create ::statusbar.console-toggle))
(add-status-item console-toggle)

(defn dirty []
  (object/update! console-toggle [:dirty] inc))

                        (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
