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

Cosmetic

Browse Source
This commit is contained in:
Tony Garnock-Jones 2014-11-10 11:48:37 -05:00
parent b8fb00bb5f
commit 04f95c93fc
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/gravatar.rkt
View File

@ -12,7 +12,9 @@
(string-downcase (string-downcase
(string-trim email))))) (string-trim email)))))
(define (gravatar-image-url email [size 80] #:extension [extension ""] #:default [default "identicon"]) (define (gravatar-image-url email [size 80]
#:extension [extension ""]
#:default [default "identicon"])
(format "https://www.gravatar.com/avatar/~a~a?s=~a&d=~a" (format "https://www.gravatar.com/avatar/~a~a?s=~a&d=~a"
(gravatar-hash email) (gravatar-hash email)
extension extension

3
src/site.rkt
View File

@ -422,7 +422,8 @@
,@(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 (span ((class "last-updated-negated") (style "display: none")) ,(~a (- (@ pkg last-updated)))) (td (span ((class "last-updated-negated") (style "display: none"))
,(~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")))