picnoir/my-repo-pins
1
0
Fork 0
mirror of https://github.com/NinjaTrappeur/my-repo-pins.git synced 2024-06-18 19:41:57 +02:00
Code Issues Projects Releases Wiki Activity

evil-mode: setup key bindings for evil-mode

Browse source 
Adding the UI key bindings for evil mode. We make sure everything
still works without evil-mode as well.
This commit is contained in:
Félix Baylac-Jacqué 2022-06-14 10:42:06 +02:00
parent 4362074484
commit b127a20b98
No known key found for this signature in database
GPG key ID: EFD315F31848DBA4
1 changed files with 28 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
h.el
View file

@ -374,6 +374,31 @@ an empty list."
;; Internal: UI
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun h--evil-safe-binding (kbd action)
"Bind ACTION to the KBD keyboard key.
This key binding will be bound to the current buffer. If evil-mode is
used, the key binding will be bound to the normal mode as well."
(let ((evil-mode-enabled (member 'evil-mode minor-mode-list)))
(if evil-mode-enabled
(progn
(local-set-key kbd action)
(when (require 'evil-core nil t)
;; Buckle up, dirty hack ahead:
;;
;; As I am writing this, there's no way to tell the emacs
;; byte compiler a particular dependency is optional.
;; Here, I want to use a evil-mode function *IFF*
;; evil-mode is already installed and used for the current
;; buffer.
;; The only way around I found is to prevent emacs to
;; bytecode-compile the evil function by deffering the
;; evaluation through a runtime eval. It's not a big deal
;; performance-wise: evil-local-set-key is pretty cheap
;; and not frequently used in our codebase.
(eval '(evil-local-set-key 'normal kbd action))))
(local-set-key kbd action))))
(defun h--draw-ui-buffer (forge-query-status)
"Draws the UI depending on the app state.
@ -395,12 +420,12 @@ drawing the forge status in the h.el buffer."
(set-buffer h-buffer)
(setq buffer-read-only nil)
(erase-buffer)
(local-set-key (kbd "q") 'delete-window)
(h--evil-safe-binding (kbd "q") 'delete-window)
(seq-map
(lambda (e) (h--draw-forge-status e)) forge-status-with-keys)
(setq buffer-read-only t)
(set-buffer previous-buffer)
(display-buffer h-buffer))))
(select-window (display-buffer h-buffer)))))
(defun h--add-keys-to-forge-status (forge-query-status)
"Add key bindings to relevant FORGE-QUERY-STATUS entries.
@ -464,7 +489,7 @@ https-checkout-url)) ('key . \"1\"))."
(original-point (point)))
(progn
(if (not (null key))
(local-set-key (kbd (format "%s" (char-to-string key)))
(h--evil-safe-binding (kbd (format "%s" (char-to-string key)))
(lambda ()
(interactive)
(progn