twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.L.TwoPane[Persistent]: Add minimum widths for Shrink and Expand

Browse Source
This commit is contained in:
Daniel Cousens 2023-12-22 14:38:48 +11:00 committed by Tony Zorman
parent c01cd3a33b
commit cd32cac54b
2 changed files with 4 additions and 4 deletions
Show Stats 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 = handleMessage (TwoPane delta split) x =
return $ case fromMessage x of return $ case fromMessage x of
Just Shrink -> Just (TwoPane delta (split - delta)) Just Shrink -> Just (TwoPane delta (max 0 (split - delta)))
Just Expand -> Just (TwoPane delta (split + delta)) Just Expand -> Just (TwoPane delta (min 1 (split + delta)))
_ -> Nothing _ -> Nothing
description _ = "TwoPane" 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 = pureMessage (TwoPanePersistent w delta split) x =
case fromMessage x of case fromMessage x of
Just Shrink -> Just (TwoPanePersistent w delta (split - delta)) Just Shrink -> Just (TwoPanePersistent w delta (max 0 (split - delta)))
Just Expand -> Just (TwoPanePersistent w delta (split + delta)) Just Expand -> Just (TwoPanePersistent w delta (min 1 (split + delta)))
_ -> Nothing _ -> Nothing
description _ = "TwoPanePersistent" description _ = "TwoPanePersistent"