ambevar-dotfiles/.local/bin/sbcl-container

13 lines
535 B
Bash
Executable File

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