From: Roel Janssen <roel@gnu.org>
To: "Ludovic Courtès" <ludo@gnu.org>
Cc: guix-devel <guix-devel@gnu.org>
Subject: Re: Creating Docker containers in Scheme
Date: Wed, 08 Nov 2017 10:38:17 +0100 [thread overview]
Message-ID: <87h8u5yut2.fsf@gnu.org> (raw)
In-Reply-To: <87d14tw456.fsf@gnu.org>
Ludovic Courtès writes:
> Hi,
>
> Roel Janssen <roel@gnu.org> skribis:
>
>> I'd like to create a Docker container from Scheme. Looking at
>> guix/scripts/pack.scm, I believe something like this should be possible:
>>
>> (docker-image "my-container"
>> (profile-derivation
>> (packages->manifest (list hello coreutils))))
>
> Move precisely:
>
> (mlet %store-monad ((profile (profile-derivation …)))
> (docker-image "my-container" profile))
>
Oh, of course! :)
Unfortunately, I cannot seem to get it to work.
Here's what I do (mind the GWL process- stuff):
--8<---------------cut here---------------start------------->8---
(define* (process->docker-derivation proc #:key (guile (default-guile)))
"Return a Docker container that can run the PROCEDURE described in PROC, with
PROCEDURE's imported modules in its search path."
(let ((name (process-full-name proc))
(exp (process-procedure proc))
(out (process-output-path proc))
(packages (process-package-inputs proc)))
(let ((out-str (if out (format #f "(setenv \"out\" ~s)" out) "")))
(mlet %store-monad ((set-load-path
(load-path-expression (gexp-modules exp)))
(container (docker-image
(string-append (process-full-name proc)
"-docker")
(profile-derivation
(packages->manifest packages)))))
(gexp->derivation
name
(gexp
(call-with-output-file (ungexp output)
(lambda (port)
(format port "# Docker image: ~a~%" (ungexp container)))))
#:graft? #f)))))
--8<---------------cut here---------------end--------------->8---
And the error I get is:
wrong-type-arg: string-prefix?
Is there anything obviously wrong here?
>> Is this something we could add to the the public interface of a module?
>
> Sure. For now the easiest solution would be to export ‘docker-image’
> from (guix scripts pack).
>
> Longer-term, we could rename (guix docker) to (guix build docker) and
> move ‘docker-image’ to a new (guix docker) module, but perhaps we’d also
> need a (guix pack) modules containing tools that are shared between the
> docker and tarball backends of ‘guix pack’.
>
> WDYT?
It'd be nice to keep the (guix scripts ...) small, and only do
command-line handling. So I think a (guix build docker), and a (guix
pack) module would be good.
>
> Ludo’.
Thanks for your time!
Kind regards,
Roel Janssen
next prev parent reply other threads:[~2017-11-08 9:38 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2017-11-02 15:15 Creating Docker containers in Scheme Roel Janssen
2017-11-08 8:44 ` Ludovic Courtès
2017-11-08 9:38 ` Roel Janssen [this message]
2017-11-08 13:55 ` Ludovic Courtès
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://guix.gnu.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87h8u5yut2.fsf@gnu.org \
--to=roel@gnu.org \
--cc=guix-devel@gnu.org \
--cc=ludo@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).