   (set-val this v)
   (object/raise this :change! v))
 
-(defn current-selected [this]
-  (let [cur (indexed-results @this)
-        cnt (count cur)
-        idx (:selected @this)
-        i (mod idx (if (> cnt (:size @this)) (:size @this) cnt))]
-    (when (> cnt 0)
-      (aget (aget cur i) 0))))
-
 (defn ensure-visible [this]
   (let [list (dom/$ "ul" (object/->content this))
         elem (dom/$ ".selected" list)]

        (+ (.-scrollTop list) (.-clientHeight list))) (set! (.-scrollTop list)
                                                            (- (+ (.-offsetTop elem) (.-offsetHeight elem) 15) (.-clientHeight list)))
     :else nil)))

(behavior ::move-selection
          :triggers #{:move-selection}

(behavior ::select-command
          :triggers #{:select}
          :reaction (fn [this sel]
                      (when-let [cmd (cmd/by-id sel)]
                        (if (:options cmd)
                          (do
                            (object/merge! sidebar-command {:active cmd})
