twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-05 06:31:54 -07:00
Code Issues Packages Projects Releases Wiki Activity

Allow pattern-matching on 'XMonad.Layout.Choose' by exporting constructors

Browse Source
This commit is contained in:
Felix Springer
2020-03-31 22:21:57 +02:00
parent 78b967198b
commit fa9a3abe49
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
CHANGES.md
View File

@@ -2,6 +2,9 @@
## unknown (unknown) ## unknown (unknown)
* Export constructor for `Choose` and `LR` from `Module.Layout` to allow
pattern-matching on the left and right sub-layouts of `Choose l r a`.
## 0.15 (September 30, 2018) ## 0.15 (September 30, 2018)
* Reimplement `sendMessage` to deal properly with windowset changes made * Reimplement `sendMessage` to deal properly with windowset changes made

4
src/XMonad/Layout.hs
View File

@@ -16,7 +16,7 @@
module XMonad.Layout ( module XMonad.Layout (
Full(..), Tall(..), Mirror(..), Full(..), Tall(..), Mirror(..),
Resize(..), IncMasterN(..), Choose, (|||), ChangeLayout(..), Resize(..), IncMasterN(..), Choose(..), (|||), LR(..), ChangeLayout(..),
mirrorRect, splitVertically, mirrorRect, splitVertically,
splitHorizontally, splitHorizontallyBy, splitVerticallyBy, splitHorizontally, splitHorizontallyBy, splitVerticallyBy,
@@ -144,7 +144,7 @@ infixr 5 |||
-- | A layout that allows users to switch between various layout options. -- | A layout that allows users to switch between various layout options.
data Choose l r a = Choose LR (l a) (r a) deriving (Read, Show) data Choose l r a = Choose LR (l a) (r a) deriving (Read, Show)
-- | Are we on the left or right sub-layout? -- | Sets the current sub-layout (left or right) in 'Choose'.
data LR = L | R deriving (Read, Show, Eq) data LR = L | R deriving (Read, Show, Eq)
data NextNoWrap = NextNoWrap deriving (Eq, Show, Typeable) data NextNoWrap = NextNoWrap deriving (Eq, Show, Typeable)