;; This file:
;;   https://anggtwu.net/.maxima/startsly.lisp.html
;;   https://anggtwu.net/.maxima/startsly.lisp
;;           (find-angg ".maxima/startsly.lisp")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;;
;; Similar to: (find-angg ".maxima/startslime.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-sly")
;;
(load #P"~/quicklisp/setup.lisp")
(ql:quickload :slynk)
(slynk:create-server :port 56789 :dont-close t)


#|
** A test:
* (eepitch-sly-kill 'show-only)
* (eepitch-sly-kill)
* (eepitch-sly)
*   (eepitch-maxima)
*   (eepitch-kill)
*   (eepitch-maxima)
      load("startsly");
* (eepitch-b '(sly-connect "localhost" 56789))
* (eepitch-sly-set-pkgbuffers)
* (eepitch-sly-select-pkgbuffer "common-lisp-user")
* (eepitch-sly-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-sly")







#|
;; «install-quicklisp»  (to ".install-quicklisp")
;; «install-slynk»  (to ".install-slynk")

* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
load("startsly");
* (sly-connect "localhost" 56789)
* (eepitch-sly)



** dim-$matrix
** (eek "<up> M-.")
**
** (find-maximagitgrep "grep --color=auto -nH --null -e 'defun dim-' src/*.lisp")
** (find-maximagitgrep "grep --color=auto -nH --null -e 'dim-' src/*.lisp")

|#




;; Local Variables:
;; coding:  utf-8-unix
;; End: