Change history to work on a per-screen basis.

This change is still experimental, but it is more intuitive that each
screen has its own history because each screen is generally dedicated to
a specific use case.

I'm going to try this on for size, though it is possible that
per-workspace history mighte prove to be more useful. We'll see.

1 files changed, 6 insertions, 6 deletions

diff --git a/src/Rahm/Desktop/Keys/Wml.hs b/src/Rahm/Desktop/Keys/Wml.hs
index 71551e8..e7a7cb9 100644
--- a/src/Rahm/Desktop/Keys/Wml.hs
+++ b/src/Rahm/Desktop/Keys/Wml.hs
@@ -71,10 +71,10 @@ import Rahm.Desktop.Common
     windowsInWorkspace,
   )
 import Rahm.Desktop.History
-  ( getMostRecentLocationInHistory,
+  ( -- getMostRecentLocationInHistory,
     lastLocation,
     nextLocation,
-    pastHistory,
+    -- pastHistory,
   )
 import Rahm.Desktop.Logger (LogLevel (Info, Trace), logs)
 import Rahm.Desktop.Marking
@@ -543,11 +543,11 @@ readNextLocationSet =
       -- A character is the base-case. Refers to a collection of windows.
       (_, _, [ch]) | isAlpha ch -> mt $ getMarkedLocations [ch]
       -- Goes to the most recent location in history.
-      (_, _, "0") -> (: []) <$> MaybeT (fromX getMostRecentLocationInHistory)
+      -- (_, _, "0") -> (: []) <$> MaybeT (fromX getMostRecentLocationInHistory)
       -- A Digit goes to the past history.
-      (_, _, [ch])
-        | isDigit ch ->
-          (: []) <$> MaybeT (fromX $ pastHistory (ord ch - 0x30))
+      -- (_, _, [ch])
+      --   | isDigit ch ->
+      --     (: []) <$> MaybeT (fromX $ pastHistory (ord ch - 0x30))
       -- The current window.
       (_, _, ".") -> (: []) <$> mt getCurrentLocation
       -- The window on the far-left of the screens.