From 395a2c0884e37abb71d240176b781ba81cbcf7a3 Mon Sep 17 00:00:00 2001
From: Lars Vierbergen <vierbergenlars@gmail.com>
Date: Wed, 6 Sep 2017 11:45:16 +0200
Subject: [PATCH] Make ppVisible clickable in xmobar

---
 xmonad.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/xmonad.hs b/xmonad.hs
index fb8f087..17bb06e 100644
--- a/xmonad.hs
+++ b/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]