diff options
| author | Griffin Smith <grfn@gws.fyi> | 2020-07-21T04·31-0400 |
|---|---|---|
| committer | glittershark <grfn@gws.fyi> | 2020-07-21T04·32+0000 |
| commit | f7f75b65937cdf169c447bec1745056985435979 (patch) | |
| tree | bb158ee3bbf246f6f29ea0b4d77cf2ddacb700b4 | |
| parent | 38a262872ab696dfaff536bdfbab7c8c711a5ec2 (diff) | |
feat(gs/emacs): Add config for common lisp r/1414
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>
| -rw-r--r-- | users/glittershark/emacs.d/+bindings.el | 26 | ||||
| -rw-r--r-- | users/glittershark/emacs.d/init.el | 2 |
2 files changed, 26 insertions, 2 deletions
diff --git a/users/glittershark/emacs.d/+bindings.el b/users/glittershark/emacs.d/+bindings.el index 5f3b9e52ef5d..151161814f44 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 faa02663eb80..99112e7d388b 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 |