diff options
| author | Shachaf Ben-Kiki <shachaf@gmail.com> | 2007-11-19 00:03:19 +0100 |
|---|---|---|
| committer | Shachaf Ben-Kiki <shachaf@gmail.com> | 2007-11-19 00:03:19 +0100 |
| commit | 2ccdb6b9f9a618a5615c0fe9e42414def4ae7cf0 (patch) | |
| tree | 79948fd1e882fb9605220d156fe42425c244f055 /XMonad/Hooks | |
| parent | e45f4e1876ba3f6ea55f3af3d1e52d07131e4bc5 (diff) | |
| download | XMonadContrib-2ccdb6b9f9a618a5615c0fe9e42414def4ae7cf0.tar.gz XMonadContrib-2ccdb6b9f9a618a5615c0fe9e42414def4ae7cf0.tar.xz XMonadContrib-2ccdb6b9f9a618a5615c0fe9e42414def4ae7cf0.zip | |
Miscellaneous spell-checking
darcs-hash:20071118230319-bffde-6c56202afece4ecc55d48d37bde3f80edaff66f7.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Hooks/DynamicLog.hs | 4 | ||||
| -rw-r--r-- | XMonad/Hooks/ManageDocks.hs | 2 |
2 files changed, 3 insertions, 3 deletions
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 -- |