mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-08-13 19:25:52 -07:00
Prompt.hs: mv .xmonad_history into .xmonad/
See my email to mailing list. This will slightly break anyone who upgrades while running and expects to see their prompt history, and leave a stray file, I think, but nothing else, and it'll permanently improve tab-completion, and is tidier.
This commit is contained in:
@@ -613,7 +613,7 @@ getHistory = do
|
||||
readHistory :: IO ([History],Handle)
|
||||
readHistory = do
|
||||
home <- getEnv "HOME"
|
||||
let path = home ++ "/.xmonad_history"
|
||||
let path = home ++ "/.xmonad/history"
|
||||
f <- fileExist path
|
||||
if f then do h <- openFile path ReadMode
|
||||
str <- hGetContents h
|
||||
@@ -627,7 +627,7 @@ readHistory = do
|
||||
writeHistory :: [History] -> IO ()
|
||||
writeHistory hist = do
|
||||
home <- getEnv "HOME"
|
||||
let path = home ++ "/.xmonad_history"
|
||||
let path = home ++ "/.xmonad/history"
|
||||
catch (writeFile path (show hist)) (\_ -> do putStrLn "error in writing"; return ())
|
||||
|
||||
-- $xutils
|
||||
|
Reference in New Issue
Block a user