From 2ccdb6b9f9a618a5615c0fe9e42414def4ae7cf0 Mon Sep 17 00:00:00 2001 From: Shachaf Ben-Kiki Date: Mon, 19 Nov 2007 00:03:19 +0100 Subject: Miscellaneous spell-checking darcs-hash:20071118230319-bffde-6c56202afece4ecc55d48d37bde3f80edaff66f7.gz --- XMonad/Hooks/DynamicLog.hs | 4 ++-- XMonad/Hooks/ManageDocks.hs | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'XMonad/Hooks') diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs index 66c897f..db24655 100644 --- a/XMonad/Hooks/DynamicLog.hs +++ b/XMonad/Hooks/DynamicLog.hs @@ -79,7 +79,7 @@ makeSimpleDzenConfig = do -- -- > main = dzen xmonad -- --- The intent is that the avove config file should provide a nice status +-- The intent is that the above config file should provide a nice status -- bar with minimal effort. -- dzen :: (XConfig (Choose Tall (Choose (Mirror Tall) Full)) -> IO ()) -> IO () @@ -192,7 +192,7 @@ dzenColor fg bg = wrap (fg1++bg1) (fg2++bg2) (bg1,bg2) | null bg = ("","") | otherwise = ("^bg(" ++ bg ++ ")","^bg()") --- | Escape any dzen metacharaters. +-- | Escape any dzen metacharacters. dzenEscape :: String -> String dzenEscape = concatMap (\x -> if x == '^' then "^^" else [x]) diff --git a/XMonad/Hooks/ManageDocks.hs b/XMonad/Hooks/ManageDocks.hs index fedca64..e5774a9 100644 --- a/XMonad/Hooks/ManageDocks.hs +++ b/XMonad/Hooks/ManageDocks.hs @@ -55,7 +55,7 @@ import Foreign.C.Types (CLong) import Data.Maybe (catMaybes) -- $usage --- Add the imports to your configuration file and add the mangeHook: +-- Add the imports to your configuration file and add the manageHook: -- -- > import XMonad.Hooks.ManageDocks -- -- cgit v1.2.3