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

Merge pull request #858 from dcousens/fix-min-width

Browse Source 
Fix minimum widths for Shrink and Expand
This commit is contained in:
Tony Zorman
2023-12-23 08:07:57 +01:00
committed by GitHub
parent c01cd3a33b cd32cac54b
commit 5ceaed8126
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Layout/TwoPane.hs
View File

@@ -56,8 +56,8 @@ instance LayoutClass TwoPane a where
handleMessage (TwoPane delta split) x =
return $ case fromMessage x of
Just Shrink -> Just (TwoPane delta (split - delta))
Just Expand -> Just (TwoPane delta (split + delta))
Just Shrink -> Just (TwoPane delta (max 0 (split - delta)))
Just Expand -> Just (TwoPane delta (min 1 (split + delta)))
_ -> Nothing
description _ = "TwoPane"

4
XMonad/Layout/TwoPanePersistent.hs
View File

@@ -58,8 +58,8 @@ instance (Show a, Eq a) => LayoutClass TwoPanePersistent a where
pureMessage (TwoPanePersistent w delta split) x =
case fromMessage x of
Just Shrink -> Just (TwoPanePersistent w delta (split - delta))
Just Expand -> Just (TwoPanePersistent w delta (split + delta))
Just Shrink -> Just (TwoPanePersistent w delta (max 0 (split - delta)))
Just Expand -> Just (TwoPanePersistent w delta (min 1 (split + delta)))
_ -> Nothing
description _ = "TwoPanePersistent"