diff options
| author | Josh Rahm <rahm@google.com> | 2022-04-08 14:46:07 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:46 -0600 |
| commit | b1d96c528a723790fb225d4b9be4422fc90cbcea (patch) | |
| tree | a0bd10ff2e76a172a6062362db9d58e3cb514bcb /src | |
| parent | 401b293fe6a726d24cf944e626c301262d726aad (diff) | |
| download | rde-b1d96c528a723790fb225d4b9be4422fc90cbcea.tar.gz rde-b1d96c528a723790fb225d4b9be4422fc90cbcea.tar.bz2 rde-b1d96c528a723790fb225d4b9be4422fc90cbcea.zip | |
Change the layout modifiers to work on individual layouts.
So, when doing something like a "zoom", it will only affect the current
layout. Before a "zoom" would be persistent across all layouts, now it
will only occur on the current layout.
I'm still trying to decide if I like it this way or not. It looks like
it'll have minimal impact on things. I don't use different layouts that
often anyway.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Internal/Layout.hs | 33 |
1 files changed, 18 insertions, 15 deletions
diff --git a/src/Internal/Layout.hs b/src/Internal/Layout.hs index d883d18..d40dd38 100644 --- a/src/Internal/Layout.hs +++ b/src/Internal/Layout.hs @@ -33,21 +33,24 @@ myLayout = fullscreenFull $ avoidStruts $ spacingRaw True (Border 5 5 5 5) True (Border 5 5 5 5) True $ - ModifiedLayout (Zoomable False 0.05 0.05) $ - ModifiedLayout (Flippable False) $ - ModifiedLayout (HFlippable False) $ - ModifiedLayout (Rotateable False) $ - layoutZipper $ - spiral (6/7) |: - (Corner (3/4) (3/100) :: Corner Window) |: - ModifyDescription TallDescriptionModifier (Tall 1 (3/100) (1/2)) |: - ModifyDescription ThreeColDescMod (ThreeCol 1 (3/100) (1/2)) |: - Full |: - Grid |: - Dishes 2 (1/6) |: - (MosaicAlt M.empty :: MosaicAlt Window) |: - D.Dwindle D.R D.CW 1.5 1.1 |: - nil + layoutZipper $ + mods (spiral (6/7)) |: + mods ((Corner (3/4) (3/100) :: Corner Window)) |: + mods (ModifyDescription TallDescriptionModifier (Tall 1 (3/100) (1/2))) |: + mods (ModifyDescription ThreeColDescMod (ThreeCol 1 (3/100) (1/2))) |: + mods (Full) |: + mods (Grid) |: + mods (Dishes 2 (1/6)) |: + mods ((MosaicAlt M.empty :: MosaicAlt Window)) |: + mods (D.Dwindle D.R D.CW 1.5 1.1) |: + nil + + +mods = + ModifiedLayout (Zoomable False 0.05 0.05) . + ModifiedLayout (Flippable False) . + ModifiedLayout (HFlippable False) . + ModifiedLayout (Rotateable False) data ModifyDescription m l a = ModifyDescription m (l a) deriving (Show, Read) |