From 02198e22932192aede4a73e7a121007c76093e5f Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Sat, 25 Nov 2023 20:03:34 -0700
Subject: 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.
---
 src/Rahm/Desktop/Keys/Wml.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src/Rahm/Desktop/Keys')

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.
-- 
cgit