tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-22 17:16:01 +02:00
Code Activity

image: Add support for btrfs.

Browse Source 
* gnu/build/image.scm (make-btrfs-image): New variable.
* gnu/system/image.scm (system-disk-image): Support btrfs.

Change-Id: I80a5b52ec478ce5927d6208e324cbb70282c647a
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Roman Scherer
2024-10-03 14:13:32 +02:00
committed by Ludovic Courtès
parent 727a72c5e2
commit 886b410e6f
3 changed files with 26 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gnu/system/image.scm
+6 -2
View File
@@ -402,7 +402,8 @@ used in the image."
(file-system (partition-file-system partition)))
(cond
((member 'esp flags) "0xEF")
((string-prefix? "ext" file-system) "0x83")
((or (string=? file-system "btrfs")
(string-prefix? "ext" file-system)) "0x83")
((or (string=? file-system "vfat")
(string=? file-system "fat16")) "0x0E")
((string=? file-system "fat32") "0x0C")
@@ -421,7 +422,8 @@ used in the image."
(file-system (partition-file-system partition)))
(cond
((member 'esp flags) "U")
((string-prefix? "ext" file-system) "L")
((or (string=? file-system "btrfs")
(string-prefix? "ext" file-system)) "L")
((or (string=? file-system "vfat")
(string=? file-system "fat16")
(string=? file-system "fat32")) "F")
@@ -453,6 +455,8 @@ used in the image."
(let ((initializer (or #$(partition-initializer partition)
initialize-root-partition))
(inputs '#+(cond
((string=? type "btrfs")
(list btrfs-progs fakeroot))
((string-prefix? "ext" type)
(list e2fsprogs fakeroot))
((or (string=? type "vfat")