twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 20:51:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Hooks.WallpaperSetter: Preserve aspect ratio while scaling images

Browse Source
This commit is contained in:
Alex Griffin
2019-03-18 16:17:18 -05:00
parent c53436f3a6
commit fcced8991a
2 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
CHANGES.md
View File

@@ -71,6 +71,12 @@
Add a utility function `isOnAnyVisibleWS :: Query Bool` to allow easy Add a utility function `isOnAnyVisibleWS :: Query Bool` to allow easy
cycling between all windows on all visible workspaces. cycling between all windows on all visible workspaces.
* `XMonad.Hooks.WallpaperSetter`
Preserve the aspect ratio of wallpapers that xmonad sets. When previous
versions would distort images to fit the screen size, it will now find a
best fit by cropping instead.
## 0.15 ## 0.15

4
XMonad/Hooks/WallpaperSetter.hs
View File

@@ -221,7 +221,7 @@ layerCommand (rect, path) = do
res <- getPicRes path res <- getPicRes path
return $ case needsRotation rect <$> res of return $ case needsRotation rect <$> res of
Nothing -> "" Nothing -> ""
Just rotate -> Just rotate -> let size = show (rect_width rect) ++ "x" ++ show (rect_height rect) in
" \\( '"++path++"' "++(if rotate then "-rotate 90 " else "") " \\( '"++path++"' "++(if rotate then "-rotate 90 " else "")
++ " -scale "++(show$rect_width rect)++"x"++(show$rect_height rect)++"! \\)" ++ " -scale "++size++"^ -gravity center -extent "++size++" +gravity \\)"
++ " -geometry +"++(show$rect_x rect)++"+"++(show$rect_y rect)++" -composite " ++ " -geometry +"++(show$rect_x rect)++"+"++(show$rect_y rect)++" -composite "