twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-06 06:51:55 -07:00
Code Issues Packages Projects Releases Wiki Activity

Theme: move theme's nextCompletion implementation to Prompt.getNextCompletion

Browse Source
This commit is contained in:
Andrea Rossato
2008-02-16 13:37:38 +00:00
parent b06e4a50fb
commit f611982205
1 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Prompt/Theme.hs
View File

@@ -45,10 +45,7 @@ data ThemePrompt = ThemePrompt
instance XPrompt ThemePrompt where instance XPrompt ThemePrompt where
showXPrompt ThemePrompt = "Select a theme: " showXPrompt ThemePrompt = "Select a theme: "
commandToComplete _ c = c commandToComplete _ c = c
nextCompletion _ c l = l !! idx nextCompletion _ = getNextCompletion
where idx = case c `elemIndex` l of
Just i -> if i >= length l - 1 then 0 else i + 1
Nothing -> 0
themePrompt :: XPConfig -> X () themePrompt :: XPConfig -> X ()
themePrompt c = mkXPrompt ThemePrompt c (const . return . map ppThemeInfo $ listOfThemes) changeTheme themePrompt c = mkXPrompt ThemePrompt c (const . return . map ppThemeInfo $ listOfThemes) changeTheme