From mboxrd@z Thu Jan  1 00:00:00 1970
From: ludo@gnu.org (Ludovic =?utf-8?Q?Court=C3=A8s?=)
Subject: Re: List of abbreviations for licenses
Date: Tue, 11 Dec 2012 11:24:48 +0100
Message-ID: <87zk1kdgy7.fsf@gnu.org>
References: <CAD15K4uRCcLfyq9Cbhp8SzvP09iWOK21T8F_H-PfgRTMTjriTA@mail.gmail.com>
	<87vcco2hgr.fsf@gnu.org>
	<CAKr=PyO1M2hFS-T9xhLadYOX=ZO+CHyqCs4SAKGCwBK2-FZvfQ@mail.gmail.com>
	<87hao7zzgr.fsf@gnu.org>
	<CAD15K4t9R9piZeZX7JTXKdBB6_F06m_RPDBVcGwASqkQW0TMFw@mail.gmail.com>
	<87k3stprjs.fsf@gnu.org>
	<CAD15K4shLrDAjngKyuVt354UtcaKwMzQfdH5-4M3aWQqAtK5Pw@mail.gmail.com>
	<87fw3hmoo5.fsf@gnu.org>
	<CAD15K4s_=UWMDZRrgVpNTNL=CdHUXtZeA2cHiGEB5UYbUstbBA@mail.gmail.com>
	<87ehj0l7y1.fsf@gnu.org>
	<CAD15K4vGakE4_ZUsqqXHDaR5cd+7iG00deuuWmLXGpts0cisxg@mail.gmail.com>
	<87624bibqt.fsf@gnu.org>
	<CAD15K4v8bE6ctw-GJx4Fkdox=3ZRP1jq2RpAf3-DGKTpFpbKPQ@mail.gmail.com>
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]:52821)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <ludo@gnu.org>) id 1TiN1E-0007yr-Se
	for bug-guix@gnu.org; Tue, 11 Dec 2012 05:25:02 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <ludo@gnu.org>) id 1TiN18-0006Ub-TC
	for bug-guix@gnu.org; Tue, 11 Dec 2012 05:24:56 -0500
Received: from mail4-relais-sop.national.inria.fr ([192.134.164.105]:42941)
	by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <ludo@gnu.org>)
	id 1TiN18-0006Ty-LY
	for bug-guix@gnu.org; Tue, 11 Dec 2012 05:24:50 -0500
In-Reply-To: <CAD15K4v8bE6ctw-GJx4Fkdox=3ZRP1jq2RpAf3-DGKTpFpbKPQ@mail.gmail.com>
	(Nikita Karetnikov's message of "Tue, 11 Dec 2012 11:24:21 +0300")
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: Nikita Karetnikov <nikita.karetnikov@gmail.com>
Cc: bug-guix@gnu.org

Hi,

Nikita Karetnikov <nikita.karetnikov@gmail.com> skribis:

> There are two ways to fix the problem. We can create new licenses for
> such packages (e.g. 'bzip2'), but it will be tricky. I propose to use
> the following variable instead:
>
> (define bsd-like
>   (license "BSD-like"
>            #f
>           "This is not a real license. It's just a placeholder for
>            packages that use BSD-like licenses which don't fall into the
>            following categories: 'bsd-2', 'bsd-3', and 'bsd-4'. Check the
>            source code for details.")
>
> What do you think?

What about:

  (define* (bsd-style uri #:optional (comment ""))
    (license "BSD-style"
             uri
             (string-append
              "This is a BSD-style, non-copyleft free software license.  "
              "Check the URI for details.  "
              comment)))

So we=E2=80=99d write:

  (package
    (name "bzip2")
    ;; ...
    (license (bsd-style "file://LICENSE"
                        "See LICENSE in the distribution.")))

WDYT?

Ludo=E2=80=99.