seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2026-08-13 08:10:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

services: nix-search-paths: Correct build-nix-profile path.

Browse Source
This commit is contained in:
Hilton Chain 2026-07-03 02:39:52 +08:00
parent 39eb45af2b
commit 428a150814
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
modules/rosenthal/services/nix.scm
View File

@ -2,8 +2,6 @@
;;; Copyright © 2026 Hilton Chain <hako@ultrarare.space> ;;; Copyright © 2026 Hilton Chain <hako@ultrarare.space>
(define-module (rosenthal services nix) (define-module (rosenthal services nix)
;; Guile builtins
#:use-module (srfi srfi-26)
;; Utilities ;; Utilities
#:use-module (guix gexp) #:use-module (guix gexp)
;; Guix System - services ;; Guix System - services
@ -18,14 +16,23 @@
#:export (nix-search-paths-service-type #:export (nix-search-paths-service-type
home-nix-search-paths-service-type)) home-nix-search-paths-service-type))
(define* (nix-search-paths-shepherd-extension config #:key home-service?) (define* (nix-search-paths-shepherd-root-extension config)
(list (shepherd-service (list (shepherd-service
(documentation (documentation
"Build Nix profile and symlink it to the specified path.") "Build Nix profile and symlink it to the specified path.")
(requirement (requirement '(user-processes nix-daemon networking))
(if home-service? (provision '(build-nix-profile))
'() (one-shot? #t)
'(user-processes nix-daemon networking))) (start
#~(make-forkexec-constructor
(list "/run/current-system/profile/bin/build-nix-profile"
#$config))))))
(define* (nix-search-paths-home-shepherd-extension config)
(list (shepherd-service
(documentation
"Build Nix profile and symlink it to the specified path.")
(requirement '())
(provision '(build-nix-profile)) (provision '(build-nix-profile))
(one-shot? #t) (one-shot? #t)
(start (start
@ -48,7 +55,7 @@ eval \"$(" guix "/bin/guix package --search-paths=suffix \
(name 'nix-search-paths) (name 'nix-search-paths)
(extensions (extensions
(list (service-extension shepherd-root-service-type (list (service-extension shepherd-root-service-type
nix-search-paths-shepherd-extension) nix-search-paths-shepherd-root-extension)
(service-extension etc-profile-d-service-type (service-extension etc-profile-d-service-type
nix-search-paths-etc-profile-d-extension))) nix-search-paths-etc-profile-d-extension)))
(default-value "/nix/var/nix/profiles/guix-system-nix-profile") (default-value "/nix/var/nix/profiles/guix-system-nix-profile")
@ -60,7 +67,7 @@ eval \"$(" guix "/bin/guix package --search-paths=suffix \
(name 'home-nix-search-paths) (name 'home-nix-search-paths)
(extensions (extensions
(list (service-extension home-shepherd-service-type (list (service-extension home-shepherd-service-type
(cut nix-search-paths-shepherd-extension <> #:home-service? #t)) nix-search-paths-home-shepherd-extension)
(service-extension home-shell-profile-service-type (service-extension home-shell-profile-service-type
nix-search-paths-home-shell-profile-extension))) nix-search-paths-home-shell-profile-extension)))
(default-value "/var/tmp/guix-home-nix-profile"))) (default-value "/var/tmp/guix-home-nix-profile")))