diff options
author | William Carroll <wpcarro@gmail.com> | 2022-02-02T20·15-0800 |
---|---|---|
committer | clbot <clbot@tvl.fyi> | 2022-02-02T20·19+0000 |
commit | d0e30ed23a53f965f3003d9aa7282190fe3df088 (patch) | |
tree | d51fd35cea2c2645a31fa782f1940de297c36b2c | |
parent | 41faf1cf912363159fbc5acdb7779e457043fc57 (diff) |
feat(wpcarro/emacs): Define KBD to copy result of elisp evaluation r/3747
I've wanted this for awhile... Change-Id: Ic010fee6a7adc0aa793e4ca2179b90f4463d1eec Reviewed-on: https://cl.tvl.fyi/c/depot/+/5197 Tested-by: BuildkiteCI Reviewed-by: wpcarro <wpcarro@gmail.com> Autosubmit: wpcarro <wpcarro@gmail.com>
-rw-r--r-- | users/wpcarro/emacs/.emacs.d/wpc/wpc-lisp.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/users/wpcarro/emacs/.emacs.d/wpc/wpc-lisp.el b/users/wpcarro/emacs/.emacs.d/wpc/wpc-lisp.el index 4984e5dccddd..599d42620419 100644 --- a/users/wpcarro/emacs/.emacs.d/wpc/wpc-lisp.el +++ b/users/wpcarro/emacs/.emacs.d/wpc/wpc-lisp.el @@ -100,10 +100,18 @@ :config (general-add-hook 'emacs-lisp-mode #'ielm-mode)) +(defun wpc-lisp-copy-elisp-eval-output () + "Copy the output of the elisp evaluation" + (interactive) + (call-interactively 'eval-last-sexp) + (clipboard-copy (current-message) + :message (format "%s - copied!" (current-message)))) + (general-define-key :keymaps 'emacs-lisp-mode-map :prefix "<SPC>" :states 'normal + "c" #'wpc-lisp-copy-elisp-eval-output "x" #'eval-defun "X" #'eval-buffer "d" (lambda () |