From 41b4bf01d61a0d42d27145700e41318715b37e1f Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Mon, 18 Apr 2022 23:00:26 -0600
Subject: Highlight windows for marking too

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

diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index 69873e4..9ae9c30 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -354,14 +354,16 @@ keymap = runKeys $ do
       doc "For mosaic layout, shrink the size-share of the current window" $
       sendMessage =<< shrinkPositionAlt
 
-  bind xK_m $ do
+  bind xK_m $
     justMod $
-      doc "Mark the current window with the next typed character." $
-      runMaybeT_ $ do
-       locs <- readNextLocationSet
-       mapNextString $ \_ str -> lift $
-        case str of
-          [ch] | isAlpha ch -> markAllLocations str locs
+      doc "Mark the current window with the next typed character." $ do
+      locs <- fromMaybe [] <$> runMaybeT readNextLocationSet
+      withBorderColor "#00ffff" (mapMaybe locationWindow locs) $ do
+        runMaybeT_ $ do
+         mapNextString $ \_ str -> lift $
+          case str of
+            [ch] | isAlpha ch -> markAllLocations str locs
+            _ -> return ()
 
   bind xK_plus $ do
     justMod $
-- 
cgit