[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Adding %conf-dir breaks module
From: |
jgart |
Subject: |
Adding %conf-dir breaks module |
Date: |
Sat, 29 Jul 2023 02:54:25 +0000 |
Hi,
Adding the following %conf-dir expression breaks this entire module. If I
comment it out all is fine.
(define-module (confetti features common-lisp)
#:use-module (rde features)
#:use-module (rde features emacs)
#:use-module (rde features predicates)
#:use-module (guixrus packages guix)
#:use-module (guixrus packages common lisp)
#:use-module (gnu home services)
#:use-module (gnu packages emacs-xyz)
#:use-module (gnu packages lisp)
#:use-module (gnu packages lisp-xyz)
#:use-module (gnu services)
#:use-module (guix gexp)
#:use-module (guix packages)
#:export (feature-common-lisp))
;; Adding the following %conf-dir expression breaks this entire module. If I
comment it out all is fine.
(define %conf-dir
(dirname (current-filename)))
;; (define (path-join . args)
;; (string-join args "/"))
;; (define (config-file file)
;; (local-file (path-join %conf-dir file)))
(define* (feature-common-lisp
#:key
(lisp-implementation sbcl)
(init-file "lisp/sbclrc.lisp"))
"Configure Common Lisp support."
(ensure-pred file-like? lisp-implementation)
;; TODO: Use path like or whatnot.
(ensure-pred string? init-file)
(feature
(name 'common-lisp)
(home-services-getter
(lambda (config)
(list
(simple-service 'add-guixrus-home-packages home-profile-service-type
(list sbcl-cl-guix-utils guixrus-scripts sbcl-slynk
sbcl))
(simple-service 'add-rus-shell-home-envs
home-environment-variables-service-type
'(("GUIX_EXTENSIONS_PATH" .
"$HOME/.guix-home/profile/share/guix/extensions")))
(simple-service 'add-sbclrc-home-file home-files-service-type
(list `(".sbclrc" ,(local-file init-file)))))))))
Any thoughts on why that would happen?
https://git.sr.ht/~whereiseveryone/confetti/tree/590f999c0b836059232314b2b240ef1561ef9a83/conf/confetti/features/common-lisp.scm#L38
- Adding %conf-dir breaks module,
jgart <=