From mboxrd@z Thu Jan  1 00:00:00 1970
From: ludo@gnu.org (Ludovic =?utf-8?Q?Court=C3=A8s?=)
Subject: Re: Error messages and progress report
Date: Thu, 10 Jan 2013 22:14:22 +0100
Message-ID: <87mwwgg2q9.fsf@gnu.org>
References: <201212092101.21170.andreas@enge.fr> <87ip7anqv8.fsf@inria.fr>
	<201301101056.18792.andreas@enge.fr>
	<201301101145.32610.andreas@enge.fr>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
Return-path: <bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([208.118.235.92]:58867)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <ludo@gnu.org>) id 1TtPSG-0001Lp-HE
	for bug-guix@gnu.org; Thu, 10 Jan 2013 16:14:31 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <ludo@gnu.org>) id 1TtPSC-00025C-O8
	for bug-guix@gnu.org; Thu, 10 Jan 2013 16:14:28 -0500
Received: from mail4-relais-sop.national.inria.fr ([192.134.164.105]:6727)
	by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <ludo@gnu.org>)
	id 1TtPSC-00023z-Gk
	for bug-guix@gnu.org; Thu, 10 Jan 2013 16:14:24 -0500
In-Reply-To: <201301101145.32610.andreas@enge.fr> (Andreas Enge's message of
	"Thu, 10 Jan 2013 11:45:32 +0100")
List-Id: Bug reports for GNU Guix <bug-guix.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/bug-guix>,
	<mailto:bug-guix-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/bug-guix>
List-Post: <mailto:bug-guix@gnu.org>
List-Help: <mailto:bug-guix-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/bug-guix>,
	<mailto:bug-guix-request@gnu.org?subject=subscribe>
Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org
Sender: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org
To: Andreas Enge <andreas@enge.fr>
Cc: bug-guix@gnu.org

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-lib=
re-3.3.8-gnu.tar.xz,
> and the file name is so long that the progress counter does not fit into=
=20
> the same line any more. I would suggest to print only the file name after=
=20
> the last "/".

I find it useful to have the server name printed (esp. in the case of
mirror://, ftpmirror.gnu.org, etc.), so I=E2=80=99ve 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.gn=
u.org/gnu/guile/guile-2.0.7.tar.gz"))
$15 =3D "http://www.gnu.org/.../guile-2.0.7.tar.gz"
scheme@(guix build download)> (uri-abbreviation (string->uri "http://www.gn=
u.org/gnu/ed/ed-5.0.tar.gz"))
$16 =3D "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.ta=
r.xz"))
$17 =3D "http://linux-libre.fsfla.org/.../linux-libre-3.3.8-gnu.tar.xz"
--8<---------------cut here---------------end--------------->8---

WDYT?

I=E2=80=99ll commit it if there are no objections.

Ludo=E2=80=99.