1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
;;; -*- coding: utf-8 -*-
;;;
;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU General Public License as
;;; published by the Free Software Foundation; either version 3 of the
;;; License, or (at your option) any later version.
;;;
;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;;; General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program. If not, see
;;; <http://www.gnu.org/licenses/>.
(use-modules (haunt builder blog)
(haunt builder assets)
(haunt post)
(haunt site)
(haunt config)
(useful))
;; Static "Home"
(define home-page
(static-page
"Home"
"/site/index.html"
`(,(centered-image "images/mainframe_256x256.gif"))))
;; Static "About" page
(define about-page
(static-page
"About"
"/site/about.html"
`((h1 "About")
(p "This is the personal website of Cristian Cezar Moisés."
" I am a student. (Pronouns: "
(i "he, him, his")
").")
,(centered-image "images/profile.png")
(p "Learning about cybersec,infosec and hacking."
"Information Security Graduate"
,(link* "Ftec"
"https://www.ftec.com.br/")
". My research focused on the "
"Linux Servers Security."
"I'm a free software enthusiast.")
(br)
(p " I like code and i like to mix many projects like threejs + react "
"Check my awesome interactive portfolio "
,(link* "here"
"https://live-one.vercel.app")
". Outside of work, I'm a computerphile — "
"I enjoy learning about and using programming languages "
".This "
"site was written in the LISP dialect Scheme (GNU Guile, version "
,(version)
") and built with the Haunt library (version "
,%haunt-version
") on "
,(strftime "%c" (localtime (current-time)))
". The source code can be found on "
,(link* "GitHub"
"https://github.com/cristiancmoises/hauntweb")
". Check my YouTube channel "
,(link* "SecurityOps" "https://youtube.com/@securityops")
"."))))
(define not-found
(static-page
"404"
"/site/404.html"
`((h1 "404 Page Not Found")
(p "Unfortunately the page you've tried to access doesn't exist!")
(br)
(h2 "Return "
,(link* "Home"
"https://cristiancmoises.github.io/site/")
"?"))))
;; Collection of miscellaneous posts
(define %misc
`(("Recent Posts" "/site/misc.html" ,misc-posts)))
;; Collection of research-related posts
(define %research
`(("Published Work" "/site/research.html" ,research-posts)))
;; Build site
(site #:title
"C.C.M. Homepage"
#:domain
"cristiancmoises.github.io/site/"
#:default-metadata
'((author . "Cristian Cezar Moisés"))
#:readers
(list commonmark-reader*)
#:builders
(list (blog #:theme default-theme #:collections %misc)
(blog #:theme default-theme #:collections %research)
home-page
about-page
not-found
(static-directory "css")
(static-directory "images")))
|
