mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

EXWM: Add simulation keys for Epiphany

master
Pierre Neidhardt 2018-09-19 10:33:49 +02:00
parent a9f9d5bc53
commit c078fbe04d
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
.emacs.d/lisp/init-exwm.el
View File

@ -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)