From c078fbe04d0133646e3b4e1ba9504c308282ed19 Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <mail@ambrevar.xyz>
Date: Wed, 19 Sep 2018 10:33:49 +0200
Subject: [PATCH] EXWM: Add simulation keys for Epiphany

---
 .emacs.d/lisp/init-exwm.el | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/.emacs.d/lisp/init-exwm.el b/.emacs.d/lisp/init-exwm.el
index eb5589e2..6b6862e5 100644
--- a/.emacs.d/lisp/init-exwm.el
+++ b/.emacs.d/lisp/init-exwm.el
@@ -196,4 +196,25 @@
     (exwm-input-release-keyboard (exwm--buffer->id (window-buffer)))))
 (add-hook 'exwm-manage-finish-hook 'ambrevar/exwm-start-in-char-mode)
 
+;; Web browsers.
+;; REVIEW: This should not be needed with a proper web browser.
+(add-hook 'exwm-manage-finish-hook
+          (defun ambrevar/exwm-set-epiphany-keys ()
+            (when (and exwm-class-name
+                       (string= exwm-class-name "Epiphany"))
+              (exwm-input-set-local-simulation-keys
+               `((,(kbd "M-h") . ,(kbd "M-<left>"))
+                 (,(kbd "M-l") . ,(kbd "M-<right>"))
+                 (,(kbd "M-j") . ,(kbd "C-<tab>"))
+                 (,(kbd "M-k") . ,(kbd "C-S-<tab>"))
+                 (,(kbd "C-j") . ,(kbd "C-<tab>"))
+                 (,(kbd "C-k") . ,(kbd "C-S-<tab>"))
+                 (,(kbd "M-p") . ,(kbd "C-h"))
+                 (,(kbd "C-n") . ,(kbd "<down>"))
+                 (,(kbd "C-p") . ,(kbd "<up>"))
+                 (,(kbd "C-y") . ,(kbd "C-c"))
+                 (,(kbd "M-y") . ,(kbd "C-l C-c <escape> <tab> <tab> <tab> <tab>"))
+                 (,(kbd "M-<") . ,(kbd "<home>"))
+                 (,(kbd "M->") . ,(kbd "<end>")))))))
+
 (provide 'init-exwm)