From a3ad5c55441dab9447a785c69b71ea720f984849 Mon Sep 17 00:00:00 2001
From: qvalentin <valentin.theodor@web.de>
Date: Fri, 29 Oct 2021 11:20:52 +0200
Subject: [PATCH 1/2] quality of life changes

---
 xmonad.hs | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/xmonad.hs b/xmonad.hs
index f547b0b..b909191 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -61,7 +61,7 @@ import XMonad.Hooks.DynamicLog
     xmobarBorder,
     xmobarColor,
     xmobarRaw,
-    xmobarStrip,
+    xmobarStrip, ppVisible
   )
 import XMonad.Hooks.EwmhDesktops
   ( activateLogHook,
@@ -92,7 +92,7 @@ import XMonad.Util.SpawnOnce (spawnOnce)
 import XMonad.Util.Ungrab (unGrab)
 import XMonad.Util.WorkspaceCompare (getSortByIndex)
 import XMonad.Layout (Resize(Expand,Shrink) )
-import XMonad.Layout.DwmStyle (dwmStyle, shrinkText)
+import XMonad.Layout.NoBorders
 
 main :: IO ()
 main = do
@@ -145,8 +145,9 @@ myXmobarPP colors =
       ppTitleSanitize = xmobarStrip,
       ppCurrent = wrap " " "" . xmobarBorder "Top" (colors !! 6) 2,
       ppHidden = white . wrap " " "",
-      ppHiddenNoWindows = white . wrap " " "",
+      ppHiddenNoWindows = lowWhite . wrap " " "",
       ppUrgent = red . wrap (yellow "!") (yellow "!"),
+      ppVisible = wrap " " "" . xmobarBorder "Bottom" (colors !! 6) 2,
       ppOrder = \[ws, l, _, wins] -> [ws, l, wins],
       ppExtras = [logTitles formatFocused formatUnfocused],
       ppSort = hideWorkspaces
@@ -179,6 +180,7 @@ myStartupHook :: X ()
 myStartupHook = do
   spawnOnce "picom &"
   spawnOnce "sh $HOME/.fehbg"
+  spawnOnce "setxkbmap -option caps:escape"
 
 getWalColors :: IO [String]
 getWalColors = do
@@ -193,7 +195,7 @@ mySpacing' i = spacingRaw True (Border i 0 i i) True (Border i 0 i i) True
 --myWorkspaces = [" dev ", " www ", " sys ", " doc ", " vbox ", " chat ", " mus ", " vid ", " gfx "]
 myWorkspaces :: [String]
 myWorkspaces = show <$> ([1 .. 9] ::[Integer] )
-myLayout =  windowNavigation tiled ||| Mirror tiled ||| Full
+myLayout =  smartBorders $ windowNavigation tiled ||| smartBorders Full ||| Mirror tiled
   where
     tiled = mySpacing' 8 $ Tall nmaster delta ratio
     nmaster = 1 -- Default number of windows in the master pane
@@ -221,9 +223,11 @@ myManageHook =
       title =? "Mozilla Firefox" --> viewShift (myWorkspaces !! 1),
       title =? "Signal" --> viewShift (myWorkspaces !! 2),
       className =? "TelegramDesktop" --> viewShift (myWorkspaces !! 2),
+      className =? "Element" --> viewShift (myWorkspaces !! 2),
+      className =? "Thunderbird" --> viewShift (myWorkspaces !! 2),
       className =? "Gimp" --> doShift (myWorkspaces !! 8),
       (className =? "firefox" <&&> resource =? "Dialog") --> doFloat, -- Float Firefox Dialog
-      className =? "alfaview" --> viewShift (myWorkspaces !! 5),
+      className =? "alfaview" --> viewShift (myWorkspaces !! 3),
       className =? "jetbrains-idea" --> viewShift (myWorkspaces !! 4),
       (className =? "jetbrains-studio") <&&> (title ~=? "win") --> doIgnore
     ]

From 4d947ab1a3907e42bf51ded588ac088007b19cfe Mon Sep 17 00:00:00 2001
From: qvalentin <valentin.theodor@web.de>
Date: Sat, 30 Oct 2021 14:51:27 +0200
Subject: [PATCH 2/2] make xmobar fancy

---
 xmonad.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/xmonad.hs b/xmonad.hs
index b909191..9cc1cf2 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -93,6 +93,7 @@ import XMonad.Util.Ungrab (unGrab)
 import XMonad.Util.WorkspaceCompare (getSortByIndex)
 import XMonad.Layout (Resize(Expand,Shrink) )
 import XMonad.Layout.NoBorders
+import XMonad.Layout.Named (named)
 
 main :: IO ()
 main = do
@@ -141,7 +142,7 @@ main = do
 myXmobarPP :: [String] -> PP
 myXmobarPP colors =
   def
-    { ppSep = walXmobarColor 1 " • ",
+    { ppSep = walXmobarColor 1 " \63617 ",
       ppTitleSanitize = xmobarStrip,
       ppCurrent = wrap " " "" . xmobarBorder "Top" (colors !! 6) 2,
       ppHidden = white . wrap " " "",
@@ -153,8 +154,8 @@ myXmobarPP colors =
       ppSort = hideWorkspaces
     }
   where
-    formatFocused = wrap (white "[") (white "]") . walXmobarColor 7 . ppWindow
-    formatUnfocused = wrap (lowWhite "[") (lowWhite "]") . walXmobarColor 4 . ppWindow
+    formatFocused = wrap (walXmobarColor 7 "<fn=2>\58279</fn>") (walXmobarColor 7 "<fn=2>\58254</fn>") . walXmobarColor 7 . ppWindow
+    formatUnfocused = wrap (walXmobarColor 4 "<fn=2>\58279</fn>") (walXmobarColor 4 "<fn=2>\58254</fn>") . walXmobarColor 4 . ppWindow
     walXmobarColor index = xmobarColor (colors !! index) ""
     ppWindow :: String -> String
     ppWindow = xmobarRaw . (\w -> if null w then "untitled" else w) . shorten 30
@@ -197,7 +198,7 @@ myWorkspaces :: [String]
 myWorkspaces = show <$> ([1 .. 9] ::[Integer] )
 myLayout =  smartBorders $ windowNavigation tiled ||| smartBorders Full ||| Mirror tiled
   where
-    tiled = mySpacing' 8 $ Tall nmaster delta ratio
+    tiled =  named "Tall" $ mySpacing' 8  $ Tall nmaster delta ratio
     nmaster = 1 -- Default number of windows in the master pane
     ratio = 1 / 2 -- Default proportion of screen occupied by master pane
     delta = 3 / 100 -- Percent of screen to increment by when resizing panes