dzen2 xmonad

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
-- Statusbar with workspaces, layout and title
myStatusBar = "dzen2 -x 0 -y 0 -h 18 -ta l -fg '" ++ myDzenFGColor ++
"' -bg '" ++ myDzenBGColor ++ "' -fn '" ++ myFont ++ "' -w 720"
-- Colors, font and iconpath definitions:
myFont = "-*-terminus-*-*-*-*-12-*-*-*-*-*-*-*%"
myIconDir = "/home/kain/.dzen"
myDzenFGColor = "#555555"
myDzenBGColor = "#212121"
myNormalFGColor = "#77e000"
myNormalBGColor = "#000000"
myFocusedFGColor = "#f0f0f0"
myFocusedBGColor = "#333333"
myUrgentFGColor = "#0099ff"
myUrgentBGColor = "#991133"
mySeperatorColor = "#555555"
-- Status bars and logging
myLogHook h = defaultPP
{ ppCurrent = dzenColor myNormalFGColor myDzenBGColor . pad . ("^i(.dzen/corner.xbm)" ++) -- current workspace
, ppVisible = dzenColor "lightgreen" "" . pad -- visible workspaces on other screens
, ppHidden = dzenColor "white" "" . pad . ("^i(.dzen/corner.xbm)" ++) -- hidden workspaces with apps
, ppHiddenNoWindows = dzenColor "#444444" "" . pad -- empty workspaces
, ppUrgent = dzenColor "" myUrgentBGColor -- urgent workspaces
, ppTitle = dzenColor myNormalFGColor "" . pad . dzenEscape -- title of selected window
, ppWsSep = "" -- workspace seperator
, ppSep = dzenEscape "|" -- workspace/layout/title seperator
-- Layout icons
, ppLayout = dzenColor myNormalFGColor "" .
(\ x -> case x of
"tallL" -> pad "^i(/home/kain/.dzen/layout-tall-right.xbm)"
"Mirror Tall" -> pad "^i(/home/kain/.dzen/layout-mirror-bottom.xbm)"
"full" -> pad "^i(/home/kain/.dzen/layout-full.xbm)"
"im_g" -> pad "^i(/home/kain/.dzen/layout-withim-left1.xbm)"
"im_t" -> pad "^i(/home/kain/.dzen/layout-withim-left2.xbm)"
"tabs" -> pad "^i(/home/kain/.dzen/tabs.xbm)"
_ -> pad x
)
, ppOutput = hPutStrLn h
}
main = do
dzen <- spawnPipe myStatusBar