Merge remote-tracking branch 'origin/master'

dotfiles/config/starship.toml

@@ -1,6 +1,4 @@
-# Inserts a blank line between shell prompts
-add_newline = true
-
-# Replace the "❯" symbol in the prompt with "➜"
-[character]                            # The name of the module we are configuring is "character"
-success_symbol = "[➜](bold green)"     # The "success_symbol" segment is being set to "➜" with the color "bold green"
+add_newline = false
+[character]
+success_symbol = "[➜](bold green)"
+error_symbol = "[➜](bold red)"

dotfiles/config/taffybar/taffybar.hs

@@ -127,7 +127,7 @@ logDebug = do
 cssFileByHostname =
   [ ("uber-loaner", "uber-loaner.css")
   , ("imalison-home", "taffybar.css")
-  , ("ivanm-dfinity-razer", "ivanm-dfinity-razer.css")
+  , ("ivanm-dfinity-razer", "taffybar.css")
   , ("ryzen-shine", "taffybar.css")
   ]
 
@@ -193,7 +193,6 @@ main = do
       shortLaptopEndWidgets =
         [ myBatteryIcon
         , myBatteryText
-        , myClock
         , myTray
         , myICP
         , myMpris

dotfiles/config/xmonad/xmonad.hs

@@ -255,6 +255,7 @@ hostNameToAction =
              ]
 
 myStartup = do
+  setToggleActiveAll AVOIDSTRUTS True
   setToggleActiveAll GAPS True
   setToggleActiveAll NOBORDERS True
   hostName <- io getHostName
@@ -283,6 +284,7 @@ data MyToggles
   | GAPS
   | MAGICFOCUS
   | MAGNIFY
+  | AVOIDSTRUTS
   deriving (Read, Show, Eq, Typeable)
 
 instance Transformer MyToggles Window where
@@ -290,10 +292,15 @@ instance Transformer MyToggles Window where
   transform GAPS x k = k (smartSpacing 5 x) unmodifyLayout
   transform MAGICFOCUS x k = k (magicFocus x) unmodifyLayout
   transform MAGNIFY x k = k (myMagnify x) unmodifyLayout
+  transform AVOIDSTRUTS x k = k (avoidStruts x) unmodifyLayout
 
-myToggles = [LIMIT, GAPS, MAGICFOCUS, MAGNIFY]
+myToggles = [LIMIT, GAPS, MAGICFOCUS, MAGNIFY, AVOIDSTRUTS]
 otherToggles = [NBFULL, MIRROR, NOBORDERS, SMARTBORDERS]
-toggleHandlers = [(Toggle GAPS, toggleAll), (Toggle MAGNIFY, toggleAll)]
+toggleHandlers =
+  [ (Toggle GAPS, toggleAll)
+  , (Toggle MAGNIFY, toggleAll)
+  , (Toggle AVOIDSTRUTS, toggleAll)
+  ]
 
 instance Eq (Toggle Window) where
   (Toggle v) == v2 = Just v == fromToggle v2
@@ -397,9 +404,9 @@ layoutNames = [description layout | layout <- layoutList]
 selectLayout = myDmenu layoutNames >>= (sendMessage . JumpToLayout)
 
 myLayoutHook =
-  avoidStruts .
   minimizeNoDescription .
   boringAuto .
+  mkToggle1 AVOIDSTRUTS .
   mkToggle1 MIRROR .
   mkToggle1 LIMIT .
   mkToggle1 GAPS .