From f7f75b65937cdf169c447bec1745056985435979 Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Tue, 21 Jul 2020 00:31:17 -0400 Subject: feat(gs/emacs): Add config for common lisp I will likely want to rip this out of doom at some point, and there are definitely more bindings to be had, but this is a start Change-Id: Ic166edb1f8af142cef57a9402999669dfaea35ba Reviewed-on: https://cl.tvl.fyi/c/depot/+/1330 Tested-by: BuildkiteCI Reviewed-by: glittershark --- users/glittershark/emacs.d/+bindings.el | 26 +++++++++++++++++++++++++- users/glittershark/emacs.d/init.el | 2 +- 2 files changed, 26 insertions(+), 2 deletions(-) (limited to 'users/glittershark') diff --git a/users/glittershark/emacs.d/+bindings.el b/users/glittershark/emacs.d/+bindings.el index 5f3b9e52ef..151161814f 100644 --- a/users/glittershark/emacs.d/+bindings.el +++ b/users/glittershark/emacs.d/+bindings.el @@ -1188,6 +1188,24 @@ If invoked with a prefix ARG eval the expression after inserting it" "c" 'cider-eval-last-sexp-and-replace) "y" 'cider-copy-last-result)) +(nmap :keymaps 'sly-mode-map + "c" (general-key-dispatch 'evil-change + "p" (general-key-dispatch 'sly-eval + ;; "p" 'eval-sexp-at-point + "c" 'sly-pprint-eval-last-expression + "d" 'sly-eval-defun + ;; "r" 'cider-test-run-test + ) + ;; "x" (general-key-dispatch 'fireplace-eval-context + ;; "x" 'cider-eval-sexp-at-point-in-context + ;; "c" 'cider-eval-last-sexp-in-context + ;; ) + ;; "!" (general-key-dispatch 'fireplace-replace + ;; "!" 'cider-eval-current-sexp-and-replace + ;; "c" 'cider-eval-last-sexp-and-replace) + ;; "y" 'cider-copy-last-result + )) + ;; >) ; slurp forward ;; <) ; barf forward @@ -1387,4 +1405,10 @@ If invoked with a prefix ARG eval the expression after inserting it" :n "K" #'lsp-describe-thing-at-point :n "g r" #'lsp-rename (:localleader - :n "a" #'lsp-execute-code-action))) + :n "a" #'lsp-execute-code-action)) + + (:map sly-mode-map + :n "g \\" #'sly-mrepl + :n "g d" #'sly-edit-definition + :n "K" #'sly-documentation + :n "g SPC" #'sly-eval-buffer)) diff --git a/users/glittershark/emacs.d/init.el b/users/glittershark/emacs.d/init.el index faa02663eb..99112e7d38 100644 --- a/users/glittershark/emacs.d/init.el +++ b/users/glittershark/emacs.d/init.el @@ -85,7 +85,7 @@ ;;assembly ; assembly for fun or debugging cc ; C/C++/Obj-C madness clojure ; java with a lisp - ;;common-lisp ; if you've seen one lisp, you've seen them all + common-lisp ; if you've seen one lisp, you've seen them all ; coq ; proofs-as-programs ;;crystal ; ruby at the speed of c ;;csharp ; unity, .NET, and mono shenanigans -- cgit 1.4.1