Delete haunt.scm

haunt.scm

@@ -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")))