aboutsummaryrefslogtreecommitdiff
path: root/src/Rahm/Desktop/Layout
diff options
context:
space:
mode:
Diffstat (limited to 'src/Rahm/Desktop/Layout')
-rw-r--r--src/Rahm/Desktop/Layout/ConsistentMosaic.hs8
-rw-r--r--src/Rahm/Desktop/Layout/Redescribe.hs6
-rw-r--r--src/Rahm/Desktop/Layout/ReinterpretMessage.hs6
3 files changed, 17 insertions, 3 deletions
diff --git a/src/Rahm/Desktop/Layout/ConsistentMosaic.hs b/src/Rahm/Desktop/Layout/ConsistentMosaic.hs
index 52406d6..c513530 100644
--- a/src/Rahm/Desktop/Layout/ConsistentMosaic.hs
+++ b/src/Rahm/Desktop/Layout/ConsistentMosaic.hs
@@ -2,7 +2,13 @@
-- consistent experience where instead of the windows being the ones it works
-- on, it instead works on the window places so things like window swapping
-- still work as expected.
-module Rahm.Desktop.Layout.ConsistentMosaic where
+module Rahm.Desktop.Layout.ConsistentMosaic
+ ( doAlt,
+ expandPositionAlt,
+ shrinkPositionAlt,
+ MosaicWrap(..)
+ )
+where
import qualified Data.Map as Map (fromList, lookup)
import Data.Maybe (mapMaybe)
diff --git a/src/Rahm/Desktop/Layout/Redescribe.hs b/src/Rahm/Desktop/Layout/Redescribe.hs
index e65fd69..ca041c3 100644
--- a/src/Rahm/Desktop/Layout/Redescribe.hs
+++ b/src/Rahm/Desktop/Layout/Redescribe.hs
@@ -1,7 +1,11 @@
-- Module to enable redescribing layouts. Unlike LayoutModifiers though, this
-- class is aware of the underlying type as it may need to access some internals
-- to generate the new description.
-module Rahm.Desktop.Layout.Redescribe where
+module Rahm.Desktop.Layout.Redescribe
+ ( Describer (..),
+ Redescribe (..),
+ )
+where
import qualified Rahm.Desktop.StackSet as W
( Workspace (Workspace),
diff --git a/src/Rahm/Desktop/Layout/ReinterpretMessage.hs b/src/Rahm/Desktop/Layout/ReinterpretMessage.hs
index fc3c447..3d77bef 100644
--- a/src/Rahm/Desktop/Layout/ReinterpretMessage.hs
+++ b/src/Rahm/Desktop/Layout/ReinterpretMessage.hs
@@ -1,4 +1,8 @@
-module Rahm.Desktop.Layout.ReinterpretMessage where
+module Rahm.Desktop.Layout.ReinterpretMessage
+ ( DoReinterpret (..),
+ ReinterpretMessage (..),
+ )
+where
import Data.Proxy (Proxy (..))
import XMonad (SomeMessage, X)