From 760ca866a17105056688da9eaa0829941a91bc76 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Wed, 14 Dec 2022 13:24:13 -0700 Subject: Make the history zipper state persistent. I don't know why it wasn't always persistent ... --- src/Rahm/Desktop/History.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/Rahm/Desktop') 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 -- cgit