(define* (search-form #:key (standalone? #f))
`(form (@ (id "search")
- ,@(if standalone?
- '((class "row"))
- '())
+ ,(if standalone?
+ '(class "row")
+ '(class "navbar-form navbar-right"))
(action "/search"))
(div
- (@ (class "form-group"))
+ (@ (class ,(if standalone?
+ "input-group input-group-lg"
+ "input-group")))
(input (@ (type "text")
+ (class "form-control")
(id "query")
(name "query")
- (placeholder "input search query"))))
- (button
- (@ (type "submit")
- (class "btn btn-lg btn-primary btn-block")
- ,@(if standalone? '() '((style "display:none"))))
- "Search")))
+ (placeholder "input search query")))
+ (span (@ (class "input-group-btn"))
+ (button
+ (@ (type "submit")
+ (class ,(string-append (if standalone? "btn-lg " "")
+ "btn btn-primary")))
+ "Search")))))
(define* (header #:key (search-bar? #t))
- `(div
- (@ (id "header"))
+ `(nav
+ (@ (id "header") (class "navbar navbar-default"))
(div
- (@ (class "flex"))
- (a (@ (href "/") (class "logo"))
- (img (@ (src "/img/logo.png")
- (alt "Guix patch tracker"))))
- ,@(if search-bar? (list (search-form)) '()))))
+ (@ (class "container-fluid"))
+ (div
+ (@ (class "navbar-header"))
+ (div (@ (class "navbar-brand"))
+ (a (@ (href "/") (class "logo"))
+ (img (@ (src "/img/logo.png")
+ (alt "Guix patch tracker"))))))
+ ,@(if search-bar?
+ `(,(search-form))
+ '()))))
(define (index)
(layout