From efd8eaf6c83d5a17be5cf87fd6ed3d3194f742c9 Mon Sep 17 00:00:00 2001 From: colin Date: Fri, 5 Apr 2024 19:59:45 -0700 Subject: sly stuff --- init-el.org | 34 +++++++++++++++++++++++++++++++++- 1 file changed, 33 insertions(+), 1 deletion(-) diff --git a/init-el.org b/init-el.org index 921be7b..6cab7d7 100644 --- a/init-el.org +++ b/init-el.org @@ -161,7 +161,7 @@ I'm using melpa and elpa package archives. (?d "[d]ired" dired) ;(?d "[d]irvish" dirvish) (?r "[r]eading" my-reading-command) - (?s "[s]lime" my-lisp-switch-command) + (?s "[s]ly" sly) (?h "[h]elp" helpful-at-point))) @@ -1359,6 +1359,38 @@ association one shell with each perspective layout #+end_src +*** Sly + +#+name: sly-config +#+begin_src elisp :noweb no-export +(def-my-command my-lisp-mode-command + '((?d "[d]ocumentation" sly-describe-symbol) + ;(?\t "[TAB] inspect" how do I inspect??? ) + (?S "[S]ync package" sly-mrepl-sync) + (?\t "TAB inpsect" sly-inspect))) + + +;; (defvar +symbols-in-cl+ 977) + +;; (defun slime-random-words-of-encouragement () +;; "Return a string of hackerish encouragement." +;; (slime-eval +;; `(swank:documentation-symbol +;; (cl:loop :for name :being :each :symbol :in (cl:find-package "CL") +;; :collect (cl:symbol-name name) :into names +;; :finally (cl:return (cl:elt names ,(random +symbols-in-cl+))))))) + +;; (defun slime-fasl-directory () +;; (let ((dir (format "%s/.cache/slime-fasls/" (getenv "HOME")))) +;; (make-directory dir t) +;; dir)) + + +;; (setq slime-compile-file-options +;; (list :fasl-directory (slime-fasl-directory))) +#+end_src + + *** Editing Config #+name: common-lisp-editing-config -- cgit v1.2.3