cristiancmoises
/
zero
mirror of https://codeberg.org/anemofilia/zero
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

operating-systems: buer: Add /etc/config.scm as a special file that symlinks to (operating-systems buer) module location

main
Luis Guilherme Coelho 2024-11-11 12:08:12 -03:00
parent 16ae85e10e
commit a147faefab
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
operating-systems/buer.scm
View File

@ -90,7 +90,10 @@
#|SRFIs|# #|SRFIs|#
#|1|# #:use-module (srfi srfi-1) #|1|# #:use-module (srfi srfi-1)
#:export (buer)) #:export (buer buer.scm))
(define buer.scm
(search-path %load-path (module-filename (current-module))))
(define buer (define buer
(operating-system (operating-system
@ -301,8 +304,9 @@
#|Special file services|# #|Special file services|#
(service special-files-service-type (service special-files-service-type
`(("/bin/sh" ,(file-append bash "/bin/bash")) `(("/bin/sh" ,(file-append bash "/bin/bash"))
("/usr/bin/env" ,(file-append coreutils "/bin/env")))) ("/usr/bin/env" ,(file-append coreutils "/bin/env"))
(simple-service 'persistent-files-service ("/etc/config.scm" ,buer.scm)))
(simple-service 'persistent-files
special-files-service-type special-files-service-type
(map (juxt identity (map (juxt identity
(partial string-append "/gnu/persist/")) (partial string-append "/gnu/persist/"))