aboutsummaryrefslogtreecommitdiffstats
path: root/haunt.scm
diff options
context:
space:
mode:
Diffstat (limited to 'haunt.scm')
-rw-r--r--haunt.scm110
1 files changed, 0 insertions, 110 deletions
diff --git a/haunt.scm b/haunt.scm
deleted file mode 100644
index e871e44..0000000
--- a/haunt.scm
+++ /dev/null
@@ -1,110 +0,0 @@
-;;; -*- 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"
- "/index.html"
- `(,(centered-image "images/mainframe_256x256.gif"))))
-
-;; Static "About" page
-(define about-page
- (static-page
- "About"
- "/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 love code and unify 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/cristiancmoises.github.io")
- ". 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"
- "/")
- "?"))))
-
-;; Collection of projects posts
-(define %projects
- `(("Recent Posts" "/projects.html" ,projects-posts)))
-
-;; Collection of research-related posts
-(define %research
- `(("Published Work" "/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 %projects)
- (blog #:theme default-theme #:collections %research)
- home-page
- about-page
- not-found
- (static-directory "css")
- (static-directory "download")
- (static-directory "images")
- (static-directory "music")
- (static-directory "videos")))