~ruther/guix-local: snix: Use (guix licenses) variables.

e7aa73ef0970a35818728195748b4a3dae6809ef — Ludovic Courtès 13 years ago ab8ed44

snix: Use (guix licenses) variables.

* guix/snix.scm (snix-derivation->guix-package)[license-variable]: New
  procedure.
  Use it to determine the variable name for the license.

patch browse .tar.gz

1 files changed, 11 insertions(+), 1 deletions(-)

M guix/snix.scm

M guix/snix.scm => guix/snix.scm +11 -1

@@ 393,6 393,16 @@ location of DERIVATION."
             `(string-append ,@items))
            (x x)))
 
+       (define (license-variable license)
+         ;; Return the name of the (guix licenses) variable for LICENSE.
+         (match license
+           ("GPLv2+"    'gpl2+)
+           ("GPLv3+"    'gpl3+)
+           ("LGPLv2+"   'lgpl2.1+)
+           ("LGPLv2.1+" 'lgpl2.1+)
+           ("LGPLv3+"   'lgpl3+)
+           (_           license)))
+
        (let* ((source  (find-attribute-by-name "src" attributes))
               (urls    (source-urls source))
               (sha256  (source-sha256 source))


@@ 426,7 436,7 @@ location of DERIVATION."
               ,(and=> (find-attribute-by-name "longDescription" meta)
                       attribute-value))
              (license ,(and=> (find-attribute-by-name "license" meta)
-                              attribute-value)))
+                              (compose license-variable attribute-value))))
           loc))))))
 
 (define (nixpkgs->guix-package nixpkgs attribute)