Re: Error messages and progress report

[ludo@gnu.org (Ludovic Courtès)]

Andreas Enge <andreas@enge.fr> skribis:

> Well, it could be slightly improved. I am just downloading
> http://linux-libre.fsfla.org/pub/linux-libre/releases/3.3.8-gnu/linux-libre-3.3.8-gnu.tar.xz,
> and the file name is so long that the progress counter does not fit into 
> the same line any more. I would suggest to print only the file name after 
> the last "/".

I find it useful to have the server name printed (esp. in the case of
mirror://, ftpmirror.gnu.org, etc.), so I’ve come up with a solution
that abbreviates long URIs like this:

--8<---------------cut here---------------start------------->8---
scheme@(guix build download)> (uri-abbreviation (string->uri "http://www.gnu.org/gnu/guile/guile-2.0.7.tar.gz"))
$15 = "http://www.gnu.org/.../guile-2.0.7.tar.gz"
scheme@(guix build download)> (uri-abbreviation (string->uri "http://www.gnu.org/gnu/ed/ed-5.0.tar.gz"))
$16 = "http://www.gnu.org/gnu/ed/ed-5.0.tar.gz"
scheme@(guix build download)> (uri-abbreviation (string->uri "http://linux-libre.fsfla.org/pub/linux-libre/releases/3.3.8-gnu/linux-libre-3.3.8-gnu.tar.xz"))
$17 = "http://linux-libre.fsfla.org/.../linux-libre-3.3.8-gnu.tar.xz"
--8<---------------cut here---------------end--------------->8---

WDYT?

I’ll commit it if there are no objections.

Ludo’.