From bbd60260dd3f40398a1da7d3beabc29ac02976fb Mon Sep 17 00:00:00 2001 From: Nikita Karetnikov Date: Mon, 4 Mar 2013 01:08:24 +0000 Subject: licenses: Add 'x11-style'. * guix/licenses.scm (x11-style): New variable. --- guix/licenses.scm | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'guix/licenses.scm') 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" -- cgit v1.2.3