seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-09-18 12:44:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

utils: Add rosenthal-transformation-zfs.

Browse Source 
* modules/rosenthal/utils/transformations.scm (rosenthal-transformation-zfs):
New procedure.
This commit is contained in:
Hilton Chain 2025-09-13 20:05:48 +08:00
parent a71e15a31f
commit 8e3cb6520c
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
modules/rosenthal/utils/transformations.scm
View File

@ -5,11 +5,16 @@
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (guix channels) #:use-module (guix channels)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (gnu system) #:use-module (gnu system)
#:use-module (gnu services) #:use-module (gnu services)
#:use-module (gnu services base) #:use-module (gnu services base)
#:use-module (rosenthal services file-systems)
#:use-module (gnu packages package-management) #:use-module (gnu packages package-management)
#:export (rosenthal-transformation-guix)) #:use-module (gnu packages file-systems)
#:export (rosenthal-transformation-guix
rosenthal-transformation-zfs))
(define* (rosenthal-transformation-guix #:key (substitutes? #t) (define* (rosenthal-transformation-guix #:key (substitutes? #t)
@ -60,3 +65,21 @@
(if guix-source? (if guix-source?
(guix-for-channels channels) (guix-for-channels channels)
(guix-configuration-guix config))))))))))) (guix-configuration-guix config)))))))))))
;; NOTE: Booting from ZFS requires patching Guix.
(define* (rosenthal-transformation-zfs #:key boot?)
(lambda (os)
(operating-system
(inherit os)
(kernel-loadable-modules
`(,@(if boot?
`((,(package/inherit zfs
(arguments
(substitute-keyword-arguments (package-arguments zfs)
((#:linux _ #f) (operating-system-kernel os)))))
"module"))
'())
,@(operating-system-kernel-loadable-modules os)))
(services
(cons* (service zfs-service-type)
(operating-system-user-services os))))))