cristiancmoises
/
hauntweb
mirror of https://github.com/cristiancmoises/cristiancmoises.github.io
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Update haunt.scm

main
Cristian Cezar Moisés 2024-02-13 03:07:31 +00:00 committed by GitHub
parent 69f51f531c
commit dd6b715579
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
haunt.scm
View File

@ -25,14 +25,14 @@
(define home-page (define home-page
(static-page (static-page
"Home" "Home"
"index.html" "/site/index.html"
`(,(centered-image "images/mainframe_256x256.gif")))) `(,(centered-image "images/mainframe_256x256.gif"))))
;; Static "About" page ;; Static "About" page
(define about-page (define about-page
(static-page (static-page
"About" "About"
"about.html" "/site/about.html"
`((h1 "About") `((h1 "About")
(p "This is the personal website of Cristian Cezar Moisés." (p "This is the personal website of Cristian Cezar Moisés."
" I am a student. (Pronouns: " " I am a student. (Pronouns: "
@ -70,7 +70,7 @@
(define not-found (define not-found
(static-page (static-page
"404" "404"
"404.html" "/site/404.html"
`((h1 "404 Page Not Found") `((h1 "404 Page Not Found")
(p "Unfortunately the page you've tried to access doesn't exist!") (p "Unfortunately the page you've tried to access doesn't exist!")
(br) (br)
@ -81,11 +81,11 @@
;; Collection of miscellaneous posts ;; Collection of miscellaneous posts
(define %misc (define %misc
`(("Recent Posts" "misc.html" ,misc-posts))) `(("Recent Posts" "/site/misc.html" ,misc-posts)))
;; Collection of research-related posts ;; Collection of research-related posts
(define %research (define %research
`(("Published Work" "research.html" ,research-posts))) `(("Published Work" "/site/research.html" ,research-posts)))
;; Build site ;; Build site
(site #:title (site #:title