summaryrefslogtreecommitdiff
path: root/emacs/guix-main.scm
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2016-03-03 12:53:03 +0300
committerAlex Kost <alezost@gmail.com>2016-03-04 13:17:36 +0300
commitdb0c709b9aa75b44cdc6a5c0e0b9c9a1ab5212ec (patch)
tree119b0c9d71eb008227891b814c6f71b18c6b9c38 /emacs/guix-main.scm
parentb8fa5a2ae8b4c78ec84792e1a1d807ac6a675443 (diff)
downloadpatches-db0c709b9aa75b44cdc6a5c0e0b9c9a1ab5212ec.tar
patches-db0c709b9aa75b44cdc6a5c0e0b9c9a1ab5212ec.tar.gz
emacs: Use '@' to separate package names and version numbers.
This is a followup to commit 1b846da8c372bee78851439fd9e72b2499115e5a. * emacs/guix-base.el (guix-package-name-specification): Use "@" instead of "-". * emacs/guix-main.scm (name+version->full-name): Likewise. (package-inputs-names): Use 'make-package-specification' instead of 'package-full-name'. (full-name->name+version): Update the docstring. * emacs/guix-ui-package.el (guix-packages-by-name): Likewise.
Diffstat (limited to 'emacs/guix-main.scm')
-rw-r--r--emacs/guix-main.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/emacs/guix-main.scm b/emacs/guix-main.scm
index 11b9c773b9..34da6ac6b6 100644
--- a/emacs/guix-main.scm
+++ b/emacs/guix-main.scm
@@ -86,13 +86,13 @@
(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\"."
+\"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))
+ (string-append name "@" version))
(define* (make-package-specification name #:optional version output)
(let ((full-name (if version
@@ -263,7 +263,8 @@ Example:
"Return a list of full names of the packages from package INPUTS."
(filter-map (match-lambda
((_ (? package? package))
- (package-full-name package))
+ (make-package-specification (package-name package)
+ (package-version package)))
((_ (? package? package) output)
(make-package-specification (package-name package)
(package-version package)