diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-11-23 00:49:02 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-11-23 00:49:02 -0700 |
| commit | 8d195efe11116f41f18f74e06fe25a06b5d5eb21 (patch) | |
| tree | 091534af56350edb8f96c437469c21107c66c203 /src/Rahm | |
| parent | 28e4aea1680a0d82100ae822400fdf38c0b84ece (diff) | |
| download | rde-8d195efe11116f41f18f74e06fe25a06b5d5eb21.tar.gz rde-8d195efe11116f41f18f74e06fe25a06b5d5eb21.tar.bz2 rde-8d195efe11116f41f18f74e06fe25a06b5d5eb21.zip | |
PendingBuffer now shows "'" when "'" is pressed instead of "w".
Diffstat (limited to 'src/Rahm')
| -rw-r--r-- | src/Rahm/Desktop/Keys.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |