vanadium/xmonad: make feh float better

This commit is contained in:
Primrose 2025-09-07 17:37:43 +08:00
parent 5539bed063
commit 8394b15e82
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA

View file

@ -115,7 +115,7 @@ main =
in in
composeAll composeAll
[ className ~? "NautilusPreviewer" --> customFloating centeredFloat [ className ~? "NautilusPreviewer" --> customFloating centeredFloat
, className =? "feh" --> doFloat , className =? "feh" --> customFloating buttomRightFloat
, isFirefoxPIP --> doFloat , isFirefoxPIP --> doFloat
, namedScratchpadManageHook myScratchpads , namedScratchpadManageHook myScratchpads
@ -255,10 +255,11 @@ altMask = mod1Mask
myWorkspaces :: [String] myWorkspaces :: [String]
myWorkspaces = take 8 . fmap (:[]) $ greekLower myWorkspaces = take 8 . fmap (:[]) $ greekLower
centeredFloat, smallFloat, fullFloat :: W.RationalRect centeredFloat, smallFloat, fullFloat, buttomRightFloat :: W.RationalRect
centeredFloat = W.RationalRect (1/9) (1/9) (7/9) (7/9) centeredFloat = W.RationalRect (1/9) (1/9) (7/9) (7/9)
smallFloat = W.RationalRect (3/5) (3/5) (2/7) (2/7) smallFloat = W.RationalRect (3/5) (3/5) (2/7) (2/7)
fullFloat = W.RationalRect 0 0 1 1 fullFloat = W.RationalRect 0 0 1 1
buttomRightFloat = W.RationalRect (1/2) (1/2) (1/2) (1/2)
xmobarConfig :: StatusBarConfig xmobarConfig :: StatusBarConfig
xmobarConfig = statusBarProp "xmobar -x 0" (pure myPrettyPrinter) xmobarConfig = statusBarProp "xmobar -x 0" (pure myPrettyPrinter)