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"))
(thead
(tr
(th 'nbsp)
(th "Package")
(th "Description")
(th "Build")))
(tbody
,@(maybe-splice (null? package-names)
`(tr (td ((colspan "3"))
`(tr (td ((colspan "4"))
(div ((class "alert alert-info"))
"No packages found."))))
,@(for/list ((package-name package-names))
(define pkg (package-detail package-name))
`(tr
(td (h2 ,(package-link package-name))
,(authors-list (@ pkg authors))
(td (span ((class "last-updated") (style "display: none")) ,(~a (@ pkg last-updated)))
,@(maybe-splice
(< (- 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))
,@(maybe-splice
(pair? (@ pkg build docs))