GTK: improve history navigation

* increase maximum numbers of items in the history
* empty the "forward" history if we enter a directory
  via normal navigation
This commit is contained in:
Julian Ospald 2016-04-20 17:20:04 +02:00
parent d432c2146b
commit 7608d838aa
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
2 changed files with 2 additions and 2 deletions

View File

@ -464,7 +464,7 @@ goDir :: MyGUI -> MyView -> Item -> IO ()
goDir mygui myview item = do
cdir <- getCurrentDir myview
modifyTVarIO (history myview)
(\(p, n) -> (path cdir `addHistory` p, n))
(\(p, _) -> (path cdir `addHistory` p, []))
refreshView' mygui myview item

View File

@ -157,5 +157,5 @@ addHistory i xs
| length xs == maxLength = i : take (maxLength - 1) xs
| otherwise = i : xs
where
maxLength = 5
maxLength = 10