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:10:49 +00:00 committed by GitHub
parent b0376f5742
commit 26475c851d
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
haunt.scm
View File

@ -25,14 +25,14 @@
(define home-page (define home-page
(static-page (static-page
"Home" "Home"
"/site/index.html" "https://cristiancmoises.github.io/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"
"/site/about.html" "https://cristiancmoises.github.io/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: "
@ -62,7 +62,7 @@
,(strftime "%c" (localtime (current-time))) ,(strftime "%c" (localtime (current-time)))
". The source code can be found on " ". The source code can be found on "
,(link* "GitHub" ,(link* "GitHub"
"https://github.com/cristiancmoises/hauntweb") "https://github.com/cristiancmoises/cristiancmoises.github.io")
". Check my YouTube channel " ". Check my YouTube channel "
,(link* "SecurityOps" "https://youtube.com/@securityops") ,(link* "SecurityOps" "https://youtube.com/@securityops")
".")))) "."))))
@ -81,17 +81,17 @@
;; Collection of miscellaneous posts ;; Collection of miscellaneous posts
(define %misc (define %misc
`(("Recent Posts" "/site/misc.html" ,misc-posts))) `(("Recent Posts" "https://cristiancmoises.github.io/site/misc.html" ,misc-posts)))
;; Collection of research-related posts ;; Collection of research-related posts
(define %research (define %research
`(("Published Work" "/site/research.html" ,research-posts))) `(("Published Work" "https://cristiancmoises.github.io/site/research.html" ,research-posts)))
;; Build site ;; Build site
(site #:title (site #:title
"C.C.M. Homepage" "C.C.M. Homepage"
#:domain #:domain
"cristiancmoises.github.io/site/" "cristiancmoises.github.io"
#:default-metadata #:default-metadata
'((author . "Cristian Cezar Moisés")) '((author . "Cristian Cezar Moisés"))
#:readers #:readers