Am Dienstag, 5. Februar 2013 schrieb Ludovic Courtès: > Similar to ‘bsd-style’, what about adding: > (define (copyleft url #:optional (comment "")) ...) > (define (fsf-free url #:optional (comment "")) ...)
Not sure if we need two of them. Is the attached patch okay? Andreas
From e3603d27c42d15e7c90f5130a83b15d5a11239aa Mon Sep 17 00:00:00 2001 From: Andreas Enge <[email protected]> Date: Tue, 5 Feb 2013 23:01:14 +0100 Subject: [PATCH] licenses: Add new meta-license fsf-free. * guix/licenses.scm (fsf-free): New record with constructor. --- guix/licenses.scm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/guix/licenses.scm b/guix/licenses.scm index c636cc5..1b149b5 100644 --- a/guix/licenses.scm +++ b/guix/licenses.scm @@ -39,7 +39,8 @@ qpl vim x11 - zlib)) + zlib + fsf-free)) (define-record-type <license> (license name uri comment) @@ -234,4 +235,11 @@ which may be a file:// URI pointing the package's tree." "http://www.gzip.org/zlib/zlib_license.html"; "https://www.gnu.org/licenses/license-list#ZLib";)) +(define* (fsf-free uri #:optional (comment "")) + "Return a license that does not fit any of the ones above or a collection +of licenses, approved as free by the FSF. More details can be found at URI." + (license "FSF-free" + uri + comment)) + ;;; licenses.scm ends here -- 1.7.10.4
