diff --git a/src/xmonad.hs b/src/xmonad.hs index 21ae0ad..2ef00d1 100644 --- a/src/xmonad.hs +++ b/src/xmonad.hs @@ -12,6 +12,8 @@ import XMonad.Hooks.StatusBar import XMonad.Layout.BinarySpacePartition import XMonad.Layout.NoBorders import XMonad.Layout.Renamed +import XMonad.Layout.SimpleDecoration +import XMonad.Layout.SimpleFloat import XMonad.Layout.Spacing import XMonad.StackSet qualified as W import XMonad.Util.EZConfig @@ -50,6 +52,14 @@ myConfig = def , keys = (`mkKeymap` myKeymap) } +mySDConfig = def + { inactiveBorderColor = "red" + , inactiveTextColor = "red" + , fontName = "Fisa Code" + , decoWidth = 5000 + , decoHeight = 28 + } + -- -- Configuration -- @@ -86,8 +96,9 @@ myKeymap = -- toggling layouts , ("M-a t", sendMessage $ JumpToLayout "dynamic tiling" ) , ("M-a b", sendMessage $ JumpToLayout "binary space partition") + , ("M-a f", sendMessage $ JumpToLayout "floating" ) , ("M-a m", sendMessage $ JumpToLayout "maximised" ) - , ("M-a f", sendMessage $ JumpToLayout "fullscreen" ) + , ("M-a F", sendMessage $ JumpToLayout "fullscreen" ) -- enable modal modes , ("M-a m e", setMode "edit") @@ -205,11 +216,12 @@ editMode = mode "edit" $ mkKeysEz -- Layouts -- -myLayouts = myTile ||| myBsp ||| myMax ||| myFull +myLayouts = myTile ||| myBsp ||| myFloat ||| myMax ||| myFull where -- our layouts myTile = renamed [Replace "dynamic tiling" ] . avoidStruts . myGaps $ Tall nmaster delta ratio myBsp = renamed [Replace "binary space partition"] . avoidStruts . myGaps $ emptyBSP + myFloat = renamed [Replace "floating" ] . avoidStruts $ simpleFloat' shrinkText mySDConfig myMax = renamed [Replace "maximised" ] . avoidStruts . myGaps $ Full myFull = renamed [Replace "fullscreen" ] . noBorders $ Full -- add a configurable amount of space around windows.