diff options
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Prompt/Theme.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/XMonad/Prompt/Theme.hs b/XMonad/Prompt/Theme.hs index 6392f41..a1f25be 100644 --- a/XMonad/Prompt/Theme.hs +++ b/XMonad/Prompt/Theme.hs @@ -8,8 +8,7 @@ -- Stability : unstable -- Portability : unportable -- --- A prompt for chnaging the theme of the current workspace --- +-- A prompt for changing the theme of the current workspace ----------------------------------------------------------------------------- module XMonad.Prompt.Theme @@ -27,7 +26,8 @@ import XMonad.Layout.Decoration import XMonad.Util.Themes -- $usage --- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@: +-- You can use this module with the following in your +-- @~\/.xmonad\/xmonad.hs@: -- -- > import XMonad.Prompt -- > import XMonad.Prompt.Theme @@ -45,8 +45,8 @@ instance XPrompt ThemePrompt where showXPrompt ThemePrompt = "Select a theme: " themePrompt :: XPConfig -> X () -themePrompt c = mkXPrompt ThemePrompt c (const $ return (map fst $ M.toList mapOfThemes)) changeTheme - where changeTheme t = sendMessage . SetTheme $ fromMaybe defaultTheme (M.lookup t mapOfThemes) +themePrompt c = mkXPrompt ThemePrompt c (const . return . map themeName $ listOfThemes) changeTheme + where changeTheme t = sendMessage . SetTheme . fromMaybe defaultTheme $ M.lookup t mapOfThemes mapOfThemes :: M.Map String Theme -mapOfThemes = M.fromList . uncurry zip . (map themeName &&& map theme) $ listOfThemes
\ No newline at end of file +mapOfThemes = M.fromList . uncurry zip . (map themeName &&& map theme) $ listOfThemes |