Add R.D.StackSet as a replacement for StackSet.

1 files changed, 10 insertions, 5 deletions

diff --git a/src/Rahm/Desktop/XMobarLog.hs b/src/Rahm/Desktop/XMobarLog.hs
index 629e021..af0a1a1 100644
--- a/src/Rahm/Desktop/XMobarLog.hs
+++ b/src/Rahm/Desktop/XMobarLog.hs
@@ -17,7 +17,7 @@ import Text.Printf
 import Rahm.Desktop.Logger
 
 import qualified XMonad as X
-import qualified XMonad.StackSet as S
+import qualified Rahm.Desktop.StackSet as S
 
 data XMobarLog = XMobarLog Handle
 
@@ -48,7 +48,7 @@ xMobarLogHook (XMobarLog xmproc) = do
 
   let log = trunc 80 $ execWriter $ do
               tell " "
-              tell layoutXpm
+              tell (toChangeLayoutAction layoutXpm)
               tell "   "
               tell $ logLevelToXMobar loglevel
 
@@ -69,12 +69,17 @@ xMobarLogHook (XMobarLog xmproc) = do
   X.io $ hPutStrLn xmproc log
 
   where
-    toAction [ch] | (isAsciiUpper ch) ||
-                    (isAsciiLower ch) ||
-                    (isDigit ch) =
+    toAction [ch] | isAsciiUpper ch ||
+                    isAsciiLower ch ||
+                    isDigit ch =
                       printf "<action=`xdotool key 'Hyper_L+g' '%s'` button=1><action=`xdotool key 'Hyper_L+Shift_L+g' '%s'` button=3>%s</action></action>" [ch] [ch] [ch]
     toAction ch = ch
 
+    toChangeLayoutAction :: String -> String
+    toChangeLayoutAction =
+      printf "<action=`xdotool key Hyper_L+space n` button=1>\
+        \<action=`xdotool key p` button=3>%s</action></action>"
+
     logLevelToXMobar Trace = "<fn=3><fc=#88ffff>[Trace]</fc></fn>   "
     logLevelToXMobar Debug = "<fn=3><fc=#ff88ff>[Debug]</fc></fn>   "
     logLevelToXMobar Warn  = "<fn=3><fc=#ffff88>[Warn] </fc></fn>   "