about summary refs log tree commit diff
diff options
context:
space:
mode:
-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 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