.local/bin/sbcl-container: Init.
parent
3e32519f04
commit
416ec2eea8
|
@ -0,0 +1,12 @@
|
||||||
|
#!/bin/sh
|
||||||
|
|
||||||
|
## TODO: Set up a container without separate script or sly-connect?
|
||||||
|
port=4006
|
||||||
|
[ -n "$1" ] && port=$1
|
||||||
|
|
||||||
|
guix environment -N -C -m ~/.package-lists/guix-common-lisp-manifest.scm -- \
|
||||||
|
sbcl --eval "(require :asdf)" \
|
||||||
|
--eval '(dolist (p (list "" "sly/contrib/" "sly/slynk/")) (push (pathname (format nil "~a/share/emacs/site-lisp/~a" (uiop:getenv "GUIX_ENVIRONMENT") p)) asdf:*central-registry*))' \
|
||||||
|
--eval "(asdf:load-system :slynk)" \
|
||||||
|
--eval "(slynk:create-server :port $port)" \
|
||||||
|
--eval "(asdf:load-system :cmd)"
|
Loading…
Reference in New Issue