diff options
| author | Mathieu Othacehe <m.othacehe@gmail.com> | 2020-05-20 16:09:53 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-05-26 09:57:06 +0200 |
| commit | 1b4fa7851b39f087a6433e8b5e22c479ca1da289 (patch) | |
| tree | bdc6d4e96df8a0d7598f023f8dbf2eb32ffb1479 /gnu/system | |
| parent | edb0366c16fee4767a1d007b6c38f11080910b50 (diff) | |
| download | guix-1b4fa7851b39f087a6433e8b5e22c479ca1da289.tar guix-1b4fa7851b39f087a6433e8b5e22c479ca1da289.tar.gz | |
image: Add partition offset support.
* gnu/image.scm (partition-offset): New procedure,
(<partition>)[offset]: new field.
* gnu/system/image.scm (system-disk-image): Apply the partition offset.
Diffstat (limited to 'gnu/system')
| -rw-r--r-- | gnu/system/image.scm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/gnu/system/image.scm b/gnu/system/image.scm index 571b7af5f3..adc2b3c221 100644 --- a/gnu/system/image.scm +++ b/gnu/system/image.scm @@ -243,11 +243,17 @@ used in the image." ;; Return the genimage partition configuration for PARTITION. (let ((label (partition-label partition)) (dos-type (partition->dos-type partition)) - (image (partition-image partition))) + (image (partition-image partition)) + (offset (partition-offset partition))) #~(format #f "~/partition ~a { ~/~/partition-type = ~a ~/~/image = \"~a\" - ~/}" #$label #$dos-type #$image))) + ~/~/offset = \"~a\" + ~/}" + #$label + #$dos-type + #$image + #$(or offset 0)))) (let* ((format (image-format image)) (image-type (format->image-type format)) |