diff options
| -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 |