guix/licenses.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2012, 2014, 2015, 2017 Ludovic Courtès <ludo@gnu.org>
   3 ;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
   4 ;;; Copyright © 2012, 2013 Nikita Karetnikov <nikita@karetnikov.org>
   5 ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
   6 ;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
   7 ;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
   8 ;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
   9 ;;; Copyright © 2016 Fabian Harfert <fhmgufs@web.de>
  10 ;;; Copyright © 2016 Rene Saavedra <rennes@openmailbox.org>
  11 ;;; Copyright © 2016, 2017 ng0 <ng0@libertad.pw>
  12 ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
  13 ;;; Copyright © 2017 Petter <petter@mykolab.ch>
  14 ;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
  15 ;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
  16 ;;;
  17 ;;; This file is part of GNU Guix.
  18 ;;;
  19 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  20 ;;; under the terms of the GNU General Public License as published by
  21 ;;; the Free Software Foundation; either version 3 of the License, or (at
  22 ;;; your option) any later version.
  23 ;;;
  24 ;;; GNU Guix is distributed in the hope that it will be useful, but
  25 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  26 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  27 ;;; GNU General Public License for more details.
  28 ;;;
  29 ;;; You should have received a copy of the GNU General Public License
  30 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  31
  32 (define-module (guix licenses)
  33   #:use-module (srfi srfi-9)
  34   #:export (license? license-name license-uri license-comment
  35             agpl1 agpl3 agpl3+
  36             asl1.1 asl2.0
  37             boost1.0
  38             bsd-2 bsd-3 bsd-4
  39             non-copyleft
  40             bsd-style                             ;deprecated!
  41             cc0
  42             cc-by2.0 cc-by3.0 cc-by4.0
  43             cc-by-sa2.0 cc-by-sa3.0 cc-by-sa4.0
  44             cc-sampling-plus-1.0
  45             cddl1.0 cddl1.1
  46             cecill cecill-b cecill-c
  47             artistic2.0 clarified-artistic
  48             copyleft-next
  49             cpl1.0
  50             edl1.0
  51             epl1.0
  52             expat
  53             freetype
  54             freebsd-doc
  55             giftware
  56             gpl1 gpl1+ gpl2 gpl2+ gpl3 gpl3+
  57             gfl1.0
  58             fdl1.1+ fdl1.2+ fdl1.3+
  59             opl1.0+
  60             isc
  61             ijg
  62             ibmpl1.0
  63             imlib2
  64             ipa
  65             knuth
  66             lgpl2.0 lgpl2.0+ lgpl2.1 lgpl2.1+ lgpl3 lgpl3+
  67             lppl lppl1.0+ lppl1.2 lppl1.2+
  68             lppl1.3 lppl1.3+
  69             lppl1.3a lppl1.3a+
  70             lppl1.3b lppl1.3b+
  71             lppl1.3c lppl1.3c+
  72             miros
  73             mpl1.0 mpl1.1 mpl2.0
  74             ms-pl
  75             ncsa
  76             nmap
  77             openldap2.8 openssl
  78             perl-license
  79             psfl public-domain
  80             qpl
  81             repoze
  82             ruby
  83             sgifreeb2.0
  84             silofl1.1
  85             sleepycat
  86             tcl/tk
  87             unlicense
  88             vim
  89             x11 x11-style
  90             zpl2.1
  91             zlib
  92             fsf-free
  93             wtfpl2
  94             fsdg-compatible))
  95
  96 (define-record-type <license>
  97   (license name uri comment)
  98   license?
  99   (name    license-name)
 100   (uri     license-uri)
 101   (comment license-comment))
 102
 103 ;;; Commentary:
 104 ;;;
 105 ;;; Available licenses.
 106 ;;;
 107 ;;; This list is based on these links:
 108 ;;; https://github.com/NixOS/nixpkgs/blob/master/lib/licenses.nix
 109 ;;; https://www.gnu.org/licenses/license-list
 110 ;;;
 111 ;;; Code:
 112
 113 (define agpl1
 114   (license "AGPL 1"
 115            "https://gnu.org/licenses/agpl.html"
 116            "https://gnu.org/licenses/why-affero-gpl.html"))
 117
 118 (define agpl3
 119   (license "AGPL 3"
 120            "https://gnu.org/licenses/agpl.html"
 121            "https://gnu.org/licenses/why-affero-gpl.html"))
 122
 123 (define agpl3+
 124   (license "AGPL 3+"
 125            "https://gnu.org/licenses/agpl.html"
 126            "https://gnu.org/licenses/why-affero-gpl.html"))
 127
 128 (define asl1.1
 129   (license "ASL 1.1"
 130            "http://directory.fsf.org/wiki/License:Apache1.1"
 131            "https://www.gnu.org/licenses/license-list#apache1"))
 132
 133 (define asl2.0
 134   (license "ASL 2.0"
 135            "http://directory.fsf.org/wiki/License:Apache2.0"
 136            "https://www.gnu.org/licenses/license-list#apache2"))
 137
 138 (define boost1.0
 139   (license "Boost 1.0"
 140            "http://directory.fsf.org/wiki/License:Boost1.0"
 141            "https://www.gnu.org/licenses/license-list#boost"))
 142
 143 (define bsd-2
 144   (license "FreeBSD"
 145            "http://directory.fsf.org/wiki/License:FreeBSD"
 146            "https://www.gnu.org/licenses/license-list#FreeBSD"))
 147
 148 (define bsd-3
 149   (license "Modified BSD"
 150            "http://directory.fsf.org/wiki/License:BSD_3Clause"
 151            "https://www.gnu.org/licenses/license-list#ModifiedBSD"))
 152
 153 (define bsd-4
 154   (license "Original BSD"
 155            "http://directory.fsf.org/wiki/License:BSD_4Clause"
 156            "https://www.gnu.org/licenses/license-list#OriginalBSD"))
 157
 158 (define* (non-copyleft uri #:optional (comment ""))
 159   "Return a lax, permissive, non-copyleft license (for example a variant of
 160 the 3-clause BSD license or the Expat license), whose full text can be found
 161 at URI, which may be a file:// URI pointing the package's tree."
 162   (license "non-copyleft"
 163            uri
 164            (string-append
 165             "This is a lax, non-copyleft free software license.  "
 166             "Check the URI for details.  "
 167             comment)))
 168
 169 (define bsd-style
 170   ;; This alias is kept for backward-compatibility.  Do not use it for new
 171   ;; packages: it is ambiguous, as rightfully explained at
 172   ;; <http://www.gnu.org/philosophy/words-to-avoid.html#BSD-style>.
 173   non-copyleft)
 174
 175 (define cc0
 176   (license "CC0"
 177            "http://directory.fsf.org/wiki/License:CC0"
 178            "http://www.gnu.org/licenses/license-list.html#CC0"))
 179
 180 (define cc-by-sa4.0
 181   (license "CC-BY-SA 4.0"
 182            "http://creativecommons.org/licenses/by-sa/4.0/"
 183            "Creative Commons Attribution-ShareAlike 4.0 International"))
 184
 185 (define cc-by-sa3.0
 186   (license "CC-BY-SA 3.0"
 187            "http://creativecommons.org/licenses/by-sa/3.0/"
 188            "Creative Commons Attribution-ShareAlike 3.0 Unported"))
 189
 190 (define cc-by-sa2.0
 191   (license "CC-BY-SA 2.0"
 192            "http://creativecommons.org/licenses/by-sa/2.0/"
 193            "Creative Commons Attribution-ShareAlike 2.0 Generic"))
 194
 195 (define cc-by4.0
 196   (license "CC-BY 4.0"
 197            "http://creativecommons.org/licenses/by/4.0/"
 198            "Creative Commons Attribution 4.0 Unported"))
 199
 200 (define cc-by3.0
 201   (license "CC-BY 3.0"
 202            "http://creativecommons.org/licenses/by/3.0/"
 203            "Creative Commons Attribution 3.0 Unported"))
 204
 205 (define cc-by2.0
 206   (license "CC-BY 2.0"
 207            "http://creativecommons.org/licenses/by/2.0/"
 208            "Creative Commons Attribution 2.0 Generic"))
 209
 210 (define cc-sampling-plus-1.0
 211   (license "CC-Sampling+ 1.0"
 212            "https://creativecommons.org/licenses/sampling+/1.0"
 213            "Creative Commons Sampling Plus 1.0"))
 214
 215 (define cddl1.0
 216   (license "CDDL 1.0"
 217            "http://directory.fsf.org/wiki/License:CDDLv1.0"
 218            "https://www.gnu.org/licenses/license-list#CDDL"))
 219
 220 ;; CDDL1.1 is the same as 1.0, except that "Sun Microsystems, Inc" becomes "Oracle",
 221 ;; "LOST PROFITS" becoms "LOSS OF GOODWILL" and a section is added between 6.2
 222 ;; and 6.3.
 223 (define cddl1.1
 224   (license "CDDL 1.1"
 225            "https://oss.oracle.com/licenses/CDDL+GPL-1.1"
 226            "https://www.gnu.org/licenses/license-list#CDDL"))
 227
 228 (define cecill                                    ;copyleft
 229   (license "CeCILL"
 230            "http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.html"
 231            "https://www.gnu.org/licenses/license-list.html#CeCILL"))
 232
 233 (define cecill-b                                  ;non-copyleft
 234   (license "CeCILL-B"
 235            "http://www.cecill.info/licences/Licence_CeCILL-B_V1-en.html"
 236            "https://www.gnu.org/licenses/license-list.html#CeCILL"))
 237
 238 (define cecill-c                                  ;weak copyleft
 239   (license "CeCILL-C"
 240            "http://www.cecill.info/licences/Licence_CeCILL-C_V1-en.html"
 241            "https://www.gnu.org/licenses/license-list.html#CeCILL"))
 242
 243 (define artistic2.0
 244   (license "Artistic License 2.0"
 245            "http://www.perlfoundation.org/artistic_license_2_0"
 246            "http://www.gnu.org/licenses/license-list.html#ArtisticLicense2"))
 247
 248 (define clarified-artistic
 249   (license "Clarified Artistic"
 250            ;; http://directory.fsf.org/wiki/User:Jgay/license-categorization#Clarified_Artistic_License
 251            "http://gianluca.dellavedova.org/2011/01/03/clarified-artistic-license/"
 252            "https://www.gnu.org/licenses/license-list.html#ArtisticLicense2"))
 253
 254 (define copyleft-next
 255   (license "copyleft-next"
 256            "https://raw.github.com/richardfontana/copyleft-next/master/Releases/copyleft-next-0.3.0"
 257            "GPL-compatible copyleft license"))
 258
 259 (define cpl1.0
 260   (license "CPL 1.0"
 261            "http://directory.fsf.org/wiki/License:CPLv1.0"
 262            "https://www.gnu.org/licenses/license-list#CommonPublicLicense10"))
 263
 264 (define edl1.0
 265   (license "EDL 1.0"
 266            "http://directory.fsf.org/wiki/License:EDLv1.0"
 267            "https://eclipse.org/org/documents/edl-v10.php"))
 268
 269 (define epl1.0
 270   (license "EPL 1.0"
 271            "http://directory.fsf.org/wiki/License:EPLv1.0"
 272            "https://www.gnu.org/licenses/license-list#EPL"))
 273
 274 (define expat
 275   (license "Expat"
 276            "http://directory.fsf.org/wiki/License:Expat"
 277            "https://www.gnu.org/licenses/license-list.html#Expat"))
 278
 279 (define freetype
 280   (license "Freetype"
 281            "http://directory.fsf.org/wiki/License:Freetype"
 282            "https://www.gnu.org/licenses/license-list.html#freetype"))
 283
 284 (define giftware
 285   (license "Giftware"
 286            "http://liballeg.org/license.html"
 287            "The Allegro 4 license"))
 288
 289 (define gpl1
 290   (license "GPL 1"
 291            "https://www.gnu.org/licenses/old-licenses/gpl-1.0.html"
 292            #f))
 293
 294 (define gpl1+
 295   (license "GPL 1+"
 296            "https://www.gnu.org/licenses/old-licenses/gpl-1.0.html"
 297            #f))
 298
 299 (define gpl2
 300   (license "GPL 2"
 301            "https://www.gnu.org/licenses/old-licenses/gpl-2.0.html"
 302            "https://www.gnu.org/licenses/license-list#GPLv2"))
 303
 304 (define gpl2+
 305   (license "GPL 2+"
 306            "https://www.gnu.org/licenses/old-licenses/gpl-2.0.html"
 307            "https://www.gnu.org/licenses/license-list#GPLv2"))
 308
 309 (define gpl3
 310   (license "GPL 3"
 311            "https://www.gnu.org/licenses/gpl.html"
 312            "https://www.gnu.org/licenses/license-list#GNUGPLv3"))
 313
 314 (define gpl3+
 315   (license "GPL 3+"
 316            "https://www.gnu.org/licenses/gpl.html"
 317            "https://www.gnu.org/licenses/license-list#GNUGPLv3"))
 318
 319 ;; The “GUST font license” is legally equivalent to LPPL v1.3c as it only
 320 ;; extends the LPPL with an optional request.
 321 (define gfl1.0
 322   (license "GUST font license 1.0"
 323            "http://www.gust.org.pl/projects/e-foundry/licenses/GUST-FONT-LICENSE.txt"
 324            "https://www.gnu.org/licenses/license-list#LPPL-1.3a"))
 325
 326 (define fdl1.1+
 327   (license "FDL 1.1+"
 328            "https://www.gnu.org/licenses/fdl-1.1"
 329            "https://www.gnu.org/licenses/license-list#FDL"))
 330
 331 (define fdl1.2+
 332   (license "FDL 1.2+"
 333            "https://www.gnu.org/licenses/fdl-1.2"
 334            "https://www.gnu.org/licenses/license-list#FDL"))
 335
 336 (define fdl1.3+
 337   (license "FDL 1.3+"
 338            "https://www.gnu.org/licenses/fdl.html"
 339            "https://www.gnu.org/licenses/license-list#FDL"))
 340
 341 (define freebsd-doc
 342   (license "FreeBSD Documentation License"
 343            "https://www.freebsd.org/copyright/freebsd-doc-license.html"
 344            "https://www.gnu.org/licenses/license-list.html#FreeBSDDL"))
 345
 346 (define opl1.0+
 347   (license "Open Publication License 1.0 or later"
 348            "http://opencontent.org/openpub/"
 349            "https://www.gnu.org/licenses/license-list#OpenPublicationL"))
 350
 351 (define isc
 352   (license "ISC"
 353            "http://directory.fsf.org/wiki/License:ISC"
 354            "https://www.gnu.org/licenses/license-list.html#ISC"))
 355
 356 (define ijg
 357   (license "IJG"
 358            "http://directory.fsf.org/wiki/License:JPEG"
 359            "https://www.gnu.org/licenses/license-list#ijg"))
 360
 361 (define ibmpl1.0
 362   (license "IBMPL 1.0"
 363            "http://directory.fsf.org/wiki/License:IBMPLv1.0"
 364            "https://www.gnu.org/licenses/license-list#IBMPL"))
 365
 366 (define imlib2
 367   (license "Imlib2"
 368            "http://directory.fsf.org/wiki/License:Imlib2"
 369            "https://www.gnu.org/licenses/license-list#imlib"))
 370
 371 (define ipa
 372   (license "IPA Font License"
 373            "http://directory.fsf.org/wiki/License:IPA_Font_License"
 374            "https://www.gnu.org/licenses/license-list#IPAFONT"))
 375
 376 (define knuth
 377   (license "Donald Knuth's license for TeX"
 378            "http://www.ctan.org/license/knuth"
 379            "Modification are only permitted under a different name."))
 380
 381 (define lgpl2.0
 382   (license "LGPL 2.0"
 383            "https://www.gnu.org/licenses/old-licenses/lgpl-2.0.html"
 384            "https://www.gnu.org/licenses/why-not-lgpl.html"))
 385
 386 (define lgpl2.0+
 387   (license "LGPL 2.0+"
 388            "https://www.gnu.org/licenses/old-licenses/lgpl-2.0.html"
 389            "https://www.gnu.org/licenses/why-not-lgpl.html"))
 390
 391 (define lgpl2.1
 392   (license "LGPL 2.1"
 393            "https://www.gnu.org/licenses/old-licenses/lgpl-2.1.html"
 394            "https://www.gnu.org/licenses/license-list#LGPLv2.1"))
 395
 396 (define lgpl2.1+
 397   (license "LGPL 2.1+"
 398            "https://www.gnu.org/licenses/old-licenses/lgpl-2.1.html"
 399            "https://www.gnu.org/licenses/license-list#LGPLv2.1"))
 400
 401 (define lgpl3
 402   (license "LGPL 3"
 403            "https://www.gnu.org/licenses/lgpl.html"
 404            "https://www.gnu.org/licenses/license-list#LGPLv3"))
 405
 406 (define lgpl3+
 407   (license "LGPL 3+"
 408            "https://www.gnu.org/licenses/lgpl.html"
 409            "https://www.gnu.org/licenses/license-list#LGPLv3"))
 410
 411 (define lppl
 412   (license "LPPL (any version)"
 413            "https://www.latex-project.org/lppl/lppl-1-0/"
 414            "LaTeX Project Public License 1.0"))
 415
 416 (define lppl1.0+
 417   (license "LPPL 1.0+"
 418            "https://www.latex-project.org/lppl/lppl-1-0/"
 419            "LaTeX Project Public License 1.0"))
 420
 421 (define lppl1.2
 422   (license "LPPL 1.2"
 423            "http://directory.fsf.org/wiki/License:LPPLv1.2"
 424            "https://www.gnu.org/licenses/license-list#LPPL-1.2"))
 425
 426 (define lppl1.2+
 427   (license "LPPL 1.2+"
 428            "http://directory.fsf.org/wiki/License:LPPLv1.2"
 429            "https://www.gnu.org/licenses/license-list#LPPL-1.2"))
 430
 431 (define lppl1.3
 432   (license "LPPL 1.3"
 433            "https://www.latex-project.org/lppl/lppl-1-3/"
 434            "LaTeX Project Public License 1.3"))
 435
 436 (define lppl1.3+
 437   (license "LPPL 1.3+"
 438            "https://www.latex-project.org/lppl/lppl-1-3/"
 439            "LaTeX Project Public License 1.3+"))
 440
 441 (define lppl1.3a
 442   (license "LPPL 1.3a"
 443            "http://directory.fsf.org/wiki/License:LPPLv1.3a"
 444            "https://www.gnu.org/licenses/license-list#LPPL-1.3a"))
 445
 446 (define lppl1.3a+
 447   (license "LPPL 1.3a+"
 448            "http://directory.fsf.org/wiki/License:LPPLv1.3a"
 449            "https://www.gnu.org/licenses/license-list#LPPL-1.3a"))
 450
 451 (define lppl1.3b
 452   (license "LPPL 1.3b"
 453            "https://www.latex-project.org/lppl/lppl-1-3b/"
 454            "LaTeX Project Public License 1.3b"))
 455
 456 (define lppl1.3b+
 457   (license "LPPL 1.3b+"
 458            "https://www.latex-project.org/lppl/lppl-1-3b/"
 459            "LaTeX Project Public License 1.3b or later"))
 460
 461 (define lppl1.3c
 462   (license "LPPL 1.3c"
 463            "https://www.latex-project.org/lppl/lppl-1-3c/"
 464            "LaTeX Project Public License 1.3c"))
 465
 466 (define lppl1.3c+
 467   (license "LPPL 1.3c+"
 468            "https://www.latex-project.org/lppl/lppl-1-3c/"
 469            "LaTeX Project Public License 1.3c or later"))
 470
 471 (define miros
 472   (license "MirOS"
 473            "https://www.mirbsd.org/MirOS-Licence.htm"
 474            "MirOS License"))
 475
 476 (define mpl1.0
 477   (license "MPL 1.0"
 478            "http://www.mozilla.org/MPL/1.0/"
 479            "https://www.gnu.org/licenses/license-list.html#MPL"))
 480
 481 (define mpl1.1
 482   (license "MPL 1.1"
 483            "http://directory.fsf.org/wiki/License:MPLv1.1"
 484            "https://www.gnu.org/licenses/license-list#MPL"))
 485
 486 (define mpl2.0
 487   (license "MPL 2.0"
 488            "http://directory.fsf.org/wiki/License:MPLv2.0"
 489            "https://www.gnu.org/licenses/license-list#MPL-2.0"))
 490
 491 (define ms-pl
 492   (license "Ms-PL"                                ;Microsoft Public License
 493            "http://directory.fsf.org/wiki/License:MsPL"
 494            "http://www.gnu.org/licenses/license-list.html#ms-pl"))
 495
 496 (define ncsa
 497   (license "NCSA/University of Illinois Open Source License"
 498            "http://directory.fsf.org/wiki/License:IllinoisNCSA"
 499            "https://www.gnu.org/licenses/license-list#NCSA"))
 500
 501 (define nmap
 502   (license "Nmap license"
 503            "https://svn.nmap.org/nmap/COPYING"
 504            "https://fedoraproject.org/wiki/Licensing/Nmap"))
 505
 506 (define openssl
 507   (license "OpenSSL"
 508            "http://directory.fsf.org/wiki/License:OpenSSL"
 509            "https://www.gnu.org/licenses/license-list#OpenSSL"))
 510
 511 (define openldap2.8
 512   (license "OpenLDAPv2.8"
 513            "http://directory.fsf.org/wiki/License:OpenLDAPv2.8"
 514            "https://www.gnu.org/licenses/license-list#newOpenLDAP"))
 515               ;; lists OpenLDAPv2.7, which is virtually identical
 516
 517 (define perl-license
 518   ;; The license of Perl, GPLv1+ or Artistic (we ignore the latter here).
 519   ;; We define this alias to avoid circular dependencies introduced by the use
 520   ;; of the '(package-license perl)' idiom.
 521   gpl1+)
 522
 523 (define psfl
 524   (license "Python Software Foundation License"
 525            "http://docs.python.org/license.html"
 526            #f))
 527
 528 (define public-domain
 529   (license "Public Domain"
 530            "http://directory.fsf.org/wiki/License:PublicDomain"
 531            "https://www.gnu.org/licenses/license-list#PublicDomain"))
 532
 533 (define qpl
 534   (license "QPL"
 535            "http://directory.fsf.org/wiki/License:QPLv1.0"
 536            "http://www.gnu.org/licenses/license-list.html#QPL"))
 537
 538 (define repoze
 539   (license "Repoze"
 540            "http://repoze.org/LICENSE.txt"
 541            "A BSD-like license with a clause requiring all changes to be
 542            attributed by author and date."))
 543
 544 (define ruby
 545   (license "Ruby License"
 546            "http://directory.fsf.org/wiki/License:Ruby"
 547            "https://www.ruby-lang.org/en/about/license.txt"))
 548
 549 (define sgifreeb2.0
 550   (license "SGI Free Software License B, version 2.0"
 551            "http://directory.fsf.org/wiki/License:SGIFreeBv2"
 552            "https://www.gnu.org/licenses/license-list.html#SGIFreeB"))
 553
 554 (define silofl1.1
 555   (license "SIL OFL 1.1"
 556            "http://scripts.sil.org/OFL_web"
 557            "https://www.gnu.org/licenses/license-list#SILOFL"))
 558
 559 (define sleepycat
 560   (license "Sleepycat"
 561            "http://directory.fsf.org/wiki/License:Sleepycat"
 562            "https://www.gnu.org/licenses/license-list#BerkeleyDB"))
 563
 564 (define tcl/tk
 565   (license "Tcl/Tk"
 566            "http://www.tcl.tk/software/tcltk/license.html"
 567            "A non-copyleft free software license from the Tcl/Tk project"))
 568
 569 (define vim
 570   (license "Vim"
 571            "http://directory.fsf.org/wiki/License:Vim7.2"
 572            "http://www.gnu.org/licenses/license-list.html#Vim"))
 573
 574 (define unlicense
 575   (license "Unlicense"
 576            "https://unlicense.org/"
 577            "https://www.gnu.org/licenses/license-list.html#Unlicense"))
 578
 579 (define wtfpl2
 580   (license "WTFPL 2"
 581            "http://www.wtfpl.net"
 582            "http://www.wtfpl.net/about/"))
 583
 584 (define x11
 585   (license "X11"
 586            "http://directory.fsf.org/wiki/License:X11"
 587            "https://www.gnu.org/licenses/license-list#X11License"))
 588
 589 (define* (x11-style uri #:optional (comment ""))
 590   "Return an X11-style license, whose full text can be found at URI,
 591 which may be a file:// URI pointing the package's tree."
 592   (license "X11-style"
 593            uri
 594            (string-append
 595             "This is an X11-style, non-copyleft free software license.  "
 596             "Check the URI for details.  "
 597             comment)))
 598
 599 (define zpl2.1
 600   (license "Zope Public License 2.1"
 601            "http://directory.fsf.org/wiki?title=License:ZopePLv2.1"
 602            "https://www.gnu.org/licenses/license-list.html#Zope2.0"))
 603
 604 (define zlib
 605   (license "Zlib"
 606            "http://www.gzip.org/zlib/zlib_license.html"
 607            "https://www.gnu.org/licenses/license-list#ZLib"))
 608
 609 (define* (fsf-free uri #:optional (comment ""))
 610   "Return a license that does not fit any of the ones above or a collection
 611 of licenses, approved as free by the FSF.  More details can be found at URI."
 612   (license "FSF-free"
 613            uri
 614            comment))
 615
 616 (define* (fsdg-compatible uri #:optional (comment ""))
 617   "Return a license that does not fit any of the ones above or a collection
 618 of licenses, not necessarily free, but in accordance with FSDG as Non-functional
 619 Data.  More details can be found at URI.  See also
 620 https://www.gnu.org/distros/free-system-distribution-guidelines.en.html#non-functional-data."
 621   (license "FSDG-compatible"
 622            uri
 623            comment))
 624
 625 ;;; licenses.scm ends here