|
|
@ -22,10 +22,10 @@ |
|
|
|
("/contacts.xhtml" "Contacts"))) |
|
|
|
("/contacts.xhtml" "Contacts"))) |
|
|
|
|
|
|
|
|
|
|
|
(define header |
|
|
|
(define header |
|
|
|
`(div (@ (class "header")) |
|
|
|
`(header (@ (class "header")) |
|
|
|
(div (@ (class "container")) |
|
|
|
(div (@ (class "container")) |
|
|
|
(h4 (@ (class "header__logo")) "vilor") |
|
|
|
(h4 (@ (class "header__logo")) "vilor") |
|
|
|
(span (@ (class "header__nav")) |
|
|
|
(nav (@ (class "header__nav")) |
|
|
|
,(let ((idx -1)) |
|
|
|
,(let ((idx -1)) |
|
|
|
(map (lambda (l) |
|
|
|
(map (lambda (l) |
|
|
|
(set! idx (+ idx 1)) |
|
|
|
(set! idx (+ idx 1)) |
|
|
|