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 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'XMonad/Hooks/DynamicLog.hs') 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]) -- cgit v1.2.3