Make ppVisible clickable in xmobar

xmonad.hs

@@ -77,6 +77,7 @@ main = do
         , logHook =  dynamicLogWithPP xmobarPP
                         { ppOutput = hPutStrLn xmobar_proc
                         , ppHidden = xmobarSwitchWs
+                        , ppVisible = wrap "(" ")" .xmobarSwitchWs
                         , ppTitle = xmobarColor "green" "" . shorten 90
                         , ppSort = fmap(.scratchpadFilterOutWorkspace) (ppSort xmobarPP)
                         , ppOrder = \(ws:_:t:_) -> [ ws, t]