Fixed XMonad/dzen2 font setup

.gitignore

@@ -0,0 +1,5 @@
+prompt-history
+xmonad-x86_64-linux
+xmonad.errors
+xmonad.hi
+xmonad.o

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
 }