diff options
| author | Josh Rahm <rahm@google.com> | 2022-12-14 13:24:13 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2022-12-14 13:24:13 -0700 |
| commit | 760ca866a17105056688da9eaa0829941a91bc76 (patch) | |
| tree | c6cebc5fbe3d60a73e4820f261d97814550a5e62 | |
| parent | d7f4e6cdc9693e58733f67168a1fe84f0c805507 (diff) | |
| download | rde-760ca866a17105056688da9eaa0829941a91bc76.tar.gz rde-760ca866a17105056688da9eaa0829941a91bc76.tar.bz2 rde-760ca866a17105056688da9eaa0829941a91bc76.zip | |
Make the history zipper state persistent.
I don't know why it wasn't always persistent ...
| -rw-r--r-- | src/Rahm/Desktop/History.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Rahm/Desktop/History.hs b/src/Rahm/Desktop/History.hs index fedf3d2..e3b0927 100644 --- a/src/Rahm/Desktop/History.hs +++ b/src/Rahm/Desktop/History.hs @@ -21,7 +21,7 @@ import Data.Sequence (Seq (..)) import qualified Data.Sequence as Seq (length, (!?)) import Rahm.Desktop.Common (Location (Location), focusLocation) import Text.Printf (printf) -import XMonad (ExtensionClass (initialValue), X) +import XMonad (ExtensionClass (extensionType, initialValue), StateExtension (..), X) import qualified XMonad.Util.ExtensibleState as XS ( get, modify, @@ -71,8 +71,7 @@ instance Default History where instance ExtensionClass History where initialValue = def - --- extensionType = PersistentExtension + extensionType = PersistentExtension pastHistory :: Int -> X (Maybe Location) pastHistory i = do |