ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

import: utils: Add some utilities.

Browse source 
* guix/import/utils.scm (maybe-inputs, maybe-native-inputs,
  package->definition): New variables.
This commit is contained in:
David Craven 2016-12-10 18:43:39 +01:00
parent 4b3cb7f4bc
commit bb3f36ed4c
No known key found for this signature in database
GPG key ID: C5E051C79C0BECDB
1 changed files with 34 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
guix/import/utils.scm
View file

@ -22,6 +22,7 @@ (define-module (guix import utils)
#:use-module (guix base32)
#:use-module ((guix build download) #:prefix build:)
#:use-module (guix hash)
#:use-module (guix http-client)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix utils)
#:use-module (ice-9 match)
@ -36,6 +37,10 @@ (define-module (guix import utils)
url-fetch
guix-hash-url
maybe-inputs
maybe-native-inputs
package->definition
spdx-string->license
license->symbol
@ -205,3 +210,32 @@ (define (beautify-description description)
;; Use double spacing between sentences
(regexp-substitute/global #f "\\. \\b"
cleaned 'pre ". " 'post)))
(define (package-names->package-inputs names)
(map (lambda (input)
(list input (list 'unquote (string->symbol input))))
names))
(define (maybe-inputs package-names)
"Given a list of PACKAGE-NAMES, tries to generate the 'inputs' field of a
package definition."
(match (package-names->package-inputs package-names)
(()
'())
((package-inputs ...)
`((inputs (,'quasiquote ,package-inputs))))))
(define (maybe-native-inputs package-names)
"Given a list of PACKAGE-NAMES, tries to generate the 'inputs' field of a
package definition."
(match (package-names->package-inputs package-names)
(()
'())
((package-inputs ...)
`((native-inputs (,'quasiquote ,package-inputs))))))
(define (package->definition guix-package)
(match guix-package
(('package ('name (? string? name)) _ ...)
`(define-public ,(string->symbol name)
,guix-package))))