guix/licenses.scm

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