gnu: Blender: Add the missing Voxel Remesher.

[jackhill/guix/guix.git] / gnu / image.scm

diff --git a/gnu/image.scm b/gnu/image.scm
index 0a92d16..75d4894 100644 (file)
--- a/gnu/image.scm
+++ b/gnu/image.scm
@@ -31,14 +31,23 @@
             partition-initializer
 
             image
+            image?
             image-name
             image-format
+            image-target
             image-size
             image-operating-system
             image-partitions
             image-compression?
             image-volatile-root?
-            image-substitutable?))
+            image-substitutable?
+
+            image-type
+            image-type?
+            image-type-name
+            image-type-constructor
+
+            os->image))
 
 \f
 ;;;
@@ -66,7 +75,11 @@
 (define-record-type* <image>
   image make-image
   image?
+  (name               image-name ;symbol
+                      (default #f))
   (format             image-format) ;symbol
+  (target             image-target
+                      (default #f))
   (size               image-size  ;size in bytes as integer
                       (default 'guess))
   (operating-system   image-operating-system  ;<operating-system>
@@ -79,3 +92,23 @@
                       (default #t))
   (substitutable?     image-substitutable? ;boolean
                       (default #t)))
+
+\f
+;;;
+;;; Image type.
+;;;
+
+(define-record-type* <image-type>
+  image-type make-image-type
+  image-type?
+  (name           image-type-name) ;symbol
+  (constructor    image-type-constructor)) ;<operating-system> -> <image>
+
+\f
+;;;
+;;; Image creation.
+;;;
+
+(define* (os->image os #:key type)
+  (let ((constructor (image-type-constructor type)))
+    (constructor os)))