diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-11-19 01:03:57 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-11-19 01:03:57 +0100 |
| commit | 790a2c53738506514881502116e51d5496a7d2c6 (patch) | |
| tree | b2203482c0f3eb6b218fd277b3dce7cfea637958 /XMonad/Prompt.hs | |
| parent | ec255a33cd8fa98e8dc325c475ba4d2c4e7a53d9 (diff) | |
| download | XMonadContrib-790a2c53738506514881502116e51d5496a7d2c6.tar.gz XMonadContrib-790a2c53738506514881502116e51d5496a7d2c6.tar.xz XMonadContrib-790a2c53738506514881502116e51d5496a7d2c6.zip | |
Prompt: comment only
darcs-hash:20071119000357-32816-ad0af5478f4d4214b84d1a43cf9ca66efba445a1.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Prompt.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index dd88d75..01bb31c 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -436,7 +436,7 @@ printPrompt drw = do let (gc,(c,(d,fs))) = (gcon &&& config &&& dpy &&& fontS) st (prt,(com,off)) = (show . xptype &&& command &&& offset) st str = prt ++ com - -- compose the string in 3 parts: till the cursor, the cursor and the rest + -- break the string in 3 parts: till the cursor, the cursor and the rest (f,p,ss) = if off >= length com then (str, " ","") -- add a space: it will be our cursor ;-) else let (a,b) = (splitAt off com) |