Add 'guix edit'.

* guix/scripts/edit.scm: New file.
* Makefile.am (MODULES): Add it.
* doc.am (SUBCOMMANDS): Add 'edit'.
* doc/guix.texi (Defining Packages): Add xref to "Invoking guix edit".
  (Invoking guix edit): New node.
* po/guix/POTFILES.in: Add it.
This commit is contained in:
Ludovic Courtès 2015-06-17 21:58:04 +02:00
parent 84189ebc66
commit 39bee8a293
5 changed files with 110 additions and 1 deletions

View File

@ -113,6 +113,7 @@ MODULES = \
guix/scripts/import/hackage.scm \ guix/scripts/import/hackage.scm \
guix/scripts/environment.scm \ guix/scripts/environment.scm \
guix/scripts/publish.scm \ guix/scripts/publish.scm \
guix/scripts/edit.scm \
guix.scm \ guix.scm \
$(GNU_SYSTEM_MODULES) $(GNU_SYSTEM_MODULES)

1
doc.am
View File

@ -90,6 +90,7 @@ SUBCOMMANDS := \
archive \ archive \
build \ build \
download \ download \
edit \
environment \ environment \
gc \ gc \
hash \ hash \

View File

@ -124,6 +124,7 @@ Defining Packages
Utilities Utilities
* Invoking guix build:: Building packages from the command line. * Invoking guix build:: Building packages from the command line.
* Invoking guix edit::
* Invoking guix download:: Downloading a file and printing its hash. * Invoking guix download:: Downloading a file and printing its hash.
* Invoking guix hash:: Computing the cryptographic hash of a file. * Invoking guix hash:: Computing the cryptographic hash of a file.
* Invoking guix import:: Importing package definitions. * Invoking guix import:: Importing package definitions.
@ -1931,7 +1932,10 @@ unavailable to the build process, possibly leading to a build failure.
Once a package definition is in place, the Once a package definition is in place, the
package may actually be built using the @code{guix build} command-line package may actually be built using the @code{guix build} command-line
tool (@pxref{Invoking guix build}). @xref{Packaging Guidelines}, for tool (@pxref{Invoking guix build}). You can easily jump back to the
package definition using the @command{guix edit} command
(@pxref{Invoking guix edit}).
@xref{Packaging Guidelines}, for
more information on how to test package definitions, and more information on how to test package definitions, and
@ref{Invoking guix lint}, for information on how to check a definition @ref{Invoking guix lint}, for information on how to check a definition
for style conformance. for style conformance.
@ -3261,6 +3265,7 @@ programming interface of Guix in a convenient way.
@menu @menu
* Invoking guix build:: Building packages from the command line. * Invoking guix build:: Building packages from the command line.
* Invoking guix edit:: Editing package definitions.
* Invoking guix download:: Downloading a file and printing its hash. * Invoking guix download:: Downloading a file and printing its hash.
* Invoking guix hash:: Computing the cryptographic hash of a file. * Invoking guix hash:: Computing the cryptographic hash of a file.
* Invoking guix import:: Importing package definitions. * Invoking guix import:: Importing package definitions.
@ -3548,6 +3553,28 @@ the parsed command-line options.
@end defvr @end defvr
@node Invoking guix edit
@section Invoking @command{guix edit}
@cindex package definition, editing
So many packages, so many source files! The @command{guix edit} command
facilitates the life of packagers by pointing their editor at the source
file containing the definition of the specified packages. For instance:
@example
guix edit gcc-4.8 vim
@end example
@noindent
launches the program specified in the @code{EDITOR} environment variable
to edit the recipe of GCC@tie{}4.8.4 and that of Vim.
If you are using Emacs, note that the Emacs user interface provides
similar functionality in the ``package info'' buffers created by
@kbd{M-x guix-search-by-name} and similar commands (@pxref{Emacs
Commands}).
@node Invoking guix download @node Invoking guix download
@section Invoking @command{guix download} @section Invoking @command{guix download}

79
guix/scripts/edit.scm Normal file
View File

@ -0,0 +1,79 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (guix scripts edit)
#:use-module (guix ui)
#:use-module (guix utils)
#:use-module (guix packages)
#:use-module (gnu packages)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-37)
#:export (%editor
guix-edit))
(define %options
(list (option '(#\h "help") #f #f
(lambda args
(show-help)
(exit 0)))
(option '(#\V "version") #f #f
(lambda args
(show-version-and-exit "guix edit")))))
(define (show-help)
(display (_ "Usage: guix edit PACKAGE...
Start $EDITOR to edit the definitions of PACKAGE...\n"))
(newline)
(display (_ "
-h, --help display this help and exit"))
(display (_ "
-V, --version display version information and exit"))
(newline)
(show-bug-report-information))
(define %editor
(make-parameter (or (getenv "EDITOR") "emacsclient")))
(define (search-path* path file)
"Like 'search-path' but exit if FILE is not found."
(let ((absolute-file-name (search-path path file)))
(unless absolute-file-name
;; Shouldn't happen unless somebody fiddled with the 'location' field.
(leave (_ "file '~a' not found in search path ~s~%")
file path))
absolute-file-name))
(define (guix-edit . args)
(with-error-handling
(let* ((specs (parse-command-line args %options '(())
#:argument-handler cons))
(packages (map specification->package specs)))
(for-each (lambda (package)
(unless (package-location package)
(leave (_ "source location of package '~a' is unknown~%")
(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)))))

View File

@ -16,6 +16,7 @@ guix/scripts/authenticate.scm
guix/scripts/system.scm guix/scripts/system.scm
guix/scripts/lint.scm guix/scripts/lint.scm
guix/scripts/publish.scm guix/scripts/publish.scm
guix/scripts/edit.scm
guix/gnu-maintenance.scm guix/gnu-maintenance.scm
guix/ui.scm guix/ui.scm
guix/http-client.scm guix/http-client.scm