jasmine/xmonad-config
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

debug: testing

Browse source
This commit is contained in:
♥ Minnie ♥ 2025-09-01 22:46:11 +08:00
parent 55a116d47b
commit d31b3e4bc1
Signed by: jasmine
GPG key ID: 8563E358D4E8040E
1 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/xmonad.hs
View file

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