REF clean up code

This commit is contained in:
Nathan Dwarshuis 2020-03-27 20:02:27 -04:00
parent 02ff416d70
commit afdd950dd4
1 changed files with 5 additions and 6 deletions

View File

@ -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