diff options
| -rw-r--r-- | haunt.scm | 7 | ||||
| -rw-r--r-- | people.sxml | 1 |
2 files changed, 5 insertions, 3 deletions
| @@ -48,10 +48,11 @@ | |||
| 48 | (define (menubar where) | 48 | (define (menubar where) |
| 49 | (let ((locations | 49 | (let ((locations |
| 50 | '(("about" "About" "/") | 50 | '(("about" "About" "/") |
| 51 | ("software" "Software" "/en/software") | 51 | ("people" "People" "/en/people") |
| 52 | ("documents" "Documents" "/en/documents") | 52 | ("software" "Software" "/en/software") |
| 53 | ("documents" "Documents" "/en/documents") | ||
| 53 | ("contribute" "contribute" "/en/contribute") | 54 | ("contribute" "contribute" "/en/contribute") |
| 54 | ("blog" "Blog" "/en/blog")))) | 55 | ("blog" "Blog" "/en/blog")))) |
| 55 | `(div (@ (id "menubar") | 56 | `(div (@ (id "menubar") |
| 56 | (class "width-control")) | 57 | (class "width-control")) |
| 57 | (ul | 58 | (ul |
diff --git a/people.sxml b/people.sxml index e9ab88b..f8dd045 100644 --- a/people.sxml +++ b/people.sxml | |||
| @@ -24,6 +24,7 @@ | |||
| 24 | 24 | ||
| 25 | `((title . "Software") | 25 | `((title . "Software") |
| 26 | (author . "The GNU Assembly") | 26 | (author . "The GNU Assembly") |
| 27 | (menu . "people") | ||
| 27 | (date . ,(string->date* "2021-04-14 23:00")) | 28 | (date . ,(string->date* "2021-04-14 23:00")) |
| 28 | 29 | ||
| 29 | (content | 30 | (content |