suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjust raco planet help output to fit in 80 columns

Browse Source
This commit is contained in:
Matthew Flatt 2010-07-09 06:42:31 -06:00
parent fe0609673c
commit 41551a4987
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/planet/private/cmdline-tool.rkt
View File

@ -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\" (<owner> <pkg> <maj> <min>)))
@ -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 <plt-file> into the planet cache as though it had been downlo
(planet (<owner> <plt-file's filename> <maj> <min>))"
#: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 <plt-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 <plt-file> 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 <path>, which must be a relative path within the PLaneT archive named by <plt-file>, to the standard output port.
This command does not unpack or install the named .plt file."
#:args (plt-file path)

4
collects/planet/private/command.rkt
View File

@ -75,11 +75,11 @@
(let* ([maxlen (apply max (map (λ (p) (string-length (car p))) commands))]
[message-lines
`(,(format "Usage: ~a <subcommand> [option ...] <arg ...>" 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 <subcommand> --help'" prog)
,(format "For help on a particular subcommand, use '~a <subcommand> --help'" prog)
,@(map (λ (command)
(let* ([padded-name (pad (car command) maxlen)]
[desc (cadr command)]