From d06bfdf01e5b59d3ce377b8634919c889a39c9e2 Mon Sep 17 00:00:00 2001
From: Nikita Karetnikov <address@hidden>
Date: Wed, 12 Dec 2012 05:41:53 +0000
Subject: [PATCH] licenses: Add 'bsd-style', 'expat', 'gpl1', 'gpl1+',
 'lgpl2.0', and 'lgpl2.0+'.

* guix/licenses.scm (bsd-style, expat, gpl1, gpl1+)
  (lgpl2.0, lgpl2.0+): New variables.
---
 guix/licenses.scm |   40 +++++++++++++++++++++++++++++++++++++---
 1 files changed, 37 insertions(+), 3 deletions(-)

diff --git a/guix/licenses.scm b/guix/licenses.scm
index 9c1b724..5284f8c 100644
--- a/guix/licenses.scm
+++ b/guix/licenses.scm
@@ -22,14 +22,15 @@
   #:export (license? license-name license-uri license-comment
             asl2.0
             boost1.0
-            bsd-2 bsd-3 bsd-4
+            bsd-2 bsd-3 bsd-4 bsd-style
             cddl1.0
             cpl1.0
             epl1.0
-            gpl2 gpl2+ gpl3 gpl3+
+            expat
+            gpl1 gpl1+ gpl2 gpl2+ gpl3 gpl3+
             ijg
             ibmpl1.0
-            lgpl2.1 lgpl2.1+ lgpl3 lgpl3+
+            lgpl2.0 lgpl2.0+ lgpl2.1 lgpl2.1+ lgpl3 lgpl3+
             mpl2.0
             openssl
             public-domain
@@ -78,6 +79,14 @@
            "http://directory.fsf.org/wiki/License:BSD_4Clause"
            "https://www.gnu.org/licenses/license-list#OriginalBSD"))
 
+(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)))
+
 (define cddl1.0
   (license "CDDL 1.0"
            "http://directory.fsf.org/wiki/License:CDDLv1.0"
@@ -93,6 +102,21 @@
            "http://directory.fsf.org/wiki/License:EPLv1.0"
            "https://www.gnu.org/licenses/license-list#EPL"))
 
+(define expat
+  (license "Expat"
+           "http://directory.fsf.org/wiki/License:Expat"
+           "https://www.gnu.org/licenses/license-list.html#Expat"))
+
+(define gpl1
+  (license "GPL 1"
+           "https://www.gnu.org/licenses/old-licenses/gpl-1.0.html"
+           #f))
+
+(define gpl1+
+  (license "GPL 1+"
+           "https://www.gnu.org/licenses/old-licenses/gpl-1.0.html"
+           #f))
+
 (define gpl2
   (license "GPL 2"
            "https://www.gnu.org/licenses/old-licenses/gpl-2.0.html"
@@ -123,6 +147,16 @@
            "http://directory.fsf.org/wiki/License:IBMPLv1.0"
            "https://www.gnu.org/licenses/license-list#IBMPL"))
 
+(define lgpl2.0
+  (license "LGPL 2.0"
+           "https://www.gnu.org/licenses/old-licenses/lgpl-2.0.html"
+           "https://www.gnu.org/licenses/why-not-lgpl.html"))
+
+(define lgpl2.0+
+  (license "LGPL 2.0+"
+           "https://www.gnu.org/licenses/old-licenses/lgpl-2.0.html"
+           "https://www.gnu.org/licenses/why-not-lgpl.html"))
+
 (define lgpl2.1
   (license "LGPL 2.1"
            "https://www.gnu.org/licenses/old-licenses/lgpl-2.1.html"
-- 
1.7.5.4