diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-17 13:44:53 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-17 13:44:53 +0100 |
| commit | 06632cd0a3089b9697bf7ceefa2dc92d3ec331fd (patch) | |
| tree | 3b358698c38ac1af37ef0da6f2d68643ea095c46 /XMonad/Prompt | |
| parent | 4a69981260d16670493ca01f93d1495b066f3b12 (diff) | |
| download | XMonadContrib-06632cd0a3089b9697bf7ceefa2dc92d3ec331fd.tar.gz XMonadContrib-06632cd0a3089b9697bf7ceefa2dc92d3ec331fd.tar.xz XMonadContrib-06632cd0a3089b9697bf7ceefa2dc92d3ec331fd.zip | |
Prompt.Theme: use mkComplFunFromList' to generate completions
darcs-hash:20080217124453-32816-d4fb1ea697f61ea428d2d849eaea741ba5d2c539.gz
Diffstat (limited to 'XMonad/Prompt')
| -rw-r--r-- | XMonad/Prompt/Theme.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Prompt/Theme.hs b/XMonad/Prompt/Theme.hs index 89063a5..394ff4a 100644 --- a/XMonad/Prompt/Theme.hs +++ b/XMonad/Prompt/Theme.hs @@ -48,7 +48,7 @@ instance XPrompt ThemePrompt where nextCompletion _ = getNextCompletion themePrompt :: XPConfig -> X () -themePrompt c = mkXPrompt ThemePrompt c (const . return . map ppThemeInfo $ listOfThemes) changeTheme +themePrompt c = mkXPrompt ThemePrompt c (mkComplFunFromList' . map ppThemeInfo $ listOfThemes) changeTheme where changeTheme t = sendMessage . SetTheme . fromMaybe defaultTheme $ M.lookup t mapOfThemes mapOfThemes :: M.Map String Theme |