From 9633a901c78a7e36d0e5c5e618523c3d0401b388 Mon Sep 17 00:00:00 2001 From: Jack Foltz Date: Fri, 3 May 2019 08:58:16 -0400 Subject: [PATCH] Add keyboard macro helper --- lain/.emacs.d/config.org | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) diff --git a/lain/.emacs.d/config.org b/lain/.emacs.d/config.org index 365b671..2d8d7c6 100644 --- a/lain/.emacs.d/config.org +++ b/lain/.emacs.d/config.org @@ -144,6 +144,38 @@ Also set up a leader key and prefixes, like =\= in Vim. ("p" . "projects") ("w" . "windows")))) #+END_SRC +** Macros +A helper for defining procedural keyboard macros +#+BEGIN_SRC emacs-lisp + (defun jf-replace-regexps-in-string (str regexps) + "Replace all pairs of (regex . replacement) defined by REGEXPS in STR." + (if (null regexps) + str + (jf-replace-regexps-in-string + (replace-regexp-in-string (caar regexps) (cdar regexps) str t) + (cdr regexps)))) + + (defun jf-kbd (str) + "Convert STR into a keyboard macro string by replacing terminal key sequences with GUI keycodes." + (let ((jf-kbd-regex '(("ESC" . "") + ("DEL" . "") + ("BS" . "") + ("RET" . "") + ("SPC" . "") + ("TAB" . "")))) + (jf-replace-regexps-in-string str jf-kbd-regex))) + + (defun jf-kbd-exec (str) + "Execute the key sequence defined by STR. Terminal based keys are expanded to their graphical counterparts." + (let ((minibuffer-message-timeout 0)) + (execute-kbd-macro (read-kbd-macro (jf-kbd str))))) + + (defmacro jf-kbd-defmacro (name &rest forms) + "Create an interactive function NAME with body FORMS, where the evaluation of each form is executed as a keyboard macro." + `(defun ,name () + (interactive) + ,@(mapcan (lambda (form) `((jf-kbd-exec ,form))) forms))) +#+END_SRC * Vim Emulation ** Evil [[https://github.com/emacs-evil/evil][Evil]] is pretty much the entirety of Vim in Emacs.