diff options
author | Shachaf Ben-Kiki <shachaf@gmail.com> | 2007-11-19 00:03:19 +0100 |
---|---|---|
committer | Shachaf Ben-Kiki <shachaf@gmail.com> | 2007-11-19 00:03:19 +0100 |
commit | 2ccdb6b9f9a618a5615c0fe9e42414def4ae7cf0 (patch) | |
tree | 79948fd1e882fb9605220d156fe42425c244f055 /XMonad/Prompt | |
parent | e45f4e1876ba3f6ea55f3af3d1e52d07131e4bc5 (diff) | |
download | XMonadContrib-2ccdb6b9f9a618a5615c0fe9e42414def4ae7cf0.tar.gz XMonadContrib-2ccdb6b9f9a618a5615c0fe9e42414def4ae7cf0.tar.xz XMonadContrib-2ccdb6b9f9a618a5615c0fe9e42414def4ae7cf0.zip |
Miscellaneous spell-checking
darcs-hash:20071118230319-bffde-6c56202afece4ecc55d48d37bde3f80edaff66f7.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Prompt.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index 05c5cd4..8330316 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -90,10 +90,10 @@ data XPState = data XPConfig = XPC { font :: String -- ^ Font - , bgColor :: String -- ^ Backgroud color + , bgColor :: String -- ^ Background color , fgColor :: String -- ^ Font color , fgHLight :: String -- ^ Font color of a highlighted completion entry - , bgHLight :: String -- ^ Backgroud color of a highlighted completion entry + , bgHLight :: String -- ^ Background color of a highlighted completion entry , borderColor :: String -- ^ Border color , promptBorderWidth :: Dimension -- ^ Border width , position :: XPPosition -- ^ Position: 'Top' or 'Bottom' @@ -336,7 +336,7 @@ startOfLine :: XP () startOfLine = modify $ \s -> s { offset = 0 } --- | Flush the command string and reset the offest +-- | Flush the command string and reset the offset flushString :: XP () flushString = do modify $ \s -> s { command = "", offset = 0} @@ -438,7 +438,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 - -- scompose the string in 3 part: till the cursor, the cursor and the rest + -- compose 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) |