01/04: guix: Clean up --help messages.

[Alex Kost]

alezost pushed a commit to branch master
in repository guix.

commit 2a4e2e4b015ceeb5a0a55e9ab0484b5136c324cd
Author: Alex Kost <address@hidden>
Date:   Sun Jun 7 11:46:06 2015 +0300

    guix: Clean up --help messages.
    
    * guix/scripts/import.scm (show-help): Add newline before a list of
      importers.
    * guix/scripts/lint.scm (show-help): Split a long description line.
    * guix/scripts/package.scm (show-help): Improve docstrings for --install
      and --remove options.
    * guix/scripts/system.scm (show-help): Format actions the same way as
      guix commands and importers are formatted.
---
 guix/scripts/import.scm  |    1 +
 guix/scripts/lint.scm    |    3 ++-
 guix/scripts/package.scm |   10 ++++++----
 guix/scripts/system.scm  |   13 +++++++------
 4 files changed, 16 insertions(+), 11 deletions(-)

diff --git a/guix/scripts/import.scm b/guix/scripts/import.scm
index 06b4c17..45ce092 100644
--- a/guix/scripts/import.scm
+++ b/guix/scripts/import.scm
@@ -86,6 +86,7 @@ rather than \\n."
 Run IMPORTER with ARGS.\n"))
   (newline)
   (display (_ "IMPORTER must be one of the importers listed below:\n"))
+  (newline)
   (format #t "~{   ~a~%~}" importers)
   (display (_ "
   -h, --help             display this help and exit"))
diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index 3b139ce..3740b71 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -575,7 +575,8 @@ descriptions maintained upstream."
 
 (define (show-help)
   (display (_ "Usage: guix lint [OPTION]... [PACKAGE]...
-Run a set of checkers on the specified package; if none is specified, run the 
checkers on all packages.\n"))
+Run a set of checkers on the specified package; if none is specified,
+run the checkers on all packages.\n"))
   (display (_ "
   -c, --checkers=CHECKER1,CHECKER2...
                          only run the specificed checkers"))
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index 4ae5114..d9f38fb 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -422,15 +422,17 @@ ENTRIES, a list of manifest entries, in the context of 
PROFILE."
     (substitutes? . #t)))
 
 (define (show-help)
-  (display (_ "Usage: guix package [OPTION]... PACKAGES...
-Install, remove, or upgrade PACKAGES in a single transaction.\n"))
+  (display (_ "Usage: guix package [OPTION]...
+Install, remove, or upgrade packages in a single transaction.\n"))
   (display (_ "
-  -i, --install=PACKAGE  install PACKAGE"))
+  -i, --install PACKAGE ...
+                         install PACKAGEs"))
   (display (_ "
   -e, --install-from-expression=EXP
                          install the package EXP evaluates to"))
   (display (_ "
-  -r, --remove=PACKAGE   remove PACKAGE"))
+  -r, --remove PACKAGE ...
+                         remove PACKAGEs"))
   (display (_ "
   -u, --upgrade[=REGEXP] upgrade all the installed packages matching REGEXP"))
   (display (_ "
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index b6d7d0d..f7c9d83 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -368,18 +368,19 @@ boot directly to the kernel or to the bootloader."
 Build the operating system declared in FILE according to ACTION.\n"))
   (newline)
   (display (_ "The valid values for ACTION are:\n"))
+  (newline)
   (display (_ "\
-  - 'reconfigure', switch to a new operating system configuration\n"))
+   reconfigure      switch to a new operating system configuration\n"))
   (display (_ "\
-  - 'build', build the operating system without installing anything\n"))
+   build            build the operating system without installing anything\n"))
   (display (_ "\
-  - 'vm', build a virtual machine image that shares the host's store\n"))
+   vm               build a virtual machine image that shares the host's 
store\n"))
   (display (_ "\
-  - 'vm-image', build a freestanding virtual machine image\n"))
+   vm-image         build a freestanding virtual machine image\n"))
   (display (_ "\
-  - 'disk-image', build a disk image, suitable for a USB stick\n"))
+   disk-image       build a disk image, suitable for a USB stick\n"))
   (display (_ "\
-  - 'init', initialize a root file system to run GNU.\n"))
+   init             initialize a root file system to run GNU.\n"))
 
   (show-build-options-help)
   (display (_ "