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 <grfn@gws.fyi>
This commit is contained in:
Griffin Smith 2020-07-21 00:31:17 -04:00 committed by glittershark
parent 38a262872a
commit f7f75b6593
2 changed files with 26 additions and 2 deletions

View file

@ -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))

View file

@ -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