From 22bccde00aeaf6bea147a4bc9deebda2494c6c4e Mon Sep 17 00:00:00 2001 From: Ryan Kavanagh Date: Mon, 19 Dec 2011 08:40:32 -0500 Subject: Show current keyboard layout in dzen --- .xmonad/xmonad.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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" --}}} -- cgit v1.2.3