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

EXWM: Remove Epiphany simulation keys

master
Pierre Neidhardt 2018-12-02 12:29:49 +01:00
parent f9ebd67af9
commit 9b642d61f7
1 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -192,27 +192,6 @@
(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>")))))))
;; Function to automatically toggle between internal/external screens.
(defun ambrevar/exwm-change-screen-hook ()
(let ((xrandr-output-regexp "\n\\([^ ]+\\) connected ")