;;; 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-file-system
            partition-label
            partition-uuid
            partition-flags
            partition-initializer

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

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

(define-record-type* <partition> partition make-partition
  partition?
  (device      partition-device (default #f))
  (size        partition-size)
  (file-system partition-file-system (default "ext4"))
  (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?
  (format             image-format) ;symbol
  (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)))
23e011d18460e7ff5553d4ff640f7073075b&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<td><span title='2016-09-01 13:40:49 +0300'>2016-09-01</span></td><td><a href='/guix/commit/tests/hackage.scm?id=7060b28171d217b8091b87b92ee55c15f887e890'>tests: hackage: Fix mock urls.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2016-04-03 14:19:09 +0200'>2016-04-03</span></td><td><a href='/guix/commit/tests/hackage.scm?id=a9edb211e733b8b34e67ec3b4450567e9376986f'>build: Add a Guile custom test driver using SRFI-64.</a><span class='msg-avail'>...</span></td><td>Mathieu Lirzin</td></tr>
<tr><td><span title='2015-11-26 18:17:23 +0100'>2015-11-26</span></td><td><a href='/guix/commit/tests/hackage.scm?id=d3c827e41908f98f2ebb9db4050f2bf7051715e2'>import: hackage: Add new tests.</a><span class='msg-avail'>...</span></td><td>Federico Beffa</td></tr>
<tr><td><span title='2015-06-09 09:48:38 +0200'>2015-06-09</span></td><td><a href='/guix/commit/tests/hackage.scm?id=a4154748730b28fd98ff30d968c755c37802a49a'>import: hackage: Refactor parsing code and add new options.</a><span class='msg-avail'>...</span></td><td>Federico Beffa</td></tr>
<tr><td><span title='2015-04-08 17:31:11 +0200'>2015-04-08</span></td><td><a href='/guix/commit/tests/hackage.scm?id=b29455cfe7440e08f485eabc7a9335a856cacab8'>import: Add hackage importer.</a><span class='msg-avail'>...</span></td><td>Federico Beffa</td></tr>
ine/ssh.scm?id=2617d956d8ae122128a1ba2cc74983cbd683b042'>machine: ssh: Deprecate missing 'host-key' field.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-12-04 18:16:08 +0100'>2019-12-04</span></td><td><a href='/guix/commit/gnu/machine/ssh.scm?id=ed15dfcf31ec35c58f5a44d1d8adf5048da67ea6'>machine: ssh: &lt;machine-ssh-configuration&gt; can include the host key.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-08-17 20:45:13 +0800'>2019-08-17</span></td><td><a href='/guix/commit/gnu/machine/ssh.scm?id=02460db0474ff5ac0d867ed6d5b192c062af0abc'>machine: ssh: Fix sanity checks.</a><span class='msg-avail'>...</span></td><td>宋文武</td></tr>
<tr><td><span title='2019-08-16 08:47:28 -0400'>2019-08-16</span></td><td><a href='/guix/commit/gnu/machine/ssh.scm?id=4cc5e5204b503afb4536a1e93e2fd7a9f57f12bf'>machine: Use 'become-command'.</a><span class='msg-avail'>...</span></td><td>Jakob L. Kreuze</td></tr>
<tr><td><span title='2019-08-15 07:43:13 -0400'>2019-08-15</span></td><td><a href='/guix/commit/gnu/machine/ssh.scm?id=3033d59ac9a747b42a1fa6ca6664d4fbc62ca117'>machine: Automatically authorize the coordinator's signing key.</a><span class='msg-avail'>...</span></td><td>Jakob L. Kreuze</td></tr>
<tr><td><span title='2019-08-15 07:43:09 -0400'>2019-08-15</span></td><td><a href='/guix/commit/gnu/machine/ssh.scm?id=9c70c460a05b2bc60f3f3602f0a2dba0f79ce86c'>machine: Implement 'roll-back-machine'.</a><span class='msg-avail'>...</span></td><td>Jakob L. Kreuze</td></tr>
<tr><td><span title='2019-08-15 07:43:03 -0400'>2019-08-15</span></td><td><a href='/guix/commit/gnu/machine/ssh.scm?id=5ea7537b9a650cfa525401c19879080a9cf42e13'>machine: Allow non-root users to deploy.</a><span class='msg-avail'>...</span></td><td>Jakob L. Kreuze</td></tr>
<tr><td><span title='2019-08-14 15:38:09 -0400'>2019-08-14</span></td><td><a href='/guix/commit/gnu/machine/ssh.scm?id=2c8e04f13670c8c7ad8c7195c305960dd1905363'>remote: Build derivations appropriate for the remote's</a><span class='msg-avail'>...</span></td><td>Jakob L. Kreuze</td></tr>
<tr><td><span title='2019-08-07 18:29:07 -0400'>2019-08-07</span></td><td><a href='/guix/commit/gnu/machine/ssh.scm?id=d84e9b75b2aba98583531f2876d9298871389585'>machine: Add 'build-locally?' field for managed hosts.</a><span class='msg-avail'>...</span></td><td>Jakob L. Kreuze</td></tr>
<tr><td><span title='2019-08-06 16:40:25 -0400'>2019-08-06</span></td><td><a href='/guix/commit/gnu/machine/ssh.scm?id=fd3119db4fed02a1f3491460be776a3b5d2b2cd3'>machine: Implement safety checks.</a><span class='msg-avail'>...</span></td><td>Jakob L. Kreuze</td></tr>
<tr><td><span title='2019-08-06 15:48:51 -0400'>2019-08-06</span></td><td><a href='/guix/commit/gnu/machine/ssh.scm?id=d97ce20400b5d2967bfbc0e9fbfb99bbb2daed4f'>machine: Rename 'system' field.</a><span class='msg-avail'>...</span></td><td>Jakob L. Kreuze</td></tr>
<tr><td><span title='2019-07-26 19:19:49 +0200'>2019-07-26</span></td><td><a href='/guix/commit/gnu/machine/ssh.scm?id=5c793753b31b1dcd9a554bce953124f7ae88ca9a'>guix system: Add 'reconfigure' module.</a><span class='msg-avail'>...</span></td><td>Jakob L. Kreuze</td></tr>
<tr><td><span title='2019-07-18 12:57:00 +0200'>2019-07-18</span></td><td><a href='/guix/commit/gnu/machine/ssh.scm?id=53f21b3fe9ed57f0feef003185b561efc9b3e30c'>machine: Fix typo.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>