transformRunningElement :: Config -> [Name] -> RunningElement -> Box
transformRunningElement cfg ns (Component n k s _ _)   =
  Box n k (runningElementColor cfg (ns == [n]) s)
transformRunningElement :: Config -> [Name] -> RunningElement -> Box
transformRunningElement cfg ns (Component n k s _ _)   =
  Box n k (runningElementColor cfg (ns == [n]) s)
transformRunningElement cfg ns (Component n k s _ _)   =
  Box n k (runningElementColor cfg (ns == [n]) s)