aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@unibz.it>2008-02-16 14:37:38 +0100
committerAndrea Rossato <andrea.rossato@unibz.it>2008-02-16 14:37:38 +0100
commit79d598db5c32f84a0d12131d0f24f99edcb0f5ce (patch)
tree8ebd13e65d4dec73fc1763301fdca8e2c9dd05d2 /XMonad
parenteda5f05d0180d2a8e7a903b4ecebc0023bc3d0ac (diff)
downloadXMonadContrib-79d598db5c32f84a0d12131d0f24f99edcb0f5ce.tar.gz
XMonadContrib-79d598db5c32f84a0d12131d0f24f99edcb0f5ce.tar.xz
XMonadContrib-79d598db5c32f84a0d12131d0f24f99edcb0f5ce.zip
Theme: move theme's nextCompletion implementation to Prompt.getNextCompletion
darcs-hash:20080216133738-32816-bcecfaa205c235b6e480a25bdc03d222aa205d51.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Prompt/Theme.hs5
1 files changed, 1 insertions, 4 deletions
diff --git a/XMonad/Prompt/Theme.hs b/XMonad/Prompt/Theme.hs
index cf67a36..89063a5 100644
--- a/XMonad/Prompt/Theme.hs
+++ b/XMonad/Prompt/Theme.hs
@@ -45,10 +45,7 @@ data ThemePrompt = ThemePrompt
instance XPrompt ThemePrompt where
showXPrompt ThemePrompt = "Select a theme: "
commandToComplete _ c = c
- nextCompletion _ c l = l !! idx
- where idx = case c `elemIndex` l of
- Just i -> if i >= length l - 1 then 0 else i + 1
- Nothing -> 0
+ nextCompletion _ = getNextCompletion
themePrompt :: XPConfig -> X ()
themePrompt c = mkXPrompt ThemePrompt c (const . return . map ppThemeInfo $ listOfThemes) changeTheme