From 37c2aeba2203df2ad5d92521144c545f92c9d22b Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Thu, 10 Jan 2008 15:09:51 +0100 Subject: de-obfuscate the initState and set the init offset to the length of the default text darcs-hash:20080110140951-32816-fa36f4781645ad428c10226c64895ca482d6323a.gz --- XMonad/Prompt.hs | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'XMonad/Prompt.hs') diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index 0c83637..b1fdba4 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -144,7 +144,21 @@ type ComplFunction = String -> IO [String] initState :: XPrompt p => Display -> Window -> Window -> Rectangle -> ComplFunction -> GC -> XMonadFont -> p -> [History] -> XPConfig -> XPState initState d rw w s compl gc fonts pt h c = - XPS d rw w s Nothing Nothing compl gc fonts (XPT pt) (defaultText c) 0 h c + XPS { dpy = d + , rootw = rw + , win = w + , screen = s + , complWin = Nothing + , complWinDim = Nothing + , completionFunction = compl + , gcon = gc + , fontS = fonts + , xptype = XPT pt + , command = defaultText c + , offset = length (defaultText c) + , history = h + , config = c + } -- | Same as 'mkXPrompt', except that the action function can have -- type @String -> X a@, for any @a@, and the final action returned -- cgit v1.2.3