From mboxrd@z Thu Jan  1 00:00:00 1970
Received: from eggs.gnu.org ([2001:4830:134:3::10]:54781)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1dQswA-0003ug-FI
	for guix-patches@gnu.org; Fri, 30 Jun 2017 06:14:07 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1dQsw7-0002f6-Bv
	for guix-patches@gnu.org; Fri, 30 Jun 2017 06:14:06 -0400
Received: from debbugs.gnu.org ([208.118.235.43]:42815)
	by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16)
	(Exim 4.71) (envelope-from <Debian-debbugs@debbugs.gnu.org>)
	id 1dQsw7-0002ed-7y
	for guix-patches@gnu.org; Fri, 30 Jun 2017 06:14:03 -0400
Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1dQsw6-0002TZ-Q4
	for guix-patches@gnu.org; Fri, 30 Jun 2017 06:14:02 -0400
Subject: [bug#27521] [PATCH v5] build: Add iso9660 system image generator.
Resent-Message-ID: <handler.27521.B27521.14988176029455@debbugs.gnu.org>
Date: Fri, 30 Jun 2017 12:13:17 +0200
From: Danny Milosavljevic <dannym@scratchpost.org>
Message-ID: <20170630121317.7be32e14@scratchpost.org>
In-Reply-To: <20170629134707.12576-1-dannym@scratchpost.org>
References: <20170629020954.22464-1-dannym@scratchpost.org>
	<20170629134707.12576-1-dannym@scratchpost.org>
MIME-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
List-Id: <guix-patches.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/guix-patches>,
	<mailto:guix-patches-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/guix-patches/>
List-Post: <mailto:guix-patches@gnu.org>
List-Help: <mailto:guix-patches-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/guix-patches>,
	<mailto:guix-patches-request@gnu.org?subject=subscribe>
Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org
Sender: "Guix-patches" <guix-patches-bounces+kyle=kyleam.com@gnu.org>
To: 27521@debbugs.gnu.org

> +(define* (iso9660-image #:key
[...]

> +           (mkdir-p "/tmp")

Also works without this.

> +           ;(mount "none" "/tmp" "tmpfs")

No idea why I don't have to do this. But it works.

> +           ;(mkdir-p "/tmp/extra")

> diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
> index 35675cc01..da0f5b04b 100644
> --- a/guix/scripts/system.scm
> +++ b/guix/scripts/system.scm
> @@ -578,7 +578,9 @@ PATTERN, a string.  When PATTERN is #f, display all the system generations."
>                                                  (* 70 (expt 2 20)))
>                                              #:mappings mappings))
>      ((disk-image)
> -     (system-disk-image os #:disk-image-size image-size))))
> +     (system-disk-image os #:disk-image-size image-size))
> +    ((iso9660-disk-image)
> +     (system-disk-image os #:file-system-type "iso9660"))))

If we wanted, we also could replace disk-image by iso9660-disk-image entirely.  It should also boot from USB (and from floppy if it fits there).

Do we want to?