guix/licenses.scm

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