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)] (force-package-building? #t)]
#:args (path) #:args (path)
(do-archive path)] (do-archive path)]
["install" "download and install a given package" ["install" "download and install a package"
" "
Download and install the package that Download and install the package that
(require (planet \"file.rkt\" (<owner> <pkg> <maj> <min>))) (require (planet \"file.rkt\" (<owner> <pkg> <maj> <min>)))
@ -50,7 +50,7 @@ would install"
(begin (begin
(verify-package-name pkg) (verify-package-name pkg)
(download/install owner pkg maj min))] (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" Remove the specified package from the local cache, optionally also removing its distribution file"
#:once-each #: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>))" (planet (<owner> <plt-file's filename> <maj> <min>))"
#:args (owner plt-file maj min) #:args (owner plt-file maj min)
(install-plt-file plt-file owner 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" "\nCreate a development link between the specified package specifier and the specified directory name"
#:args (owner pkg maj min path) #:args (owner pkg maj min path)
(begin (begin
(verify-package-name pkg) (verify-package-name pkg)
(add-hard-link-cmd owner pkg maj min path))] (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" "\nRemove development link associated with the given package"
#:args (owner pkg maj min) #:args (owner pkg maj min)
(begin (begin
@ -96,7 +96,7 @@ Install local file <plt-file> into the planet cache as though it had been downlo
(begin (begin
(verify-package-name pkg) (verify-package-name pkg)
(download/no-install owner pkg maj min))] (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. 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." 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 (begin
(verify-package-name pkg) (verify-package-name pkg)
(get-download-url owner pkg maj min))] (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. 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." 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) #:args (plt-file target)
(do-unpack 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. "\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." This command does not unpack or install the named .plt file."
#:args (plt-file) #:args (plt-file)
(do-structure 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. "\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." This command does not unpack or install the named .plt file."
#:args (plt-file path) #: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))] (let* ([maxlen (apply max (map (λ (p) (string-length (car p))) commands))]
[message-lines [message-lines
`(,(format "Usage: ~a <subcommand> [option ...] <arg ...>" prog) `(,(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) ,@(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) ,@(map (λ (command)
(let* ([padded-name (pad (car command) maxlen)] (let* ([padded-name (pad (car command) maxlen)]
[desc (cadr command)] [desc (cadr command)]