From f8f3412c74f8cf4f809a4fcd30b9631d2c122d6d Mon Sep 17 00:00:00 2001 From: Trey Blancher Date: Sat, 18 Sep 2021 20:28:58 -0400 Subject: [PATCH] Gruvbox setup --- xmonad.hs | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) diff --git a/xmonad.hs b/xmonad.hs index 66398ab..672f32f 100755 --- a/xmonad.hs +++ b/xmonad.hs @@ -140,7 +140,7 @@ toggleHomeScreens = do \date \"+%a, %b %d %T\"; \n\ \/usr/bin/sed -E \"s/($(date +%_d)\b)/^fg(green)\1^fg()/\" ; \n\ \sleep 1; \n\ - \done | dzen2 -dock -p -x 1600 -w 325 -u -h 24 -ta r -sa c -e 'sigusr1=togglehide'&" + \done | dzen2 -dock -p -x 1600 -w 325 -u -h 24 -ta r -fg '#ebdbb2' -bg '#282828' -sa c -e 'sigusr1=togglehide' &" else if sc == 3 then do @@ -153,7 +153,7 @@ toggleHomeScreens = do \echo -n ' '; \n\ \date '+%a, %b %d %T'; \n\ \sleep 1; \n\ - \done | dzen2 -dock -p -x 1602 -w 325 -h 24 -ta l -fg #aaaaaa -bg #000000 -fn 'xos4 Terminus:style=Regular:Pixelsize=12' &" + \done | dzen2 -dock -p -x 1602 -w 325 -h 24 -ta l -fg #ebdbb2 -bg #282828 -fn 'xos4 Terminus:style=Regular:Pixelsize=12' &" spawn "while true; do \n\ \~/bin/battery; \n\ \echo -n ' '; \n\ @@ -161,7 +161,7 @@ toggleHomeScreens = do \echo -n ' '; \n\ \date '+%a, %b %d %T'; \n\ \sleep 1; \n\ - \done | dzen2 -dock -p -x 3522 -w 325 -h 24 -ta l -fg #aaaaaa -bg #000000 -fn 'xos4 Terminus:style=Regular:Pixelsize=12' &" + \done | dzen2 -dock -p -x 3522 -w 325 -h 24 -ta l -fg #ebdbb2 -bg #282828 -fn 'xos4 Terminus:style=Regular:Pixelsize=12' &" spawn "while true; do \n\ \~/bin/battery; \n\ \echo -n ' '; \n\ @@ -169,10 +169,10 @@ toggleHomeScreens = do \echo -n ' '; \n\ \date '+%a, %b %d %T'; \n\ \sleep 1; \n\ - \done | dzen2 -dock -p -x 5442 -w 325 -h 24 -ta l -fg #aaaaaa -bg #000000 -fn 'xos4 Terminus:style=Regular:Pixelsize=12' &" -{- spawn "while true; do echo -n $(cat /tmp/temp); echo -n ' '; date '+%a, %b %d %T'; sleep 1; done | dzen2 -dock -p -x 1710 -w 210 -e 'onstart:lower;button2=togglehide' -h 24 -ta l -fg #aaaaaa -bg #000000 -fn Terminus-10 -xs 1 &" - spawn "while true; do echo -n $(cat /tmp/temp); echo -n ' '; date '+%a, %b %d %T'; sleep 1; done | dzen2 -dock -p -x 3630 -w 210 -e 'onstart:lower;button2=togglehide' -h 24 -ta l -fg #aaaaaa -bg #000000 -fn Terminus-10 -xs 0 &" - spawn "while true; do echo -n $(cat /tmp/temp); echo -n ' '; date '+%a, %b %d %T'; sleep 1; done | dzen2 -dock -p -x 5550 -w 210 -e 'onstart:lower;button2=togglehide' -h 24 -ta r -fg #aaaaaa -bg #000000 -fn Terminus-10 -xs 2 &" -} + \done | dzen2 -dock -p -x 5442 -w 325 -h 24 -ta l -fg #ebdbb2 -bg #282828 -fn 'xos4 Terminus:style=Regular:Pixelsize=12' &" +{- spawn "while true; do echo -n $(cat /tmp/temp); echo -n ' '; date '+%a, %b %d %T'; sleep 1; done | dzen2 -dock -p -x 1710 -w 210 -e 'onstart:lower;button2=togglehide' -h 24 -ta l -fg #aaaaaa -bg #282828 -fn Terminus-10 -xs 1 &" + spawn "while true; do echo -n $(cat /tmp/temp); echo -n ' '; date '+%a, %b %d %T'; sleep 1; done | dzen2 -dock -p -x 3630 -w 210 -e 'onstart:lower;button2=togglehide' -h 24 -ta l -fg #aaaaaa -bg #282828 -fn Terminus-10 -xs 0 &" + spawn "while true; do echo -n $(cat /tmp/temp); echo -n ' '; date '+%a, %b %d %T'; sleep 1; done | dzen2 -dock -p -x 5550 -w 210 -e 'onstart:lower;button2=togglehide' -h 24 -ta r -fg #aaaaaa -bg #282828 -fn Terminus-10 -xs 2 &" -} else return () @@ -292,8 +292,8 @@ main = do , layoutHook = avoidStruts $ gaps [(D,90)] $ layoutH , logHook = myLogHook dzenTopBar >> fadeHook >> updatePointer (0.5, 0.5) (0, 0) , borderWidth = 1 - , normalBorderColor = "#333333" - , focusedBorderColor = "#CCCC00" + , normalBorderColor = "#282828" + , focusedBorderColor = "#ebdbb2" , modMask = winKey , startupHook = docksStartupHook <+> myStartup } `additionalKeys` myKeys @@ -303,7 +303,7 @@ myStartup :: X () myStartup = do --setWMName "LG3D" toggleHomeScreens - spawn "trayer --edge top --align right --widthtype request --margin 318 --expand false --SetDockType true --SetPartialStrut false --tint 0x000000 --transparent true --alpha 0 --height 24 --monitor 'primary'" + spawn "trayer --edge top --align right --widthtype request --margin 318 --expand false --SetDockType true --SetPartialStrut false --tint 0x282828 --transparent true --alpha 0 --height 24 --monitor 'primary'" --spawn "gnome-gmail-notifier" spawn "xset dpms 600" --spawn "xautolock -secure -time 10 -locker 'i3lock -c 000000 -i /home/trey/images/black.png'" @@ -320,14 +320,14 @@ myBitmapsDir = "/home/trey/.xmonad/dzen2" myLogHook :: Handle -> X () myLogHook h = dynamicLogWithPP $ defaultPP { - ppCurrent = dzenColor "#8AE234" "#000000" . pad - , ppVisible = dzenColor "#555753" "#000000" . pad - , ppHidden = dzenColor "#999999" "#000000" . pad - , ppHiddenNoWindows = dzenColor "#555753" "#000000" . pad - , ppUrgent = dzenColor "#cc0000" "#000000" . pad + ppCurrent = dzenColor "#8AE234" "#282828" . pad + , ppVisible = dzenColor "#555753" "#282828" . pad + , ppHidden = dzenColor "#ebdbb2" "#282828" . pad + , ppHiddenNoWindows = dzenColor "#555753" "#282828" . pad + , ppUrgent = dzenColor "#cc0000" "#282828" . pad , ppWsSep = "." , ppSep = " | " - , ppLayout = dzenColor "#660000" "#000000" . + , ppLayout = dzenColor "#666600" "#282828" . (\x -> case x of "Tall" -> "^i(" ++ myBitmapsDir ++ "/tall.xbm)" "Mirror Tall" -> "^i(" ++ myBitmapsDir ++ "/mtall.xbm)" @@ -336,7 +336,7 @@ myLogHook h = dynamicLogWithPP $ defaultPP "IM Grid" -> "IM" _ -> x ) - , ppTitle = ("" ++) . dzenColor "#ff6600" "#000000" . dzenEscape + , ppTitle = ("" ++) . dzenColor "#ff6600" "#282828" . dzenEscape , ppOutput = hPutStrLn h }