;; This file:
;;   https://anggtwu.net/.maxima/startslime.lisp.html
;;   https://anggtwu.net/.maxima/startslime.lisp
;;           (find-angg ".maxima/startslime.lisp")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;;
;; Similar to: (find-angg ".maxima/startsly.lisp")
;;        See: https://anggtwu.net/eev-maxima.html#sly
;;             (find-slynode "Lisp-side customization")
;;             (find-slynode "Lisp-side customization" "Slynk")
;;             (find-slynode "Setting up the Lisp image" ":PORT")
;;             (find-slynode "Setting up the Lisp image" ":PORT" "4005")
;;             (find-slimenode "Lisp-side")
;;             (find-slimenode "Lisp-side" "Swank")
;;             (find-slimenode "Setting up the lisp image" ":PORT")
;;             (find-slimenode "Setting up the lisp image" ":PORT" "4005")
;;             (find-maximamsg "37679359 202207 11" "MTalon: swank")
;;             https://sourceforge.net/p/maxima/mailman/message/37679359/
;;             (find-try-sly-intro)
;;             (find-try-sly-intro "2. Install some elisp packages")
;;             (find-try-sly-intro "3. Adjust your ~/.emacs")
;;             (find-try-sly-intro "4. Download quicklisp.lisp")
;;             (find-try-sly-intro "5. Install Quicklisp and Slynk")
;;             (find-try-sly-intro "7. Tell Maxima how to load Sly")
;;             (find-es "lisp" "quicklisp")
;;             (find-eev "eev-testblocks.el" "lisp-mode")
;;             (find-eev "eev-testblocks.el" "lisp-mode-sly")
;;             (find-eev "eev-testblocks.el" "lisp-mode-maxima-slime")
;;
(load #P"~/quicklisp/setup.lisp")
(ql:quickload :swank)
(swank:create-server :port 4005 :dont-close t)


#|
* (eepitch-slime-kill 'show-only)
* (eepitch-slime-kill)
* (eepitch-b '(slime "sbcl"))
* (eepitch-slime-select)
*   (eepitch-maxima)
*   (eepitch-kill)
*   (eepitch-maxima)
      load("startslime");
* (eepitch-b '(slime-connect "localhost" 4005))
* (eepitch-slime-set-pkgbuffers)
* (eepitch-slime-select-pkgbuffer "COMMON-LISP-USER")
* (eepitch-slime-select-pkgbuffer "MAXIMA")
* (eepitch-maxima)

** Run the sexp below, then use `M-.' to navigate the source:
* (sly-edit-definition "dim-$matrix")

|#

;; The best way to insert test blocks similar to the one above is with:
;; (find-eev "eev-testblocks.el" "lisp-mode")
;; (find-eev "eev-testblocks.el" "lisp-mode-maxima-slime")