guix-epistemia

commit b422b223f5c294962e3898986946900839cb0607
parent e07c33fe14d150ed09ad7cc77355fe1750ba5618
Author: Vineet Kumar <git@vineetk.net>
Date:   Tue,  5 May 2026 13:49:05 -0400

saklas: switch to linux-libre from linux

Diffstat:
M
epistemia/bootloader.scm
 | 
18
------------------
M
epistemia/services/zfs.scm
 | 
16
+++++++++++-----

2 files changed, 11 insertions(+), 23 deletions(-)
diff --git a/epistemia/bootloader.scm b/epistemia/bootloader.scm
@@ -21,21 +21,3 @@
               "set root=(hd0,gpt2)")
              ((" /store/") 
               " /gnu/@/store/")))))))
-
-;; TODO combine into previous with an argument?
-(define-public grub-zfs-bios
-  (bootloader
-    (inherit grub-bootloader)
-    (name 'grub-zfs)
-    (installer
-     #~(lambda (bootloader targets mount-point)
-         (use-modules (guix build utils))
-         (let ((standard-installer #$(bootloader-installer grub-bootloader)))
-           (standard-installer bootloader targets mount-point))
-         (let ((grub-cfg (string-append mount-point "/boot/grub/grub.cfg")))
-           (chmod grub-cfg #o644)
-           (substitute* grub-cfg
-             (("search --label --set [^ ]+")
-              "set root=(hd0,gpt2)")
-             ((" /store/")
-              " /gnu/@/store/")))))))
diff --git a/epistemia/services/zfs.scm b/epistemia/services/zfs.scm
@@ -1,13 +1,13 @@
 (define-module (epistemia services zfs)
   #:use-module (gnu services shepherd)
-  #:use-module (guix gexp)
+  #:use-module (gnu packages file-systems)
   #:use-module (epistemia packages zfs)
-  #:export (zfs-shepherd-services))
+  #:use-module (guix gexp))
 
 ;; from raid5atemyhomework's valiant efforts
-(define zfs-shepherd-services
-  (let ((zpool (file-append zfs-linux "/sbin/zpool"))
-	(zfs (file-append zfs-linux "/sbin/zfs"))
+(define* (make-zfs-shepherd-services zfs-package)
+  (let ((zpool (file-append zfs-package "/sbin/zpool"))
+	(zfs (file-append zfs-package "/sbin/zfs"))
 	(scheme-modules `((srfi srfi-1)
 			  (srfi srfi-34)
 			  (srfi srfi-35)
@@ -38,3 +38,9 @@
 		  (invoke/quiet #$zfs "unmount" "-a" "-f")
 		  #f))))
     (list zfs-scan zfs-automount)))
+
+(define-public zfs-shepherd-services
+  (make-zfs-shepherd-services zfs))
+
+(define-public zfs-linux-shepherd-services
+  (make-zfs-shepherd-services zfs-linux))