From 14b8971b39e66cfbeddb1b0594651825679bed4d Mon Sep 17 00:00:00 2001 From: Trey Blancher Date: Sat, 30 May 2020 17:09:39 -0400 Subject: [PATCH] Fixed XMonad/dzen2 font setup --- .gitignore | 5 +++++ xmonad.hs | 27 +++++++++++++++++++-------- 2 files changed, 24 insertions(+), 8 deletions(-) create mode 100644 .gitignore diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..746a377 --- /dev/null +++ b/.gitignore @@ -0,0 +1,5 @@ +prompt-history +xmonad-x86_64-linux +xmonad.errors +xmonad.hi +xmonad.o diff --git a/xmonad.hs b/xmonad.hs index 28e1bce..ca3d801 100755 --- a/xmonad.hs +++ b/xmonad.hs @@ -99,7 +99,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 1500 -w 425 -u -h 24 -ta l -sa c -fn 'xos4 Terminus:Regular:Pixelsize=12' &" + \done | dzen2 -dock -p -x 1600 -w 325 -u -h 24 -ta r -sa c &" else if sc == 3 then do @@ -112,7 +112,7 @@ toggleHomeScreens = do \echo -n ' '; \n\ \date '+%a, %b %d %T'; \n\ \sleep 1; \n\ - \done | dzen2 -dock -p -x 1680 -w 255 -h 24 -ta l -fg #aaaaaa -bg #000000 -fn 'xos4 Terminus:Regular:Pixelsize=12' &" + \done | dzen2 -dock -p -x 1680 -w 255 -h 24 -ta l -fg #aaaaaa -bg #000000 -fn 'xos4 Terminus:style=Regular:Pixelsize=12' &" spawn "while true; do \n\ \~/bin/battery; \n\ \echo -n ' '; \n\ @@ -120,7 +120,7 @@ toggleHomeScreens = do \echo -n ' '; \n\ \date '+%a, %b %d %T'; \n\ \sleep 1; \n\ - \done | dzen2 -dock -p -x 3600 -w 255 -h 24 -ta l -fg #aaaaaa -bg #000000 -fn 'xos4 Terminus:Regular:Pixelsize=12' &" + \done | dzen2 -dock -p -x 3600 -w 255 -h 24 -ta l -fg #aaaaaa -bg #000000 -fn 'xos4 Terminus:style=Regular:Pixelsize=12' &" spawn "while true; do \n\ \~/bin/battery; \n\ \echo -n ' '; \n\ @@ -128,7 +128,7 @@ toggleHomeScreens = do \echo -n ' '; \n\ \date '+%a, %b %d %T'; \n\ \sleep 1; \n\ - \done | dzen2 -dock -p -x 5520 -w 255 -h 24 -ta l -fg #aaaaaa -bg #000000 -fn 'xos4 Terminus:Regular:Pixelsize=12' &" + \done | dzen2 -dock -p -x 5520 -w 255 -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 &" -} @@ -210,18 +210,25 @@ layoutH = layoutHints -- ||| tiled ||| Mirror tiled) $ Full ||| Mirror tiled + ||| tabbed shrinkText myTheme ||| tiled where tiled = Tall 1 (3 % 100) (1/2) --tiled2 = Tall 1 (3 % 100) (5 % 9) +myTheme :: Theme +myTheme = defaultTheme { + fontName = myFont +} +myFont = "xos4 Terminus:style=Regular:Pixelsize=12" + fadeHook = fadeInactiveLogHook fadeAmount where fadeAmount = 0.8 makeLauncher yargs run exec close = concat ["exe=`yegonesh ", yargs, "` && ", run, " ", exec, "$exe", close] -launcher = makeLauncher "-x -- -nf grey -nb black -fn 'xos4 Terminus:style=Regular:Pixelsize=16'" "eval" "\"exec " "\"" +launcher = makeLauncher "-x -- -nf grey -nb black -fn 'xos4 Terminus:Pixelsize=12'" "eval" "\"exec " "\"" flags = "-e onstart lower -w 800 -h 24 -ta l -fg #aaaaaa -bg #000000 -fn 'xos4 Terminus:style=Regular:Pixelsize=12'" @@ -250,14 +257,14 @@ myStartup :: X () myStartup = do setWMName "LG3D" toggleHomeScreens - spawn "trayer --edge top --align right --widthtype request --margin 425 --expand false --align right --SetDockType true --SetPartialStrut false --tint 0x000000 --transparent true --alpha 0 --height 32 --monitor 'primary'" + spawn "trayer --edge top --align right --widthtype request --margin 315 --expand false --align right --SetDockType true --SetPartialStrut false --tint 0x000000 --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'" myBitmapsDir = "/home/trey/.xmonad/dzen2" --leftBar = "dzen2 -w 0 -h 24 -ta l -fg #555753 -bg #000000 -fn Terminus-10 -xs 1" -centerBar = "dzen2 -dock -p -x 2060 -ta l -w 1024 -e 'onstart:lower;button2=togglehide' -fg #555753 -bg #000000 -fn 'xos4 Terminus:style=Regular:size=12'" +centerBar = "dzen2 -dock -p -x 2060 -ta l -w 1024 -e 'onstart:lower;button2=togglehide'" -- rightBar = "dzen2 -w 3840 -h 24 -ta r -fg #555753 -bg #000000 -fn Terminus-10 -xs 2" myLogHook :: Handle -> X () @@ -539,7 +546,9 @@ myKeys = [ dXPConfig = defaultXPConfig { bgColor = "yellow" -, fgColor = "blue" + , fgColor = "blue" + , font = myFont + } myXPConfigSelect = defaultXPConfig { @@ -547,6 +556,7 @@ myXPConfigSelect = defaultXPConfig { , fgColor = "blue" , autoComplete = Just 0 , showCompletionOnTab = True + , font = myFont } myXPConfigNew = defaultXPConfig { @@ -554,5 +564,6 @@ myXPConfigNew = defaultXPConfig { , fgColor = "blue" , autoComplete = Nothing , showCompletionOnTab = True + , font = myFont }