SLY: Fix sbcl-nyxt-site implementation to use dedicated image.
parent
efa70a55e4
commit
cee33bff61
|
@ -157,9 +157,6 @@ returns a string."
|
||||||
(setq sly-lisp-implementations
|
(setq sly-lisp-implementations
|
||||||
`((sbcl-ambrevar ("lisp-repl-core-dumper" "sbcl" "ambrevar"))
|
`((sbcl-ambrevar ("lisp-repl-core-dumper" "sbcl" "ambrevar"))
|
||||||
(sbcl ("lisp-repl-core-dumper" "sbcl"))
|
(sbcl ("lisp-repl-core-dumper" "sbcl"))
|
||||||
(sbcl-nyxt-site ("guix" "environment" "--pure"
|
|
||||||
"-m" ,(expand-file-name "~/common-lisp/nyxt-site/guix-manifest.scm")
|
|
||||||
"--" "sbcl"))
|
|
||||||
;; Simple REPL environment (no container):
|
;; Simple REPL environment (no container):
|
||||||
(sbcl-nyxt ("guix" "environment" "--pure"
|
(sbcl-nyxt ("guix" "environment" "--pure"
|
||||||
"--preserve=^PERSONAL$" ; To find personal config, like engines and bookmarks.
|
"--preserve=^PERSONAL$" ; To find personal config, like engines and bookmarks.
|
||||||
|
@ -171,7 +168,8 @@ returns a string."
|
||||||
(sbcl-nyxt-fast
|
(sbcl-nyxt-fast
|
||||||
(lambda ()
|
(lambda ()
|
||||||
;; TODO: Replace root when source has changed?
|
;; TODO: Replace root when source has changed?
|
||||||
(let ((root (expand-file-name "~/.guix-temp-profiles/nyxt")))
|
(let ((root (expand-file-name "~/.guix-temp-profiles/nyxt"))
|
||||||
|
(cache (expand-file-name "~/.cache/lisp-repl-core-nyxt")))
|
||||||
(unless (file-exists-p root)
|
(unless (file-exists-p root)
|
||||||
(make-directory (file-name-directory root) :parents)
|
(make-directory (file-name-directory root) :parents)
|
||||||
(call-process "guix" nil nil nil
|
(call-process "guix" nil nil nil
|
||||||
|
@ -182,13 +180,19 @@ returns a string."
|
||||||
"--ad-hoc" "glib" "glib-networking" "gsettings-desktop-schemas"
|
"--ad-hoc" "glib" "glib-networking" "gsettings-desktop-schemas"
|
||||||
;; "nss-certs" ; Only needed in containers.
|
;; "nss-certs" ; Only needed in containers.
|
||||||
;; "libfixposix" ; TODO: We should not need this.
|
;; "libfixposix" ; TODO: We should not need this.
|
||||||
"gnupg" "lisp-repl-core-dumper"
|
"gnupg"
|
||||||
"--" "lisp-repl-core-dumper" "sbcl"))
|
"coreutils"
|
||||||
|
"lisp-repl-core-dumper"
|
||||||
|
"--" "env" (concat "LISP_REPL_CORE_PATH=" cache)
|
||||||
|
"lisp-repl-core-dumper" "sbcl"))
|
||||||
|
;; TODO: Include Nyxt Lisp deps in core dump?
|
||||||
`(("bash" "-c" ,(concat
|
`(("bash" "-c" ,(concat
|
||||||
(format "source '%s/etc/profile'" root)
|
(format "source '%s/etc/profile'" root)
|
||||||
" && "
|
" && LISP_REPL_CORE_PATH=" cache
|
||||||
;; TODO:
|
" lisp-repl-core-dumper sbcl"))))))
|
||||||
"lisp-repl-core-dumper sbcl"))))))
|
(sbcl-nyxt-site ("guix" "environment" "--pure"
|
||||||
|
"-m" ,(expand-file-name "~/common-lisp/nyxt-site/guix-manifest.scm")
|
||||||
|
"--" "sbcl"))
|
||||||
(ccl ("lisp-repl-core-dumper" "ccl"))
|
(ccl ("lisp-repl-core-dumper" "ccl"))
|
||||||
(clisp ("lisp-repl-core-dumper" "clisp"))
|
(clisp ("lisp-repl-core-dumper" "clisp"))
|
||||||
(ecl ("ecl")))))
|
(ecl ("ecl")))))
|
||||||
|
|
Loading…
Reference in New Issue