(#@/) :: UI Element -> (String,Maybe String -> String) -> UI Element
e #@/ (k,f) = e & modify style go
  where
  go :: [(String,String)] -> [(String,String)]
  go ps = (k,f $ lookup k ps) : aListDelete k ps
(#@/) :: UI Element -> (String,Maybe String -> String) -> UI Element
e #@/ (k,f) = e & modify style go
  where
  go :: [(String,String)] -> [(String,String)]
  go ps = (k,f $ lookup k ps) : aListDelete k ps
e #@/ (k,f) = e & modify style go
  where
  go :: [(String,String)] -> [(String,String)]
  go ps = (k,f $ lookup k ps) : aListDelete k ps