Mic92
/
stockholm
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tv xmonad: queryPrefix -> (=??)

This commit is contained in:
tv 2021-02-20 13:08:12 +01:00
parent f9bc618fad
commit 662c2c6f90
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tv/5pkgs/haskell/xmonad-tv/src/main.hs
View File

@ -60,9 +60,8 @@ main = getArgs >>= \case
args -> hPutStrLn stderr ("bad arguments: " <> show args) >> exitFailure
queryPrefix :: Query String -> String -> Query Bool
queryPrefix query prefix =
fmap (Data.List.isPrefixOf prefix) query
(=??) :: Query a -> (a -> Bool) -> Query Bool
(=??) x p = fmap p x
mainNoArgs :: IO ()
@ -88,7 +87,7 @@ mainNoArgs = do
, manageHook =
composeAll
[ appName =? "fzmenu-urxvt" --> doCenterFloat
, appName `queryPrefix` "pinentry" --> doCenterFloat
, appName =?? Data.List.isPrefixOf "pinentry" --> doCenterFloat
, title =? "Upload to Imgur" -->
doRectFloat (W.RationalRect 0 0 (1 % 8) (1 % 8))
, placeHook (smart (1,0))