twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Prompt.hs: tweak haddocks

Browse Source
This commit is contained in:
gwern0 2008-10-08 20:46:49 +00:00
parent 806c1f4b5f
commit a0ac6331df
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
XMonad/Prompt.hs
View File

@ -91,7 +91,7 @@ data XPState =
, complWin :: Maybe Window , complWin :: Maybe Window
, complWinDim :: Maybe ComplWindowDim , complWinDim :: Maybe ComplWindowDim
, completionFunction :: String -> IO [String] , completionFunction :: String -> IO [String]
, showComplWin :: Bool , showComplWin :: Bool
, gcon :: !GC , gcon :: !GC
, fontS :: !XMonadFont , fontS :: !XMonadFont
, xptype :: !XPType , xptype :: !XPType
@ -117,7 +117,7 @@ data XPConfig =
-- history entries to remember -- history entries to remember
, defaultText :: String -- ^ The text by default in the prompt line , defaultText :: String -- ^ The text by default in the prompt line
, autoComplete :: Maybe Int -- ^ Just x: if only one completion remains, auto-select it, , autoComplete :: Maybe Int -- ^ Just x: if only one completion remains, auto-select it,
, showCompletionOnTab :: Bool -- ^ Only show list of completions when Tab was pressed , showCompletionOnTab :: Bool -- ^ Only show list of completions when Tab was pressed
-- and delay by x microseconds -- and delay by x microseconds
} }
@ -189,7 +189,7 @@ defaultXPConfig =
, historyFilter = id , historyFilter = id
, defaultText = [] , defaultText = []
, autoComplete = Nothing , autoComplete = Nothing
, showCompletionOnTab = False , showCompletionOnTab = False
} }
type ComplFunction = String -> IO [String] type ComplFunction = String -> IO [String]
@ -204,7 +204,7 @@ initState d rw w s compl gc fonts pt h c =
, complWin = Nothing , complWin = Nothing
, complWinDim = Nothing , complWinDim = Nothing
, completionFunction = compl , completionFunction = compl
, showComplWin = not (showCompletionOnTab c) , showComplWin = not (showCompletionOnTab c)
, gcon = gc , gcon = gc
, fontS = fonts , fontS = fonts
, xptype = XPT pt , xptype = XPT pt
@ -808,8 +808,8 @@ breakAtSpace s
(s1',s2') = breakAtSpace $ tail s2 (s1',s2') = breakAtSpace $ tail s2
-- | 'historyCompletion' provides a canned completion function much like -- | 'historyCompletion' provides a canned completion function much like
-- getShellCompl; you pass it to mkXPrompt, and it will make completions work -- 'getShellCompl'; you pass it to mkXPrompt, and it will make completions work
-- from the query history stored in ~/.xmonad/history. -- from the query history stored in ~\/.xmonad\/history.
historyCompletion :: ComplFunction historyCompletion :: ComplFunction
historyCompletion x = fmap (filter (isInfixOf x) . Map.fold (++) []) readHistory historyCompletion x = fmap (filter (isInfixOf x) . Map.fold (++) []) readHistory
@ -820,7 +820,7 @@ uniqSort = toList . fromList
-- | Functions to be used with the 'historyFilter' setting. -- | Functions to be used with the 'historyFilter' setting.
-- 'deleteAllDuplicates' will remove all duplicate entries. -- 'deleteAllDuplicates' will remove all duplicate entries.
-- 'deleteConsecutiveDuplicates' will remove duplicate elements which are -- 'deleteConsecutiveDuplicates' will only remove duplicate elements
-- immediately next to each other. -- immediately next to each other.
deleteAllDuplicates, deleteConsecutiveDuplicates :: [String] -> [String] deleteAllDuplicates, deleteConsecutiveDuplicates :: [String] -> [String]
deleteAllDuplicates = nub deleteAllDuplicates = nub