blob: c5c7472eb6b83cfa3bfe16db5881a1a5104d4cc8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
-- 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
import XMonad
import qualified XMonad.StackSet as W
import Data.Typeable (Typeable)
-- Type-class to modify the description of a layout.
class Describer m l where
-- Returns the new description from the given description modifier, the layout
-- and the existing description.
newDescription :: m -> l a -> String -> String
-- With a DescriptionModifier,
data Redescribe m l a = Redescribe m (l a)
deriving (Show, Read)
-- Delegates to the underlying Layout, except for the description
instance (Typeable m, Show m, Describer m l, LayoutClass l a) =>
LayoutClass (Redescribe m l) a where
runLayout (W.Workspace t (Redescribe m l) a) rect = do
(rects, maybeNewLayout) <- runLayout (W.Workspace t l a) rect
return (rects, fmap (Redescribe m) maybeNewLayout)
handleMessage (Redescribe m l) a = do
maybeNewLayout <- handleMessage l a
return (Redescribe m <$> maybeNewLayout)
description (Redescribe m l) = newDescription m l (description l)
|
