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

tv xmonad: center float all pinentry windows

Browse Source
This commit is contained in:
tv 2021-01-13 04:56:43 +01:00
parent e7116bc68e
commit d59ef4a45c
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8,6 +8,7 @@ import System.Exit (exitFailure)
import Control.Exception import Control.Exception
import Control.Monad.Extra (whenJustM) import Control.Monad.Extra (whenJustM)
import qualified Data.List
import Graphics.X11.ExtraTypes.XF86 import Graphics.X11.ExtraTypes.XF86
import Text.Read (readEither) import Text.Read (readEither)
import XMonad import XMonad
@ -59,6 +60,11 @@ main = getArgs >>= \case
args -> hPutStrLn stderr ("bad arguments: " <> show args) >> exitFailure args -> hPutStrLn stderr ("bad arguments: " <> show args) >> exitFailure
queryPrefix :: Query String -> String -> Query Bool
queryPrefix query prefix =
fmap (Data.List.isPrefixOf prefix) query
mainNoArgs :: IO () mainNoArgs :: IO ()
mainNoArgs = do mainNoArgs = do
workspaces0 <- getWorkspaces0 workspaces0 <- getWorkspaces0
@ -82,7 +88,7 @@ mainNoArgs = do
, manageHook = , manageHook =
composeAll composeAll
[ appName =? "fzmenu-urxvt" --> doCenterFloat [ appName =? "fzmenu-urxvt" --> doCenterFloat
, appName =? "pinentry" --> doCenterFloat , appName `queryPrefix` "pinentry" --> doCenterFloat
, title =? "Upload to Imgur" --> , title =? "Upload to Imgur" -->
doRectFloat (W.RationalRect 0 0 (1 % 8) (1 % 8)) doRectFloat (W.RationalRect 0 0 (1 % 8) (1 % 8))
, placeHook (smart (1,0)) , placeHook (smart (1,0))