wildcard wm_class for java gui development
This commit is contained in:
parent
938da0d6b2
commit
3063b4e06a
1 changed files with 6 additions and 1 deletions
|
@ -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
|
||||||
|
@ -246,9 +247,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 ~? "App" --> doFloat -- gui development (java)
|
||||||
]
|
]
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue