diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-04-24 21:06:10 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-04-24 21:10:00 -0600 |
| commit | 07252ce0461d8746481881dbcc6ca07b71fd8553 (patch) | |
| tree | 6392e713485289bae9b6c25bb6f5da0436a5da61 /src/Rahm/Desktop/Layout | |
| parent | 1ff9a98f85df0c3df4e3f1c3f332100922d18317 (diff) | |
| download | rde-07252ce0461d8746481881dbcc6ca07b71fd8553.tar.gz rde-07252ce0461d8746481881dbcc6ca07b71fd8553.tar.bz2 rde-07252ce0461d8746481881dbcc6ca07b71fd8553.zip | |
Roll Windows.hs into R.D.StackSet
Diffstat (limited to 'src/Rahm/Desktop/Layout')
| -rw-r--r-- | src/Rahm/Desktop/Layout/ConsistentMosaic.hs | 3 | ||||
| -rw-r--r-- | src/Rahm/Desktop/Layout/Hole.hs | 3 |
2 files changed, 2 insertions, 4 deletions
diff --git a/src/Rahm/Desktop/Layout/ConsistentMosaic.hs b/src/Rahm/Desktop/Layout/ConsistentMosaic.hs index 0a6215a..3dbc44c 100644 --- a/src/Rahm/Desktop/Layout/ConsistentMosaic.hs +++ b/src/Rahm/Desktop/Layout/ConsistentMosaic.hs @@ -13,7 +13,6 @@ import Data.Maybe (mapMaybe) import XMonad.Layout.MosaicAlt -import Rahm.Desktop.Windows import Rahm.Desktop.Logger @@ -40,7 +39,7 @@ instance (LayoutClass l a, Show a, Ord a, Enum a, Num a) => LayoutClass (MosaicW runLayout (W.Workspace t (MosaicWrap l) (id -> Just s)) rect = do let zs = zipStack [100..] s - s' = mapStack fst zs + s' = fmap fst zs m = Map.fromList (W.integrate zs) (rects, maybeNewLayout) <- runLayout (W.Workspace t l (Just s')) rect diff --git a/src/Rahm/Desktop/Layout/Hole.hs b/src/Rahm/Desktop/Layout/Hole.hs index f6632d5..fe48340 100644 --- a/src/Rahm/Desktop/Layout/Hole.hs +++ b/src/Rahm/Desktop/Layout/Hole.hs @@ -3,11 +3,10 @@ -- Delegates to a lower layout, but leaves a hole where the next window will go. module Rahm.Desktop.Layout.Hole (hole, toggleHole) where -import qualified Rahm.Desktop.StackSet as W import XMonad import Data.Maybe (mapMaybe) -import Rahm.Desktop.Windows +import qualified Rahm.Desktop.StackSet as W data Hole (l :: * -> *) (a :: *) = Hole Bool (l a) |