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

wildcard wm_class for java gui development

Browse source
This commit is contained in:
♥ Minnie ♥ 2025-09-01 15:47:14 +08:00
parent 938da0d6b2
commit 717793c26c
Signed by: jasmine
GPG key ID: 8563E358D4E8040E
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/xmonad.hs
View file

@ -1,3 +1,4 @@
import Data.List as L
import Data.Map qualified as M import Data.Map qualified as M
import XMonad import XMonad
import XMonad.Actions.CycleWS import XMonad.Actions.CycleWS
@ -10,6 +11,7 @@ import XMonad.Hooks.Modal
import XMonad.Hooks.StatusBar import XMonad.Hooks.StatusBar
import XMonad.Layout.BinarySpacePartition import XMonad.Layout.BinarySpacePartition
import XMonad.Layout.NoBorders import XMonad.Layout.NoBorders
import XMonad.Layout.NoFrillsDecoration
import XMonad.Layout.Renamed import XMonad.Layout.Renamed
import XMonad.Layout.Spacing import XMonad.Layout.Spacing
import XMonad.StackSet qualified as W import XMonad.StackSet qualified as W
@ -209,7 +211,7 @@ myLayouts = myTile ||| myBsp ||| myMax ||| myFull
-- 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
myMax = renamed [Replace "maximised" ] . avoidStruts . myGaps $ Full myMax = renamed [Replace "maximised" ] . avoidStruts . myGaps . noFrillsDeco shrinkText def $ 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.
myGaps = spacingRaw False (Border 10 10 10 10) True (Border 10 10 10 10) True myGaps = spacingRaw False (Border 10 10 10 10) True (Border 10 10 10 10) True
@ -246,9 +248,13 @@ myXmobarPP = def
-- ManageHook -- ManageHook
-- --
(~?) :: Eq a => Query [a] -> [a] -> Query Bool
q ~? x = fmap (x `L.isInfixOf`) q
myManageHook = composeAll myManageHook = composeAll
[ className =? "Thunar" --> doFloat [ className =? "Thunar" --> doFloat
, className =? "Ristretto" --> doFloat , className =? "Ristretto" --> doFloat
, className =? "Tk" --> doFloat -- python gui development , className =? "Tk" --> doFloat -- gui development (python)
, className =? "TkFDialog" --> doFloat -- ^^ , className =? "TkFDialog" --> doFloat -- ^^
, className ~? "FLT" --> doFloat -- gui development (java)
] ]