added doSink ManageHook

This commit is contained in:
sam-barr
2020-04-29 20:12:57 -05:00
parent 252e6e4d00
commit 04625d0d04

View File

@@ -226,3 +226,7 @@ doCenterFloat = doSideFloat C
-- | Hides window and ignores it.
doHideIgnore :: ManageHook
doHideIgnore = ask >>= \w -> liftX (hide w) >> doF (W.delete w)
-- | Sinks a window
doSink :: ManageHook
doSink = reader (Endo . sink)