Next: Load slynk code in external file.
parent
8c94141f1f
commit
d616d21770
|
@ -223,16 +223,7 @@ format."
|
||||||
|
|
||||||
(load-system :slynk)
|
(load-system :slynk)
|
||||||
(when (find-package :slynk)
|
(when (find-package :slynk)
|
||||||
(define-command start-slynk (&optional (slynk-port *swank-port*))
|
(next::load-lisp "/home/ambrevar/dotfiles/.config/next/slynk.lisp"))
|
||||||
"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)))
|
|
||||||
|
|
||||||
|
|
||||||
(defvar +dev-data-profile+ (make-instance 'data-profile :name "dev")
|
(defvar +dev-data-profile+ (make-instance 'data-profile :name "dev")
|
||||||
|
|
|
@ -0,0 +1,10 @@
|
||||||
|
(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))
|
Loading…
Reference in New Issue