diff options
author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-10 15:09:51 +0100 |
---|---|---|
committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-10 15:09:51 +0100 |
commit | 37c2aeba2203df2ad5d92521144c545f92c9d22b (patch) | |
tree | 32adc9cd0ca9ada53104608f548b17460d7f29c6 /XMonad/Prompt | |
parent | 9b71bcbc56caa60de56d9b31975b10eb2f55555c (diff) | |
download | XMonadContrib-37c2aeba2203df2ad5d92521144c545f92c9d22b.tar.gz XMonadContrib-37c2aeba2203df2ad5d92521144c545f92c9d22b.tar.xz XMonadContrib-37c2aeba2203df2ad5d92521144c545f92c9d22b.zip |
de-obfuscate the initState and set the init offset to the length of the default text
darcs-hash:20080110140951-32816-fa36f4781645ad428c10226c64895ca482d6323a.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Prompt.hs | 16 |
1 files changed, 15 insertions, 1 deletions
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 |