From 7f5b461a8dcd8844bb7918c6b9a7ee7d244c4d7c Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Mon, 18 Apr 2022 10:11:05 -0600
Subject: Extend marking language to the mark command itself

---
 src/Rahm/Desktop/Keys.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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

diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index 23927ef..da3b695 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -355,10 +355,11 @@ keymap = runKeys $ do
   bind xK_m $ do
     justMod $
       doc "Mark the current window with the next typed character." $
-      runMaybeT_ $ mapNextString $ \_ str -> lift $
+      runMaybeT_ $ do
+       locs <- readNextLocationSet
+       mapNextString $ \_ str -> lift $
         case str of
-          [ch] | isAlpha ch -> markCurrentWindow str
-          _ -> return ()
+          [ch] | isAlpha ch -> markAllLocations str locs
 
   bind xK_plus $ do
     justMod $
-- 
cgit