diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-26 10:32:34 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-26 10:32:34 +0100 |
| commit | d5428ad56e2d902a2b116ad98e9850d903b4c68d (patch) | |
| tree | b407c44a6acdf3c22379e4d163739be55006b8e6 | |
| parent | 903183d6b80cc4c248eea04a82dca47c7c9f0082 (diff) | |
| download | XMonadContrib-d5428ad56e2d902a2b116ad98e9850d903b4c68d.tar.gz XMonadContrib-d5428ad56e2d902a2b116ad98e9850d903b4c68d.tar.xz XMonadContrib-d5428ad56e2d902a2b116ad98e9850d903b4c68d.zip | |
Prompt: code formatting only
darcs-hash:20080126093234-32816-da806988deb403ad4052e88607492eadf2d7a190.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Prompt.hs | 57 |
1 files changed, 28 insertions, 29 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index a50e97b..8e12f22 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -1,5 +1,4 @@ {-# LANGUAGE ExistentialQuantification #-} - ----------------------------------------------------------------------------- -- | -- Module : XMonad.Prompt @@ -14,32 +13,32 @@ -- ----------------------------------------------------------------------------- -module XMonad.Prompt ( - -- * Usage - -- $usage - mkXPrompt - , mkXPromptWithReturn - , defaultXPConfig - , mkComplFunFromList - , XPType (..) - , XPPosition (..) - , XPConfig (..) - , XPrompt (..) - , ComplFunction - -- * X Utilities - -- $xutils - , mkUnmanagedWindow - , fillDrawable - -- * Other Utilities - -- $utils - , getLastWord - , skipLastWord - , splitInSubListsAt - , breakAtSpace - , newIndex - , newCommand - , uniqSort - ) where +module XMonad.Prompt + ( -- * Usage + -- $usage + mkXPrompt + , mkXPromptWithReturn + , defaultXPConfig + , mkComplFunFromList + , XPType (..) + , XPPosition (..) + , XPConfig (..) + , XPrompt (..) + , ComplFunction + -- * X Utilities + -- $xutils + , mkUnmanagedWindow + , fillDrawable + -- * Other Utilities + -- $utils + , getLastWord + , skipLastWord + , splitInSubListsAt + , breakAtSpace + , newIndex + , newCommand + , uniqSort + ) where import XMonad hiding (config, io) import qualified XMonad.StackSet as W @@ -410,7 +409,7 @@ moveWord d = do x -> lenToS x newoff = case d of Prev -> o - (ln reverse f ) - _ -> o + (ln id ss) + Next -> o + (ln id ss) modify $ \s -> s { offset = newoff } moveHistory :: Direction -> XP () @@ -441,7 +440,7 @@ redrawWindows :: [String] -> XP () redrawWindows c = do d <- gets dpy drawWin - case c of + case c of [] -> return () l -> redrawComplWin l io $ sync d False |