licenses: Add 'bsd-style', 'expat', 'gpl1', 'gpl1+', 'lgpl2.0', and 'lgpl2.0+'.

[jackhill/guix/guix.git] / guix / licenses.scm

diff --git a/guix/licenses.scm b/guix/licenses.scm
index 9c1b724..cc2369b 100644 (file)
--- 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,16 @@
            "http://directory.fsf.org/wiki/License:BSD_4Clause"
            "https://www.gnu.org/licenses/license-list#OriginalBSD"))
 
+(define* (bsd-style uri #:optional (comment ""))
+  "Return a BSD-style license, whose full text can be found at URI,
+which may be a file:// URI pointing the package's tree."
+  (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 +104,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 +149,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"