Adding pkgs-all
This commit is contained in:
parent
d3f8c75de9
commit
b2463815d6
|
@ -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)
|
||||
|
|
|
@ -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"
|
||||
|
|
Loading…
Reference in New Issue
Block a user