From c880bcd5c0f7e4d959193c9e5cf805771d8d00f0 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 3 Jan 2023 21:24:20 +0200 Subject: Add exwm-holyK-firefox --- .emacs.d/lisp/exwm-holyK-firefox.el | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 .emacs.d/lisp/exwm-holyK-firefox.el diff --git a/.emacs.d/lisp/exwm-holyK-firefox.el b/.emacs.d/lisp/exwm-holyK-firefox.el new file mode 100644 index 0000000..d3e5f40 --- /dev/null +++ b/.emacs.d/lisp/exwm-holyK-firefox.el @@ -0,0 +1,32 @@ +;;; exwm-holyK-firefox --- Emacs keybinding implemention of exwm-firefox-core +;;; Author: Thanos Apollo +;;; Commentary: +;;; Code: + +(require 'exwm-firefox-core) + +(defvar exwm-firefox-class-names '("firefox-default" "firefox" "Firefox" "Nightly" "Icecat") + "The class name used for detecting if current buffer is firefox.") + +(define-minor-mode exwm-firefox-holyK-mode + "Get Emacs keybindings in Firefox with EXWM." + :lighter " Firefox/EXWM" + :keymap (let ((map (make-sparse-keymap))) + (define-key map (kbd "C-n") 'exwm-firefox-core-down) + (define-key map (kbd "C-p") 'exwm-firefox-core-up) + (define-key map (kbd "C-f") 'exwm-firefox-core-tab-next) + (define-key map (kbd "C-b") 'exwm-firefox-core-tab-previous) + (define-key map (kbd "C-s") 'exwm-firefox-core-find) + (define-key map (kbd "C-y") 'exwm-firefox-core-paste) + (define-key map (kbd "C-c C-c") 'exwm-firefox-core-copy) + (define-key map (kbd "C-c C-n") 'exwm-firefox-core-tab-new) + (define-key map (kbd "C-c C-k") 'exwm-firefox-core-tab-close) + map)) + +(defun exwm-firefox-holyK-activate-if-firefox () + "Activates firefox-holyK-mode mode when buffer is firefox. +Firefox variant can be assigned in 'exwm-firefox-class-names`" + (interactive) + (if (member exwm-class-name exwm-firefox-class-names) + (exwm-firefox-holyK-mode 1))) + -- cgit v1.2.3