From 5ec9826d700cb6062664a4ef0fdbe639d673b187 Mon Sep 17 00:00:00 2001
From: Adam Schaefers <paxchristi888@gmail.com>
Date: Thu, 1 Aug 2019 22:58:52 -0700
Subject: [PATCH] Use the wiki Configuration-Example for
 exwm-input-simulation-keys

---
 exwm-config.el | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/exwm-config.el b/exwm-config.el
index 6635e43..2d48494 100644
--- a/exwm-config.el
+++ b/exwm-config.el
@@ -59,8 +59,12 @@
   ;; Line-editing shortcuts
   (unless (get 'exwm-input-simulation-keys 'saved-value)
     (setq exwm-input-simulation-keys
-          '(([?\C-b] . [left])
+          '(
+            ;; movement
+            ([?\C-b] . [left])
+            ([?\M-b] . [C-left])
             ([?\C-f] . [right])
+            ([?\M-f] . [C-right])
             ([?\C-p] . [up])
             ([?\C-n] . [down])
             ([?\C-a] . [home])
@@ -68,7 +72,13 @@
             ([?\M-v] . [prior])
             ([?\C-v] . [next])
             ([?\C-d] . [delete])
-            ([?\C-k] . [S-end delete]))))
+            ([?\C-k] . [S-end delete])
+            ;; cut/paste.
+            ([?\C-w] . [?\C-x])
+            ([?\M-w] . [?\C-c])
+            ([?\C-y] . [?\C-v])
+            ;; search
+            ([?\C-s] . [?\C-f]))))
   ;; Enable EXWM
   (exwm-enable)
   ;; Configure Ido