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

Adding pkgs/all

Browse Source
This commit is contained in:
Jay McCarthy 2013-04-13 15:19:55 -06:00
parent d2b1dc6c63
commit d3f8c75de9
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/meta/pkg-index/basic/main.rkt
View File

@ -31,11 +31,16 @@
(td (a ([href ,(get-url display-info n)]) ,n))))))))) (td (a ([href ,(get-url display-info n)]) ,n)))))))))
(define (write-pkgs req) (define (write-pkgs req)
(response/sexpr (get-pkgs))) (response/sexpr (get-pkgs)))
(define (write-pkgs/all req)
(response/sexpr
(for/hash ([n (in-list (get-pkgs))])
(values n (pkg-name->info n)))))
(define-values (dispatch get-url) (define-values (dispatch get-url)
(dispatch-rules (dispatch-rules
[() list-pkgs] [() list-pkgs]
[("") list-pkgs] [("") list-pkgs]
[("pkgs") write-pkgs] [("pkgs") write-pkgs]
[("pkgs" "all") write-pkgs/all]
[("pkg" (string-arg) "display") display-info] [("pkg" (string-arg) "display") display-info]
[("pkg" (string-arg)) write-info])) [("pkg" (string-arg)) write-info]))
dispatch) dispatch)