 (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 (log this) "left")
                        ))

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

(defn loader-set []
  (object/merge! statusbar-loader {:loaders 0}))

                        (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
