 
 (def ->ls (after db/db->ls!))
 
-(def player-mw [trim-v])
+(def player-mw [(path :player)
+                trim-v])
 (def controls-mw [(path :controls)
                   trim-v])
 
 (def channel-mw [->ls
-                 (path :channels)                 
+                 (path :channels)
                  trim-v])
 
 (def playstates {:stopped "Stopped"


;; -- Player

(defn start [db [_]]
  (let [player (:player db)
        interval-new (/ 1000 (:items-per-sec player))
        interval-anim 50


(register-handler
 :set-playmode
 [player-mw]
 (fn [db [playmode]]
   (assoc-in db [:playmode] playmode)))

