ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

image: Add image-type support.

Browse source 
* 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>
This commit is contained in:
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 @@ (define-module (gnu image)
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 @@ (define-record-type* <image>
(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)))