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 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 ## 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")) `(p ((class "build-status"))
"Build status: " "Build status: "
(span ((class ,(format "label label-~a" label-type))) ,(buildhost-link buildhost-url
(span ((class ,(format "glyphicon glyphicon-~a" glyphicon)))) `(span ((class ,(format "label label-~a" label-type)))
" " ,str))) (span ((class ,(format "glyphicon glyphicon-~a" glyphicon))))
" " ,str))))
(define (package-page request package-name-str) (define (package-page request package-name-str)
(authentication-wrap (authentication-wrap
@ -520,12 +521,15 @@
(p ,(@ pkg description)) (p ,(@ pkg description))
,(cond ,(cond
[(@ pkg build failure-log) [(@ pkg build failure-log)
(build-status "failed" "danger" "fire")] (build-status (@ pkg build failure-log)
"failed" "danger" "fire")]
[(and (@ pkg build success-log) [(and (@ pkg build success-log)
(@ pkg build dep-failure-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) [(@ pkg build success-log)
(build-status "ok" "success" "ok")] (build-status (@ pkg build success-log)
"ok" "success" "ok")]
[else [else
""]) ""])
(div ,@(let ((docs (or (@ pkg build docs) '()))) (div ,@(let ((docs (or (@ pkg build docs) '())))

2
static/style.css
View File

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