de-obfuscate the initState and set the init offset to the length of the default text

darcs-hash:20080110140951-32816-fa36f4781645ad428c10226c64895ca482d6323a.gz

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