[bug#49149] [PATCH 0/7] Add deb format for guix pack.

[Ludovic Courtès]

Maxim Cournoyer <maxim.cournoyer@gmail.com> skribis:

> Instead of just naming them by their pack type, add information from the
> package(s) they contain to make it easier to differentiate them.
>
> * guix/scripts/pack.scm (define-with-source): New macro.
> (manifest->friendly-name): Extract procedure from ...
> (docker-image): ... here, now defined via the above macro.  Adjust REPOSITORY
> argument value accordingly.
> (guix-pack): Derive NAME using MANIFEST->FRIENDLY-NAME.

[...]

> -            (define tag
> -              ;; Compute a meaningful "repository" name, which will show up 
> in
> -              ;; the output of "docker images".
> -              (let ((manifest (profile-manifest #$profile)))
> -                (let loop ((names (map manifest-entry-name
> -                                       (manifest-entries manifest))))
> -                  (define str (string-join names "-"))
> -                  (if (< (string-length str) 40)
> -                      str
> -                      (match names
> -                        ((_) str)
> -                        ((names ... _) (loop names))))))) ;drop one entry

I think this should not be factorized because the requirements are very
Docker-dependent.  Once factorized, it becomes easy to overlook this.

Ludo’.