dotfiles · commit

Tweak xmobar colors

c5938ce65ee97c44a31f896221c3c8e6c33e21c4

Alexis Sellier committed 10 years ago 1 parent 672cf489

.xmonad/xmonad.hs +2 -1

            safeSpawnProg termName

barConfig :: Handle -> PP
barConfig h = xmobarPP
    { ppCurrent         = xmobarColor white   black  . wrap " " " "
    , ppHiddenNoWindows = xmobarColor black   dark   . wrap " " " "
    , ppHiddenNoWindows = xmobarColor grey    black  . wrap " " " "
    , ppHidden          = xmobarColor light   dark   . wrap " " " "
    , ppUrgent          = xmobarColor black   red
    , ppLayout          = const ""
    , ppWsSep           = ""
    , ppSep             = "  "

    red   = "red"
    white = "white"
    black = "black"
    light = "#888888"
    dark  = "#333333"
    grey  = "#555555"

toggleStrutsKey :: XConfig t -> (KeyMask, KeySym)
toggleStrutsKey XConfig { XMonad.modMask = modMask } = (modMask, xK_b)

myKeys :: FilePath -> XConfig Layout -> Map (KeyMask, KeySym) (X ())

44	44		safeSpawnProg termName
45	45
46	46		barConfig :: Handle -> PP
47	47		barConfig h = xmobarPP
48	48		{ ppCurrent = xmobarColor white black . wrap " " " "
49		-	, ppHiddenNoWindows = xmobarColor black dark . wrap " " " "
	49	+	, ppHiddenNoWindows = xmobarColor grey black . wrap " " " "
50	50		, ppHidden = xmobarColor light dark . wrap " " " "
51	51		, ppUrgent = xmobarColor black red
52	52		, ppLayout = const ""
53	53		, ppWsSep = ""
54	54		, ppSep = " "

58	58		red = "red"
59	59		white = "white"
60	60		black = "black"
61	61		light = "#888888"
62	62		dark = "#333333"
	63	+	grey = "#555555"
63	64
64	65		toggleStrutsKey :: XConfig t -> (KeyMask, KeySym)
65	66		toggleStrutsKey XConfig { XMonad.modMask = modMask } = (modMask, xK_b)
66	67
67	68		myKeys :: FilePath -> XConfig Layout -> Map (KeyMask, KeySym) (X ())