16 lines
681 B
Common Lisp
16 lines
681 B
Common Lisp
(define-command start-slynk (&optional (slynk-port *swank-port*))
|
|
"Start a Slynk server that can be connected to, for instance, in
|
|
Emacs via SLY.
|
|
|
|
Warning: This allows Next to be controlled remotely, that is, to
|
|
execute arbitrary code with the privileges of the user running Next.
|
|
Make sure you understand the security risks associated with this
|
|
before running this command."
|
|
(slynk:create-server :port slynk-port :dont-close t)
|
|
(echo "Slynk server started at port ~a" slynk-port))
|
|
|
|
;; Start slynk by default.
|
|
;; WARNING: This triggers an error if another instance is already running at 4006.
|
|
(unless nyxt::*run-from-repl-p*
|
|
(slynk:create-server :port 4006 :dont-close t))
|