twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-26 09:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

XPrompt: just code formatting

Browse Source
This commit is contained in:
Andrea Rossato
2007-08-22 19:32:20 +00:00
parent 7551c79496
commit 8935f2aa65
1 changed files with 26 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
XPrompt.hs
View File

@@ -69,20 +69,20 @@ import System.Posix.Files
type XP = StateT XPState IO
data XPState =
XPS { dpy :: Display
, rootw :: Window
, win :: Window
, screen :: Rectangle
, complWin :: Maybe Window
, complWinDim :: Maybe ComplWindowDim
XPS { dpy :: Display
, rootw :: Window
, win :: Window
, screen :: Rectangle
, complWin :: Maybe Window
, complWinDim :: Maybe ComplWindowDim
, completionFunction :: String -> IO [String]
, gcon :: GC
, fs :: FontStruct
, xptype :: XPType
, command :: String
, offset :: Int
, history :: [History]
, config :: XPConfig
, gcon :: GC
, fs :: FontStruct
, xptype :: XPType
, command :: String
, offset :: Int
, history :: [History]
, config :: XPConfig
}
data XPConfig =
@@ -125,15 +125,15 @@ data XPPosition = Top
defaultXPConfig :: XPConfig
defaultXPConfig =
XPC { font = "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*"
, bgColor = "#333333"
, fgColor = "#FFFFFF"
, fgHLight = "#000000"
, bgHLight = "#BBBBBB"
XPC { font = "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*"
, bgColor = "#333333"
, fgColor = "#FFFFFF"
, fgHLight = "#000000"
, bgHLight = "#BBBBBB"
, borderColor = "#FFFFFF"
, borderWidth = 1
, position = Bottom
, height = 18
, position = Bottom
, height = 18
, historySize = 256
}
@@ -177,7 +177,7 @@ mkXPrompt t conf compl action = do
liftIO $ hClose h
when (command st' /= "") $ do
let htw = take (historySize conf) (history st')
liftIO $ writeHistory h htw
liftIO $ writeHistory htw
action (command st')
runXP :: XP ()
@@ -339,8 +339,8 @@ deleteString d =
where o oo = if d == Prev then max 0 (oo - 1) else oo
c oc oo
| oo >= length oc && d == Prev = take (oo - 1) oc
| oo < length oc && d == Prev = take (oo - 1) f ++ ss
| oo < length oc && d == Next = f ++ tail ss
| oo < length oc && d == Prev = take (oo - 1) f ++ ss
| oo < length oc && d == Next = f ++ tail ss
| otherwise = oc
where (f,ss) = splitAt oo oc
@@ -516,7 +516,7 @@ drawComplWin w compl = do
gc = gcon st
bgcolor <- io $ initColor d (bgColor c)
fgcolor <- io $ initColor d (fgColor c)
border <- io $ initColor d (borderColor c)
border <- io $ initColor d (borderColor c)
(_,_,wh,ht,xx,yy) <- getComplWinDim compl
@@ -603,8 +603,8 @@ readHistory = do
else do h <- openFile path WriteMode
return ([],h)
writeHistory :: Handle -> [History] -> IO ()
writeHistory _ hist = do
writeHistory :: [History] -> IO ()
writeHistory hist = do
home <- getEnv "HOME"
let path = home ++ "/.xmonad_history"
catch (writeFile path (show hist)) (\_ -> do putStrLn "error in writing"; return ())