sly stuff

1 files changed, 33 insertions, 1 deletions

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