me
/
guix
Archived
1
0
Fork 0
Code

image: Add image-type support. 

* gnu/image.scm (<image-type>): New record,
(image-type, image-type?, image-type-name,
image-type-constructor, os->image): new procedures.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
master
Mathieu Othacehe 2020-07-31 16:49:27 +02:00 committed by Mathieu Othacehe
parent 2f1f7b6667
commit 99d036ce84
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
gnu/image.scm
View File

@ -39,7 +39,14 @@
image-partitions
image-compression?
image-volatile-root?
image-substitutable?))
image-substitutable?
image-type
image-type?
image-type-name
image-type-constructor
os->image))
;;;
@ -84,3 +91,23 @@
(default #t))
(substitutable? image-substitutable? ;boolean
(default #t)))
;;;
;;; 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>
;;;
;;; Image creation.
;;;
(define* (os->image os #:key type)
(let ((constructor (image-type-constructor type)))
(constructor os)))