01/02: licenses: Add new meta-license fsdg-compatible.

[Clément Lassieur]

snape pushed a commit to branch master
in repository guix.

commit 3314396138ce4c3bc21fdf1222f124b7e4509d7a
Author: Clément Lassieur <address@hidden>
Date:   Mon May 1 12:01:06 2017 +0200

    licenses: Add new meta-license fsdg-compatible.
    
    * guix/licenses.scm (fsdg-compatible): New record with constructor.
---
 guix/licenses.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/guix/licenses.scm b/guix/licenses.scm
index 7b2ac2d..7a1e241 100644
--- a/guix/licenses.scm
+++ b/guix/licenses.scm
@@ -9,6 +9,7 @@
 ;;; Copyright © 2016 Fabian Harfert <address@hidden>
 ;;; Copyright © 2016 Rene Saavedra <address@hidden>
 ;;; Copyright © 2016, 2017 ng0 <address@hidden>
+;;; Copyright © 2017 Clément Lassieur <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -75,7 +76,8 @@
             zpl2.1
             zlib
             fsf-free
-            wtfpl2))
+            wtfpl2
+            fsdg-compatible))
 
 (define-record-type <license>
   (license name uri comment)
@@ -488,4 +490,13 @@ of licenses, approved as free by the FSF.  More details 
can be found at URI."
            uri
            comment))
 
+(define* (fsdg-compatible uri #:optional (comment ""))
+  "Return a license that does not fit any of the ones above or a collection
+of licenses, not necessarily free, but in accordance with FSDG as 
Non-functional
+Data.  More details can be found at URI.  See also
+https://www.gnu.org/distros/free-system-distribution-guidelines.en.html#non-functional-data.";
+  (license "FSDG-compatible"
+           uri
+           comment))
+
 ;;; licenses.scm ends here