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

Batch package detail query

Browse Source
This commit is contained in:
Tony Garnock-Jones 2014-11-11 13:12:11 -05:00
parent 84c7068f75
commit 879c0b56ea
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/packages.rkt
View File

@ -7,6 +7,7 @@
all-formal-tags all-formal-tags
sorted-package-names sorted-package-names
package-detail package-detail
package-batch-detail
package-search package-search
replace-package! replace-package!
delete-package! delete-package!
@ -150,6 +151,10 @@
[local-packages (hash-set local-packages package-name 'tombstone)]) [local-packages (hash-set local-packages package-name 'tombstone)])
state)) state))
(define (lookup-package name local-packages)
(define pkg (hash-ref local-packages name #f))
(if (tombstone? pkg) #f pkg))
(define (package-manager-main state) (define (package-manager-main state)
(match-define (package-manager-state local-packages (match-define (package-manager-state local-packages
all-tags all-tags
@ -190,8 +195,9 @@
[(list 'all-formal-tags) [(list 'all-formal-tags)
(values all-formal-tags state)] (values all-formal-tags state)]
[(list 'package-detail name) [(list 'package-detail name)
(define pkg (hash-ref local-packages name (lambda () #f))) (values (lookup-package name local-packages) state)]
(values (if (tombstone? pkg) #f pkg) state)] [(list 'package-batch-detail names)
(values (for/list ((name names)) (lookup-package name local-packages)) state)]
[(list 'replace-package! completion-ch old-pkg new-pkg) [(list 'replace-package! completion-ch old-pkg new-pkg)
(values (void) (replace-package completion-ch old-pkg new-pkg state))] (values (void) (replace-package completion-ch old-pkg new-pkg state))]
[(list 'delete-package! completion-ch package-name) [(list 'delete-package! completion-ch package-name)
@ -225,6 +231,7 @@
(define (all-tags) (manager-rpc 'all-tags)) (define (all-tags) (manager-rpc 'all-tags))
(define (all-formal-tags) (manager-rpc 'all-formal-tags)) (define (all-formal-tags) (manager-rpc 'all-formal-tags))
(define (package-detail package-name) (manager-rpc 'package-detail package-name)) (define (package-detail package-name) (manager-rpc 'package-detail package-name))
(define (package-batch-detail package-names) (manager-rpc 'package-batch-detail package-names))
(define (replace-package! completion-ch old-pkg new-pkg) (define (replace-package! completion-ch old-pkg new-pkg)
(manager-rpc 'replace-package! completion-ch old-pkg new-pkg)) (manager-rpc 'replace-package! completion-ch old-pkg new-pkg))
(define (delete-package! completion-ch package-name) (define (delete-package! completion-ch package-name)

5
src/site.rkt
View File

@ -464,15 +464,14 @@
`(tr (td ((colspan "4")) `(tr (td ((colspan "4"))
(div ((class "alert alert-info")) (div ((class "alert alert-info"))
"No packages found.")))) "No packages found."))))
,@(for/list ((package-name package-names)) ,@(for/list ((pkg (package-batch-detail package-names)))
(define pkg (package-detail package-name))
`(tr `(tr
(td (span ((class "last-updated-negated") (style "display: none")) (td (span ((class "last-updated-negated") (style "display: none"))
,(~a (- (@ pkg last-updated)))) ,(~a (- (@ pkg last-updated))))
,@(maybe-splice ,@(maybe-splice
(< (- now (or (@ pkg last-updated) 0)) recent-seconds) (< (- now (or (@ pkg last-updated) 0)) recent-seconds)
`(span ((class "label label-info")) "New"))) `(span ((class "label label-info")) "New")))
(td (h2 ,(package-link package-name)) (td (h2 ,(package-link (@ pkg name)))
,(authors-list (@ pkg authors))) ,(authors-list (@ pkg authors)))
(td (p ,(@ pkg description)) (td (p ,(@ pkg description))
,@(maybe-splice ,@(maybe-splice