aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Util
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad/Util')
-rw-r--r--XMonad/Util/Image.hs2
-rw-r--r--XMonad/Util/Stack.hs4
-rw-r--r--XMonad/Util/XSelection.hs2
-rw-r--r--XMonad/Util/XUtils.hs4
4 files changed, 6 insertions, 6 deletions
diff --git a/XMonad/Util/Image.hs b/XMonad/Util/Image.hs
index ff0ecdc..554ba58 100644
--- a/XMonad/Util/Image.hs
+++ b/XMonad/Util/Image.hs
@@ -29,7 +29,7 @@ data Placement = OffsetLeft Int Int -- ^ An exact amount of pixels from the up
| CenterLeft Int -- ^ Centered in the y-axis, an amount of pixels from the left
| CenterRight Int -- ^ Centered in the y-axis, an amount of pixels from the right
deriving (Show, Read)
-
+
-- $usage
-- This module uses matrices of boolean values as images. When drawing them,
-- a True value tells that we want the fore color, and a False value that we
diff --git a/XMonad/Util/Stack.hs b/XMonad/Util/Stack.hs
index eb58a16..9455d71 100644
--- a/XMonad/Util/Stack.hs
+++ b/XMonad/Util/Stack.hs
@@ -145,7 +145,7 @@ swapUpZ (Just s) = Just s { W.up = reverse (W.down s), W.down = [] }
swapDownZ :: Zipper a -> Zipper a
swapDownZ Nothing = Nothing
swapDownZ (Just s) | d:down <- W.down s = Just s { W.down = down, W.up = d:W.up s }
-swapDownZ (Just s) = Just s { W.up = [], W.down = reverse (W.up s) }
+swapDownZ (Just s) = Just s { W.up = [], W.down = reverse (W.up s) }
-- | Swap the focused element with the first one
swapMasterZ :: Zipper a -> Zipper a
@@ -197,7 +197,7 @@ sortByZ f = fromTags . sortBy (adapt f) . toTags
where adapt g e1 e2 = g (fromE e1) (fromE e2)
-- ** Maps
-
+
-- | Map a function over a stack. The boolean argument indcates whether
-- the current element is the focused one
mapZ :: (Bool -> a -> b) -> Zipper a -> Zipper b
diff --git a/XMonad/Util/XSelection.hs b/XMonad/Util/XSelection.hs
index 330f2e8..5ab06de 100644
--- a/XMonad/Util/XSelection.hs
+++ b/XMonad/Util/XSelection.hs
@@ -82,7 +82,7 @@ promptSelection = unsafePromptSelection
safePromptSelection app = join $ io $ liftM (safeSpawn app . return) getSelection
unsafePromptSelection app = join $ io $ liftM unsafeSpawn $ fmap (\x -> app ++ " " ++ x) getSelection
-{- | A wrapper around 'promptSelection' and its safe variant. They take two parameters, the
+{- | A wrapper around 'promptSelection' and its safe variant. They take two parameters, the
first is a function that transforms strings, and the second is the application to run.
The transformer essentially transforms the selection in X.
One example is to wrap code, such as a command line action copied out of the browser
diff --git a/XMonad/Util/XUtils.hs b/XMonad/Util/XUtils.hs
index 7df7765..b7e0fec 100644
--- a/XMonad/Util/XUtils.hs
+++ b/XMonad/Util/XUtils.hs
@@ -38,7 +38,7 @@ import XMonad.Util.Image
import Control.Monad
-- $usage
--- See "XMonad.Layout.Tabbed" or "XMonad.Layout.DragPane" or
+-- See "XMonad.Layout.Tabbed" or "XMonad.Layout.DragPane" or
-- "XMonad.Layout.Decoration" for usage examples
-- | Compute the weighted average the colors of two given Pixel values.
@@ -163,7 +163,7 @@ paintTextAndIcons w fs wh ht bw bc borc ffc fbc als strs i_als icons = do
-- drawn inside it.
-- Not exported.
paintWindow' :: Window -> Rectangle -> Dimension -> String -> String
- -> Maybe (XMonadFont,String,String,[(String, (Position, Position))])
+ -> Maybe (XMonadFont,String,String,[(String, (Position, Position))])
-> Maybe (String, String, [((Position, Position), [[Bool]])]) -> X ()
paintWindow' win (Rectangle _ _ wh ht) bw color b_color strStuff iconStuff = do
d <- asks display