From 41551a4987d16b6b6f0bbf098e3a93aa1915ee4f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 9 Jul 2010 06:42:31 -0600 Subject: [PATCH] adjust raco planet help output to fit in 80 columns --- collects/planet/private/cmdline-tool.rkt | 16 ++++++++-------- collects/planet/private/command.rkt | 4 ++-- 2 files changed, 10 insertions(+), 10 deletions(-) diff --git a/collects/planet/private/cmdline-tool.rkt b/collects/planet/private/cmdline-tool.rkt index c2d7a2757c..c88a2269d0 100644 --- a/collects/planet/private/cmdline-tool.rkt +++ b/collects/planet/private/cmdline-tool.rkt @@ -41,7 +41,7 @@ PLANNED FEATURES: (force-package-building? #t)] #:args (path) (do-archive path)] - ["install" "download and install a given package" + ["install" "download and install a package" " Download and install the package that (require (planet \"file.rkt\" ( ))) @@ -50,7 +50,7 @@ would install" (begin (verify-package-name pkg) (download/install owner pkg maj min))] - ["remove" "remove the specified package from the local cache" + ["remove" "remove a package from the local cache" " Remove the specified package from the local cache, optionally also removing its distribution file" #:once-each @@ -78,13 +78,13 @@ Install local file into the planet cache as though it had been downlo (planet ( ))" #:args (owner plt-file maj min) (install-plt-file plt-file owner maj min)] - ["link" "create a development link" + ["link" "create a package development link" "\nCreate a development link between the specified package specifier and the specified directory name" #:args (owner pkg maj min path) (begin (verify-package-name pkg) (add-hard-link-cmd owner pkg maj min path))] - ["unlink" "remove development link associated with the given package" + ["unlink" "remove a package development link" "\nRemove development link associated with the given package" #:args (owner pkg maj min) (begin @@ -96,7 +96,7 @@ Install local file into the planet cache as though it had been downlo (begin (verify-package-name pkg) (download/no-install owner pkg maj min))] - ["url" "get a URL for the given package" + ["url" "get a URL for a package" " Get a URL for the given package. This is not necessary for normal use of planet, but may be helpful in some circumstances for retrieving packages." @@ -104,20 +104,20 @@ This is not necessary for normal use of planet, but may be helpful in some circu (begin (verify-package-name pkg) (get-download-url owner pkg maj min))] - ["open" "unpack the contents of the given package" + ["open" "unpack the contents of a package" " Unpack the contents of the given package into the given directory without installing. This command is not necessary for normal use of planet. It is intended to allow you to inspect package contents offline without needing to install the package." #:args (plt-file target) (do-unpack plt-file target)] - ["structure" "display the structure of a given .plt archive" + ["structure" "display the structure of a .plt archive" "\nPrint the structure of the PLaneT archive named by to the standard output port. This command does not unpack or install the named .plt file." #:args (plt-file) (do-structure plt-file)] - ["print" "display a file within of the given .plt archive" + ["print" "display a file within a .plt archive" "\nPrint the contents of the file named by , which must be a relative path within the PLaneT archive named by , to the standard output port. This command does not unpack or install the named .plt file." #:args (plt-file path) diff --git a/collects/planet/private/command.rkt b/collects/planet/private/command.rkt index f996079243..9c73ffec69 100644 --- a/collects/planet/private/command.rkt +++ b/collects/planet/private/command.rkt @@ -75,11 +75,11 @@ (let* ([maxlen (apply max (map (λ (p) (string-length (car p))) commands))] [message-lines `(,(format "Usage: ~a [option ...] " prog) - ,(format "[note: you can name a ~a subcommand by typing any unambiguous prefix of it.]" prog) + ,(format " where any unambiguous prefix can be used for a subcommand") "" ,@(wrap-to-count general-description 80) "" - ,(format "For help on a particular subcommand, type '~a --help'" prog) + ,(format "For help on a particular subcommand, use '~a --help'" prog) ,@(map (λ (command) (let* ([padded-name (pad (car command) maxlen)] [desc (cadr command)]