aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDavid Roundy <droundy@darcs.net>2007-06-10 03:22:37 +0200
committerDavid Roundy <droundy@darcs.net>2007-06-10 03:22:37 +0200
commit691ee5945cccc64c5fadf88dbb7266f6481ef064 (patch)
tree53812418e0c2d056375736289882132fc430083f
parentb923b690f669b79654c455f4b4e2d3adeb999694 (diff)
downloadxmonad-691ee5945cccc64c5fadf88dbb7266f6481ef064.tar.gz
xmonad-691ee5945cccc64c5fadf88dbb7266f6481ef064.tar.xz
xmonad-691ee5945cccc64c5fadf88dbb7266f6481ef064.zip
implement Spencer's decoration suggestion.
darcs-hash:20070610012237-72aca-4c5873773e58103f57f7a0b232da58c269248fa7.gz
-rw-r--r--Main.hs4
-rw-r--r--Operations.hs14
-rw-r--r--XMonad.hs2
3 files changed, 13 insertions, 7 deletions
diff --git a/Main.hs b/Main.hs
index 24e88ee..c17e741 100644
--- a/Main.hs
+++ b/Main.hs
@@ -224,4 +224,6 @@ handle e@(ConfigureRequestEvent {ev_window = w}) = withDisplay $ \dpy -> do
-- the root may have configured
handle (ConfigureEvent {ev_window = w}) = whenX (isRoot w) rescreen
-handle _ = return () -- trace (eventName e) -- ignoring
+handle e = sendMessage e -- trace (eventName e) -- ignoring
+
+instance Message Event
diff --git a/Operations.hs b/Operations.hs
index 92f48b2..eb3a871 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -335,7 +335,11 @@ switchLayout = layout (\(x, xs) -> let xs' = xs ++ [x] in (head xs', tail xs'))
-- TODO, this will refresh on Nothing.
--
sendMessage :: Message a => a -> X ()
-sendMessage a = layout $ \x@(l, ls) -> maybe x (flip (,) ls) (modifyLayout l (SomeMessage a))
+sendMessage a = do n <- (W.tag . W.workspace . W.current) `fmap` gets windowset
+ Just (l,ls) <- M.lookup n `fmap` gets layouts
+ ml' <- modifyLayout l (SomeMessage a)
+ whenJust ml' $ \l' -> do modify $ \s -> s { layouts = M.insert n (l',ls) (layouts s) }
+ refresh
--
-- Builtin layout algorithms:
@@ -358,7 +362,7 @@ instance Message IncMasterN
-- a plea for tuple sections: map . (,sc)
full :: Layout
full = Layout { doLayout = \sc ws -> return [ (w,sc) | w <- ws ]
- , modifyLayout = const Nothing } -- no changes
+ , modifyLayout = const (return Nothing) } -- no changes
--
-- The tiling mode of xmonad, and its operations.
@@ -366,8 +370,8 @@ full = Layout { doLayout = \sc ws -> return [ (w,sc) | w <- ws ]
tall :: Int -> Rational -> Rational -> Layout
tall nmaster delta frac =
Layout { doLayout = \r -> return . ap zip (tile frac r nmaster . length)
- , modifyLayout = \m -> fmap resize (fromMessage m) `mplus`
- fmap incmastern (fromMessage m) }
+ , modifyLayout = \m -> return $ msum [fmap resize (fromMessage m)
+ ,fmap incmastern (fromMessage m)] }
where resize Shrink = tall nmaster delta (frac-delta)
resize Expand = tall nmaster delta (frac+delta)
@@ -381,7 +385,7 @@ mirrorRect (Rectangle rx ry rw rh) = (Rectangle ry rx rh rw)
mirror :: Layout -> Layout
mirror (Layout { doLayout = dl, modifyLayout = ml }) =
Layout { doLayout = \sc w -> map (second mirrorRect) `fmap` dl (mirrorRect sc) w
- , modifyLayout = fmap mirror . ml }
+ , modifyLayout = fmap (fmap mirror) . ml }
-- | tile. Compute the positions for windows using the default 2 pane tiling algorithm.
--
diff --git a/XMonad.hs b/XMonad.hs
index 3953c38..e08956d 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -109,7 +109,7 @@ atom_WM_STATE = getAtom "WM_STATE"
-- 'modifyLayout' can be considered a branch of an exception handler.
--
data Layout = Layout { doLayout :: Rectangle -> [Window] -> X [(Window, Rectangle)]
- , modifyLayout :: SomeMessage -> Maybe Layout }
+ , modifyLayout :: SomeMessage -> X (Maybe Layout) }
-- Based on ideas in /An Extensible Dynamically-Typed Hierarchy of Exceptions/,
-- Simon Marlow, 2006. Use extensible messages to the modifyLayout handler.