#!/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)"