Andreas Enge <[email protected]> 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’.
