From c1a711dba008cea0fd7af0fd396a95d86dafe0cb Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Thu, 10 Jan 2008 14:09:51 +0000 Subject: [PATCH] de-obfuscate the initState and set the init offset to the length of the default text --- XMonad/Prompt.hs | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index 0c836372..b1fdba49 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