From 8d195efe11116f41f18f74e06fe25a06b5d5eb21 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Wed, 23 Nov 2022 00:49:02 -0700
Subject: PendingBuffer now shows "'" when "'" is pressed instead of "w".

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

(limited to 'src/Rahm/Desktop')

diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index ae18ee4..91ce13a 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -250,10 +250,10 @@ keymap = runKeys $ do
   let subkeys keysM = Submap (runKeys keysM config)
       repeatable keysM = Repeat (runKeys keysM config)
 
-  forM_ [xK_apostrophe, xK_w] $ \k -> bind k $ do
+  forM_ [("' ", xK_apostrophe), ("w ", xK_w)] $ \(buf, k) -> bind k $ do
     justMod $
       doc "Jumps between marks." $
-        pushPendingBuffer "w " $ do
+        pushPendingBuffer buf $ do
           runMaybeT_ $ do
             l <- readNextLocationSet
             case l of
-- 
cgit