slynk.lisp 593 B

123456789101112131415
  1. (define-command start-slynk (&optional (slynk-port *swank-port*))
  2. "Start a Slynk server that can be connected to, for instance, in
  3. Emacs via SLY.
  4. Warning: This allows Next to be controlled remotely, that is, to
  5. execute arbitrary code with the privileges of the user running Next.
  6. Make sure you understand the security risks associated with this
  7. before running this command."
  8. (slynk:create-server :port slynk-port :dont-close t)
  9. (echo "Slynk server started at port ~a" slynk-port))
  10. ;; Start slynk by default.
  11. (unless nyxt::*keep-alive*
  12. (slynk:create-server :port 4006 :dont-close t))