summaryrefslogtreecommitdiff
path: root/guix/licenses.scm
diff options
context:
space:
mode:
authorNikita Karetnikov <nikita@karetnikov.org>2013-03-04 01:08:24 +0000
committerNikita Karetnikov <nikita@karetnikov.org>2013-03-06 20:40:11 +0000
commitbbd60260dd3f40398a1da7d3beabc29ac02976fb (patch)
treeaa4d2e8b076fd23da013a4d42f4b37902e9cebdb /guix/licenses.scm
parent6a917ef7e6a7958a86a280215e1c262bf5b9b259 (diff)
licenses: Add 'x11-style'.
* guix/licenses.scm (x11-style): New variable.
Diffstat (limited to 'guix/licenses.scm')
-rw-r--r--guix/licenses.scm12
1 files changed, 11 insertions, 1 deletions
diff --git a/guix/licenses.scm b/guix/licenses.scm
index 4e4aee2036..9c4e17737a 100644
--- a/guix/licenses.scm
+++ b/guix/licenses.scm
@@ -39,7 +39,7 @@
psfl public-domain
qpl
vim
- x11
+ x11 x11-style
zlib
fsf-free))
@@ -236,6 +236,16 @@ which may be a file:// URI pointing the package's tree."
"http://directory.fsf.org/wiki/License:X11"
"https://www.gnu.org/licenses/license-list#X11License"))
+(define* (x11-style uri #:optional (comment ""))
+ "Return an X11-style license, whose full text can be found at URI,
+which may be a file:// URI pointing the package's tree."
+ (license "X11-style"
+ uri
+ (string-append
+ "This is an X11-style, non-copyleft free software license. "
+ "Check the URI for details. "
+ comment)))
+
(define zlib
(license "Zlib"
"http://www.gzip.org/zlib/zlib_license.html"