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

Split out last-update time to permit sorting on it

Browse Source
This commit is contained in:
Tony Garnock-Jones 2014-11-09 12:31:40 -05:00
parent 8458130d0e
commit fd92d16da3
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/site.rkt
View File

@ -384,23 +384,24 @@
((class "packages sortable")) ((class "packages sortable"))
(thead (thead
(tr (tr
(th 'nbsp)
(th "Package") (th "Package")
(th "Description") (th "Description")
(th "Build"))) (th "Build")))
(tbody (tbody
,@(maybe-splice (null? package-names) ,@(maybe-splice (null? package-names)
`(tr (td ((colspan "3")) `(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 ((package-name package-names))
(define pkg (package-detail package-name)) (define pkg (package-detail package-name))
`(tr `(tr
(td (h2 ,(package-link package-name)) (td (span ((class "last-updated") (style "display: none")) ,(~a (@ pkg last-updated)))
,(authors-list (@ pkg authors))
,@(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")) "Updated")) `(span ((class "label label-info")) "New")))
) (td (h2 ,(package-link package-name))
,(authors-list (@ pkg authors)))
(td (p ,(@ pkg description)) (td (p ,(@ pkg description))
,@(maybe-splice ,@(maybe-splice
(pair? (@ pkg build docs)) (pair? (@ pkg build docs))