emacs: Add support for "triplet" package inputs.
Fixes <http://bugs.gnu.org/21399>. * emacs/guix-main.scm (full-name->name+version): Adjust to handle "name-version:output" string. (package-inputs-names): Support ("name" package "output") inputs.
This commit is contained in:
parent
02615bfa2f
commit
00f34aaafe
@ -71,7 +71,14 @@
|
||||
(define (list-maybe obj)
|
||||
(if (list? obj) obj (list obj)))
|
||||
|
||||
(define full-name->name+version package-name->name+version)
|
||||
(define (full-name->name+version spec)
|
||||
"Given package specification SPEC with or without output,
|
||||
return two values: name and version. For example, for SPEC
|
||||
\"foo-0.9.1b:lib\", return \"foo\" and \"0.9.1b\"."
|
||||
(let-values (((name version output)
|
||||
(package-specification->name+version+output spec)))
|
||||
(values name version)))
|
||||
|
||||
(define (name+version->full-name name version)
|
||||
(string-append name "-" version))
|
||||
|
||||
@ -247,6 +254,10 @@ Example:
|
||||
(filter-map (match-lambda
|
||||
((_ (? package? package))
|
||||
(package-full-name package))
|
||||
((_ (? package? package) output)
|
||||
(make-package-specification (package-name package)
|
||||
(package-version package)
|
||||
output))
|
||||
(_ #f))
|
||||
inputs))
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user