REF clean up code
This commit is contained in:
parent
02ff416d70
commit
afdd950dd4
|
@ -132,7 +132,6 @@ myLayouts = onWorkspace myVMWorkspace vmLayout
|
||||||
$ noBorders
|
$ noBorders
|
||||||
$ Tall 1 0.03 0.5
|
$ Tall 1 0.03 0.5
|
||||||
single = named "Tabbed"
|
single = named "Tabbed"
|
||||||
-- $ addTopBar
|
|
||||||
$ avoidStruts
|
$ avoidStruts
|
||||||
$ noBorders
|
$ noBorders
|
||||||
$ tabbedAlways shrinkText T.tabbedTheme
|
$ tabbedAlways shrinkText T.tabbedTheme
|
||||||
|
@ -194,8 +193,8 @@ appendViewShift tag = liftX (appendWorkspace tag) >> viewShift tag
|
||||||
($?) :: Query a -> (a -> Bool) -> Query Bool
|
($?) :: Query a -> (a -> Bool) -> Query Bool
|
||||||
($?) q f = f <$> q
|
($?) q f = f <$> q
|
||||||
|
|
||||||
matchGimp :: String -> Query Bool
|
matchGimpRole :: String -> Query Bool
|
||||||
matchGimp role = stringProperty "WM_WINDOW_ROLE" $? isPrefixOf role
|
matchGimpRole role = stringProperty "WM_WINDOW_ROLE" $? isPrefixOf role
|
||||||
<&&> className =? myGimpClass
|
<&&> className =? myGimpClass
|
||||||
|
|
||||||
moveBottom :: W.StackSet i l a s sd -> W.StackSet i l a s sd
|
moveBottom :: W.StackSet i l a s sd -> W.StackSet i l a s sd
|
||||||
|
@ -206,9 +205,9 @@ myManageHook = composeOne
|
||||||
-- VM window
|
-- VM window
|
||||||
[ className =? myVMClass -?> appendViewShift myVMWorkspace
|
[ className =? myVMClass -?> appendViewShift myVMWorkspace
|
||||||
-- GIMP
|
-- GIMP
|
||||||
, matchGimp "gimp-image-window" -?> appendViewShift myGimpWorkspace
|
, matchGimpRole "gimp-image-window" -?> appendViewShift myGimpWorkspace
|
||||||
, matchGimp "gimp-dock" -?> doF (moveBottom . W.focusMaster)
|
, matchGimpRole "gimp-dock" -?> doF (moveBottom . W.focusMaster)
|
||||||
, matchGimp "gimp-toolbox" -?> doF (moveBottom . W.focusMaster)
|
, matchGimpRole "gimp-toolbox" -?> doF (moveBottom . W.focusMaster)
|
||||||
, className =? myGimpClass -?> appendViewShift myGimpWorkspace
|
, className =? myGimpClass -?> appendViewShift myGimpWorkspace
|
||||||
-- the seafile applet
|
-- the seafile applet
|
||||||
, className =? "Seafile Client" -?> doFloat
|
, className =? "Seafile Client" -?> doFloat
|
||||||
|
|
Loading…
Reference in New Issue