about summary refs log tree commit diff
path: root/users/glittershark/emacs.d/lisp.el
diff options
context:
space:
mode:
Diffstat (limited to 'users/glittershark/emacs.d/lisp.el')
-rw-r--r--users/glittershark/emacs.d/lisp.el38
1 files changed, 0 insertions, 38 deletions
diff --git a/users/glittershark/emacs.d/lisp.el b/users/glittershark/emacs.d/lisp.el
deleted file mode 100644
index e18a1609b2..0000000000
--- a/users/glittershark/emacs.d/lisp.el
+++ /dev/null
@@ -1,38 +0,0 @@
-;;; ~/code/depot/users/glittershark/emacs.d/lisp.el -*- lexical-binding: t; -*-
-
-(defun grfn/sly-panettone ()
-  (interactive)
-  (sly
-   (concat
-    (s-trim
-     (shell-command-to-string
-      "nix-build -o sbcl -E 'with import ~/code/depot {}; nix.buildLisp.sbclWith [web.panettone]'"))
-    "/bin/sbcl")))
-
-(defun grfn/setup-lisp ()
-  (interactive)
-  (unless paxedit-mode (paxedit-mode 1))
-  (rainbow-delimiters-mode)
-  (flycheck-mode -1))
-
-(add-hook 'common-lisp-lisp-mode-hook #'grfn/setup-lisp)
-
-(defun sly-run-tests ()
-  (interactive)
-  ;; TODO: handle other test frameworks
-  (let ((orig-window (get-buffer-window)))
-    (sly-eval '(fiveam:run!))
-    (funcall-interactively #'sly-mrepl-sync)
-    (select-window orig-window)))
-
-(map!
- (:map sly-mode-map
-  :n "g \\" #'sly-mrepl-sync
-  :n "g d" #'sly-edit-definition
-  :n "K" #'sly-documentation
-  :n "g SPC" #'sly-compile-and-load-file
-  :n "g RET" #'sly-run-tests)
-
- (:map sly-mrepl-mode-map
-  "C-k" #'sly-mrepl-previous-prompt
-  "C-r" #'isearch-backward))