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

edit: Lift helper procedure.

Browse source 
* guix/scripts/edit.scm (package->location-specification): New
  procedure, with code formerly...
  (guix-edit): ... here.  Use it.
This commit is contained in:
Ludovic Courtès 2015-11-05 12:01:26 +01:00
parent 5453de3dd8
commit 67c920fa5d
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
guix/scripts/edit.scm
View file

@ -59,6 +59,15 @@ (define (search-path* path file)
file path))
absolute-file-name))
(define (package->location-specification package)
"Return the location specification for PACKAGE for a typical editor command
line."
(let ((loc (package-location package)))
(list (string-append "+"
(number->string
(location-line loc)))
(search-path* %load-path (location-file loc)))))
(define (guix-edit . args)
(with-error-handling
@ -71,10 +80,4 @@ (define (guix-edit . args)
(package-full-name package))))
packages)
(apply execlp (%editor) (%editor)
(append-map (lambda (package)
(let ((loc (package-location package)))
(list (string-append "+"
(number->string
(location-line loc)))
(search-path* %load-path (location-file loc)))))
packages)))))
(append-map package->location-specification packages)))))