Adding pkgs-all

This commit is contained in:
Jay McCarthy 2013-04-14 10:38:02 -06:00
parent d3f8c75de9
commit b2463815d6
2 changed files with 2 additions and 2 deletions

View File

@ -40,7 +40,7 @@
[() list-pkgs]
[("") list-pkgs]
[("pkgs") write-pkgs]
[("pkgs" "all") write-pkgs/all]
[("pkgs-all") write-pkgs/all]
[("pkg" (string-arg) "display") display-info]
[("pkg" (string-arg)) write-info]))
dispatch)

View File

@ -384,7 +384,7 @@
pkg-depo-dir pkg-name)
'url
(let ()
(match-define (regexp #rx"^planet-([^-]+)-([^0-9]+)[0-9]+"
(match-define (regexp #rx"^planet-([^-]+)-(.+)[0-9]+$"
(list _ user pkg))
pkg-name)
(format "http://planet.racket-lang.org/display.ss?package=~a.plt&owner=~a"