diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-11-24 15:32:21 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-11-24 15:32:21 +0100 |
| commit | 7fa6bf7d4e22c3d54b03c66237b6dfeae5db7150 (patch) | |
| tree | 46e7c35145c88513e46ce3fa9334e23e7443716a /XMonad | |
| parent | 9bad4bcfc7e31c86e8e47b8d9fd39e61b818ea1f (diff) | |
| download | metatile-7fa6bf7d4e22c3d54b03c66237b6dfeae5db7150.tar metatile-7fa6bf7d4e22c3d54b03c66237b6dfeae5db7150.zip | |
Typos and formatting
darcs-hash:20071124143221-32816-2dacd78268c87501963b1bfd20652052fbe2c4e3
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Core.hs | 4 | ||||
| -rw-r--r-- | XMonad/ManageHook.hs | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs index 4e60c79..0e35e4b 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -213,7 +213,7 @@ class Show (layout a) => LayoutClass layout a where doLayout l r s = return (pureLayout l r s, Nothing) -- | This is a pure version of doLayout, for cases where we don't need - -- access to the X monad to determine how to layou out the windows, and + -- access to the X monad to determine how to layout the windows, and -- we don't need to modify our layout itself. pureLayout :: layout a -> Rectangle -> Stack a -> [(a, Rectangle)] pureLayout _ r s = [(focus s, r)] @@ -221,7 +221,7 @@ class Show (layout a) => LayoutClass layout a where -- | 'handleMessage' performs message handling for that layout. If -- 'handleMessage' returns Nothing, then the layout did not respond to -- that message and the screen is not refreshed. Otherwise, 'handleMessage' - -- returns an updated 'LayoutClass' and the screen is refreshed. + -- returns an updated 'Layout' and the screen is refreshed. -- handleMessage :: layout a -> SomeMessage -> X (Maybe (layout a)) handleMessage l = return . pureMessage l diff --git a/XMonad/ManageHook.hs b/XMonad/ManageHook.hs index 8fb61ee..a0d47c8 100644 --- a/XMonad/ManageHook.hs +++ b/XMonad/ManageHook.hs @@ -61,9 +61,9 @@ infixr 3 <&&>, <||> -- | Queries that return the window title, resource, or class. title, resource, className :: Query String -title = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap (fromMaybe "") $ io $ fetchName d w) -resource = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap resName $ io $ getClassHint d w) -className = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap resClass $ io $ getClassHint d w) +title = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap (fromMaybe "") $ io $ fetchName d w) +resource = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap resName $ io $ getClassHint d w) +className = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap resClass $ io $ getClassHint d w) -- | Modify the 'WindowSet' with a pure function. doF :: (WindowSet -> WindowSet) -> ManageHook |