futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

snix: Use (guix licenses) variables.

Browse Source 
* guix/snix.scm (snix-derivation->guix-package)[license-variable]: New
  procedure.
  Use it to determine the variable name for the license.
This commit is contained in:
Ludovic Courtès 2013-01-07 22:32:28 +01:00
parent ab8ed44fce
commit e7aa73ef09
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
guix/snix.scm
View File

@ -393,6 +393,16 @@ location of DERIVATION."
`(string-append ,@items)) `(string-append ,@items))
(x x))) (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)) (let* ((source (find-attribute-by-name "src" attributes))
(urls (source-urls source)) (urls (source-urls source))
(sha256 (source-sha256 source)) (sha256 (source-sha256 source))
@ -426,7 +436,7 @@ location of DERIVATION."
,(and=> (find-attribute-by-name "longDescription" meta) ,(and=> (find-attribute-by-name "longDescription" meta)
attribute-value)) attribute-value))
(license ,(and=> (find-attribute-by-name "license" meta) (license ,(and=> (find-attribute-by-name "license" meta)
attribute-value))) (compose license-variable attribute-value))))
loc)))))) loc))))))
(define (nixpkgs->guix-package nixpkgs attribute) (define (nixpkgs->guix-package nixpkgs attribute)