about summary refs log tree commit diff
diff options
context:
space:
mode:
authorGriffin Smith <grfn@gws.fyi>2020-07-21T04·31-0400
committerglittershark <grfn@gws.fyi>2020-07-21T04·32+0000
commitf7f75b65937cdf169c447bec1745056985435979 (patch)
treebb158ee3bbf246f6f29ea0b4d77cf2ddacb700b4
parent38a262872ab696dfaff536bdfbab7c8c711a5ec2 (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.el26
-rw-r--r--users/glittershark/emacs.d/init.el2
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