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

the build status button is now a link to the build status

Browse Source
This commit is contained in:
Tony Garnock-Jones 2014-11-08 19:14:20 -05:00
parent f2f89271c5
commit 23409f05b1
3 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
TODO.md
View File

@ -17,7 +17,6 @@ you should check the existence of repos/github repos/urls/etc via XHR
you should say how many packages there are in response to a search
the build status "problems" button should be a link to the build status
## Design possibilities

18
src/main.rkt
View File

@ -495,12 +495,13 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (build-status str label-type glyphicon)
(define (build-status buildhost-url str label-type glyphicon)
`(p ((class "build-status"))
"Build status: "
(span ((class ,(format "label label-~a" label-type)))
(span ((class ,(format "glyphicon glyphicon-~a" glyphicon))))
" " ,str)))
,(buildhost-link buildhost-url
`(span ((class ,(format "label label-~a" label-type)))
(span ((class ,(format "glyphicon glyphicon-~a" glyphicon))))
" " ,str))))
(define (package-page request package-name-str)
(authentication-wrap
@ -520,12 +521,15 @@
(p ,(@ pkg description))
,(cond
[(@ pkg build failure-log)
(build-status "failed" "danger" "fire")]
(build-status (@ pkg build failure-log)
"failed" "danger" "fire")]
[(and (@ pkg build success-log)
(@ pkg build dep-failure-log))
(build-status "problems" "warning" "question-sign")]
(build-status (@ pkg build dep-failure-log)
"problems" "warning" "question-sign")]
[(@ pkg build success-log)
(build-status "ok" "success" "ok")]
(build-status (@ pkg build success-log)
"ok" "success" "ok")]
[else
""])
(div ,@(let ((docs (or (@ pkg build docs) '())))

2
static/style.css
View File

@ -84,6 +84,8 @@ input#new_version {
font-size: 120%;
}
.jumbotron .build-status a,
.jumbotron .build-status {
font-size: 100%;
text-decoration: none;
}