Change to slime (for now)

disabled.el

@@ -108,3 +108,35 @@
 ;;   (defun my/-ellama-startup-hook ()
 ;;     "Hook to do stuff in llama buffers."
 ;;     (auto-fill-mode -1)))
+
+;; sly
+;; (use-package sly
+;;   :hook (lisp-mode . my/-lisp-mode-autoconnect-sly)
+;;   :bind (:map sly-mode-map
+;;          ("C-c e" . my/sly-show-notes-at-point))
+;;   :autoload sly-connected-p
+;;   :init
+;;   (defun my/-lisp-mode-autoconnect-sly ()
+;;     (unless (sly-connected-p)
+;;       (sly)))
+;;   (defun my/sly-notes-at-point (pos &optional buffer)
+;;     "Returns the sly notes at POS in BUFFER.
+;; If BUFFER is nil, the current buffer is used."
+;;     (with-current-buffer (or buffer (current-buffer))
+;;       (cl-loop for overlay in (overlays-at pos)
+;;                for note = (overlay-get overlay 'sly-note)
+;;                when note
+;;                collect note)))
+;;   (defun my/sly-show-notes-at-point ()
+;;     "Show all sly notes at point in a floating window."
+;;     (interactive)
+;;     (my/floating-tooltip " *sly-note-posframe*"
+;;                          (with-output-to-string
+;;                            (dolist (note (my/sly-notes-at-point (point)))
+;;                              (when-let  (msg (plist-get note :message))
+;;                                (princ "·")
+;;                                (princ msg)
+;;                                (terpri))))))
+;;   (setq inferior-lisp-program "/usr/bin/sbcl")
+;;   :config
+;;   (sly-symbol-completion-mode -1))