最近気づいたんだけど github.com main = do xmproc <- spawnPipe "xmobar" : : xmonad $ withUrgencyHook ..... みたいな部分を xmonad $ docks . withURgencyHook .... にすればいいんだが、4年前の話やんけ