;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu image)
  #:use-module (guix records)
  #:export (partition
            partition?
            partition-device
            partition-size
            partition-offset
            partition-file-system
            partition-file-system-options
            partition-label
            partition-uuid
            partition-flags
            partition-initializer

            image
            image-name
            image-format
            image-target
            image-size
            image-operating-system
            image-partitions
            image-compression?
            image-volatile-root?
            image-substitutable?

            image-type
            image-type?
            image-type-name
            image-type-constructor

            os->image))


;;;
;;; Partition record.
;;;

(define-record-type* <partition> partition make-partition
  partition?
  (device               partition-device (default #f))
  (size                 partition-size)
  (offset               partition-offset (default 0))
  (file-system          partition-file-system (default "ext4"))
  (file-system-options  partition-file-system-options
                        (default '()))
  (label                partition-label (default #f))
  (uuid                 partition-uuid (default #f))
  (flags                partition-flags (default '()))
  (initializer          partition-initializer (default #f)))


;;;
;;; Image record.
;;;

(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>
                      (default #f))
  (partitions         image-partitions ;list of <partition>
                      (default '()))
  (compression?       image-compression? ;boolean
                      (default #t))
  (volatile-root?     image-volatile-root? ;boolean
                      (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)))
7fb2c58b829b9d0'>monads: Add 'mparameterize'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-07-10 01:03:56 -0400'>2022-07-10</span></td><td><a href='/guix/commit/.dir-locals.el?id=c9fb789fe9eaa5dc0694ef14fe36e5aa821a646c'>.dir-locals.el: Restore Emacs 27 lisp-fill-paragraph behavior.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-06-28 00:37:34 -0400'>2022-06-28</span></td><td><a href='/guix/commit/.dir-locals.el?id=b5e85191f96691b00f3612965e6edc09003c61a7'>.dir-locals.el: Properly indent 'wrap-script'.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-06-07 18:29:12 +0200'>2022-06-07</span></td><td><a href='/guix/commit/.dir-locals.el?id=6764455a4b310c9e910c82f5cc87c8714e675f78'>.dir-locals: Adjust to bug-reference-mode in Emacs 28.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-03-06 22:49:47 +0100'>2022-03-06</span></td><td><a href='/guix/commit/.dir-locals.el?id=a8d3033da61958c53c44dd5db90672bfc4533ef9'>import: github: Reuse HTTP connection for the /tags URL fallback.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-03-06 22:49:46 +0100'>2022-03-06</span></td><td><a href='/guix/commit/.dir-locals.el?id=049aefddb2c88dd256a0705683a75704ff830b01'>tests: Add (guix http-client) tests.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-01-29 08:47:38 +0100'>2022-01-29</span></td><td><a href='/guix/commit/.dir-locals.el?id=69218e84f119c698a06febe030946f1eca571e2c'>.dir-locals.el: Don't mess up indentation of prepend and append.</a><span class='msg-avail'>...</span></td><td>Liliana Marie Prikler</td></tr>
<tr><td><span title='2021-08-12 00:30:27 +0200'>2021-08-12</span></td><td><a href='/guix/commit/.dir-locals.el?id=c4133c43c7cfe2476ebfae87f9e4d10d96de9bc7'>Merge branch 'master' into core-updates-frozen</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2021-08-02 14:16:22 -0400'>2021-08-02</span></td><td><a href='/guix/commit/.dir-locals.el?id=6b9bebbb3d4210f2efe8e40bc83bcf60ec673512'>.dir-locals.el: Specify indentation rule for with-shepherd-action.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-07-18 19:50:01 +0200'>2021-07-18</span></td><td><a href='/guix/commit/.dir-locals.el?id=0e47fcced442d8e7c1b05184fdc1c14f10ed04ec'>Merge branch 'master' into core-updates</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-07-11 00:49:14 +0200'>2021-07-11</span></td><td><a href='/guix/commit/.dir-locals.el?id=04b2f3dd80aa4a138e93a6a4a209c1beac5fca88'>packages: Add 'modify-inputs'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-06-29 14:53:21 -0400'>2021-06-29</span></td><td><a href='/guix/commit/.dir-locals.el?id=82daab42811a2e3c7684ebdf12af75ff0fa67b99'>pack: Add support for the deb format.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-03-30 22:48:43 +0200'>2021-03-30</span></td><td><a href='/guix/commit/.dir-locals.el?id=7d873f194ca69d6096d28d7a224ab78e83e34fe1'>build-system: Rewrite using gexps.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>