From 1b4fa7851b39f087a6433e8b5e22c479ca1da289 Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <m.othacehe@gmail.com>
Date: Wed, 20 May 2020 16:09:53 +0200
Subject: 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.
---
 gnu/image.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'gnu/image.scm')

diff --git a/gnu/image.scm b/gnu/image.scm
index b05fc69dc5..3a02692950 100644
--- a/gnu/image.scm
+++ b/gnu/image.scm
@@ -22,6 +22,7 @@
             partition?
             partition-device
             partition-size
+            partition-offset
             partition-file-system
             partition-label
             partition-uuid
@@ -47,6 +48,7 @@
   partition?
   (device      partition-device (default #f))
   (size        partition-size)
+  (offset      partition-offset (default #f))
   (file-system partition-file-system (default "ext4"))
   (label       partition-label (default #f))
   (uuid        partition-uuid (default #f))
-- 
cgit v1.2.3