diff options
| author | Ryan Kavanagh <ryanakca@kubuntu.org> | 2011-12-19 08:40:32 -0500 |
|---|---|---|
| committer | Ryan Kavanagh <ryanakca@kubuntu.org> | 2011-12-19 08:40:32 -0500 |
| commit | 22bccde00aeaf6bea147a4bc9deebda2494c6c4e (patch) | |
| tree | 4b27dfd8343493871ce53374701532bbec4a15d2 | |
| parent | Added switches for icd/dpr layouts (diff) | |
Show current keyboard layout in dzen
Diffstat (limited to '')
| -rw-r--r-- | .xmonad/xmonad.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index fc89f51..951c383 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs @@ -243,7 +243,9 @@ mPP h = defaultPP ) , ppUrgent = dzenColor colorDarkGray colorYellow . wrap "[" "]" , ppTitle = dzenColor colorWhite "" . trim - , ppExtras = [dzenColorL colorYellow "". wrapL mailIcon "" . padL $ gmailCheck, dzenColorL colorBrightGreen "" . wrapL mailIcon "" . padL $ queensuCheck] + , ppExtras = [dzenColorL colorYellow "". wrapL mailIcon "" . padL $ gmailCheck, + dzenColorL colorBrightGreen "" . wrapL mailIcon "" . padL $ queensuCheck, + dzenColorL colorWhite "". padL $ layoutCheck] , ppOutput = hPutStrLn h } where @@ -254,6 +256,7 @@ mPP h = defaultPP --queensuCheck = padL $ (dzenColorL colorYellow "" . logCmd "cat /home/ryan/.xmonad/queensucheck") gmailCheck = logCmd "cat /home/ryan/.xmonad/gmailcheck" queensuCheck = logCmd "cat /home/ryan/.xmonad/queensucheck" + layoutCheck = logCmd "cat /home/ryan/.xmonad/layout" --}}} |