summaryrefslogtreecommitdiff
path: root/website/haunt.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2023-11-12 12:45:23 -0500
committerDavid Thompson <dthompson2@worcester.edu>2023-11-12 12:45:23 -0500
commit2faff242ffd4faf7c8c53e4a9317d5d9c930ad09 (patch)
tree2daee7636b843d6602f77e1cf29b216b0187dfa6 /website/haunt.scm
parent57743abaecf22cfd4b80320b7fea560b583f316f (diff)
Remove obsolete website.
The official Haunt page is hosted on my blog now.
Diffstat (limited to 'website/haunt.scm')
-rw-r--r--website/haunt.scm230
1 files changed, 0 insertions, 230 deletions
diff --git a/website/haunt.scm b/website/haunt.scm
deleted file mode 100644
index c3becb4..0000000
--- a/website/haunt.scm
+++ /dev/null
@@ -1,230 +0,0 @@
-;;; Haunt --- Static site generator for GNU Guile
-;;; Copyright © 2016 David Thompson <davet@gnu.org>
-;;;
-;;; This file is part of Haunt.
-;;;
-;;; Haunt 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.
-;;;
-;;; Haunt 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 Haunt. If not, see <http://www.gnu.org/licenses/>.
-
-(use-modules (haunt site)
- (haunt reader)
- (haunt reader skribe)
- (haunt reader commonmark)
- (haunt asset)
- (haunt page)
- (haunt post)
- (haunt html)
- (haunt utils)
- (haunt builder blog)
- (haunt builder atom)
- (haunt builder assets)
- (srfi srfi-19)
- (ice-9 rdelim)
- (ice-9 match)
- (web uri))
-
-(define %releases
- '(("0.2.1" #t)
- ("0.2" #t)
- ("0.1" #f)))
-
-(define (tarball-url version)
- (string-append "http://files.dthompson.us/haunt/haunt-"
- version ".tar.gz"))
-
-(define (tarball-signature-url version)
- (string-append "http://files.dthompson.us/haunt/haunt-"
- version ".tar.gz.sig"))
-
-(define %download-button
- (match %releases
- (((version _) . _)
- `(a (@ (class "btn btn-primary btn-lg")
- (role "button")
- (href ,(tarball-url version)))
- "Download Haunt " ,version))))
-
-(define (stylesheet name)
- `(link (@ (rel "stylesheet")
- (href ,(string-append "/css/" name ".css")))))
-
-(define (anchor content uri)
- `(a (@ (href ,uri)) ,content))
-
-(define (logo src)
- `(img (@ (class "logo") (src ,(string-append "/images/" src)))))
-
-(define (jumbotron content)
- `(div (@ (class "jumbotron"))
- (div (@ (class "row"))
- (div (@ (class "column-logo"))
- (img (@ (class "big-logo")
- (src "/images/haunt.png"))))
- (div (@ (class "column-info")) ,content))))
-
-(define %cc-by-sa-link
- '(a (@ (href "https://creativecommons.org/licenses/by-sa/4.0/"))
- "Creative Commons Attribution Share-Alike 4.0 International"))
-
-(define %piwik-code
- '((script (@ (type "text/javascript") (src "/js/piwik.js")))
- (noscript
- (p (img (@ (src "//stats.dthompson.us/piwik.php?idsite=3")
- (style "border:0;")
- (alt "")))))))
-
-(define haunt-theme
- (theme #:name "Haunt"
- #:layout
- (lambda (site title body)
- `((doctype "html")
- (head
- (meta (@ (charset "utf-8")))
- (title ,(string-append title " — " (site-title site)))
- ,(stylesheet "reset")
- ,(stylesheet "main")
- ,%piwik-code)
- (body
- (header (@ (class "navbar"))
- (div (@ (class "container"))
- (ul
- (li ,(anchor "home" "/"))
- (li ,(anchor "downloads" "/downloads.html"))
- (li ,(anchor "docs" "/manual/index.html"))
- (li ,(anchor "git"
- "https://git.dthompson.us/haunt.git")))))
- (div (@ (class "container"))
- ,body
- (footer (@ (class "text-center"))
- (p (small "Copyright © 2016 David Thompson"))
- (p
- (small "The text and images on this site are free
-culture works available under the " ,%cc-by-sa-link " license.")))))))
- #:post-template
- (lambda (post)
- `((h2 ,(post-ref post 'title))
- (h3 "by " ,(post-ref post 'author)
- " — " ,(date->string* (post-date post)))
- (div ,(post-sxml post))))
- #:collection-template
- (lambda (site title posts prefix)
- (define (post-uri post)
- (string-append "/" (or prefix "")
- (site-post-slug site post) ".html"))
-
- `(,(jumbotron
- `((p "Haunt is a simple, functional, hackable static site
-generator written in Guile Scheme that gives authors the ability to
-treat websites as programs.")
- ,%download-button))
-
- (p "Haunt isn't your average static site generator. Its
-mission is to give authors the full expressive power of Scheme to
-define every aspect of their websites are generated. Haunt uses a
-simple, functional build system that allows any type of web page to be
-built by writing procedures that return page objects.")
- (p "Haunt has no opinion about what markup language
-authors should use to write posts. Just write the relevant reader
-procedure and Haunt will happily work with that format. Likewise,
-Haunt has no opinion about how authors structure their sites. Haunt
-ships with helpful builder procedures that generate simple blogs or
-Atom feeds, but authors should feel empowered to tweak them, write
-replacements, or add new builders to do things that the Haunt hackers
-didn't think of.")
- (p "Here's what a simple Haunt configuration looks
-like:")
- (pre
- ,(call-with-input-file "../example/haunt.scm" read-string))
-
- (p "With the above saved into a file named "
- (code "haunt.scm")
- " and a "
- (code "posts")
- " directory populated with the articles to publish,
-the site can be built by running "
- (code "haunt build")
- ". Once the site is built, running "
- (code "haunt serve")
- " and visiting "
- (code "localhost:8080")
- " in a web browser will show the results of the build
-without needing to upload the generated files to a web server.")
-
- (h2 "News")
- (ul
- ,@(map (lambda (post)
- `(li
- (a (@ (href ,(post-uri post)))
- ,(post-ref post 'title)
- " — "
- ,(date->string* (post-date post)))))
- (posts/reverse-chronological posts)))
-
- (h2 "License")
- (p "Haunt is "
- (a (@ (href "https://www.gnu.org/philosophy/free-sw.html"))
- "Free Software")
- " available under the "
- (a (@ (href "https://www.gnu.org/licenses/gpl.html"))
- "GNU General Public License")
- " version 3 or later.")
-
- (h2 "Contributing")
- (p "Patches to fix bugs or add new functionality are
-highly encouraged. In lieu of a mailing list, please send patches
-to "
- (code "davet") " at " (code "gnu") " dot " (code "org")
- " for now.")
- (p "To get the latest version of the source code, clone
-the official git repository:")
- (pre "git clone git://dthompson.us/haunt.git")))))
-
-(define (downloads-page site posts)
- (define body
- `((h2 "Downloads")
- (table (@ (class "table"))
- (thead
- (tr (th "Source") (th "GPG signature")))
- (tbody
- ,(map (match-lambda
- ((version signature?)
- (let ((tarball-name (string-append "haunt-" version ".tar.gz")))
- `(tr
- (td (a (@ (href ,(tarball-url version))) ,tarball-name))
- (td ,(if signature?
- `(a (@ (href ,(tarball-signature-url version)))
- ,(string-append tarball-name ".sig"))
- ""))))))
- %releases)))))
-
- (make-page "downloads.html"
- (with-layout haunt-theme site "Downloads" body)
- sxml->html))
-
-(define %collections
- `(("Home" "index.html" ,posts/reverse-chronological)))
-
-(site #:title "Haunt"
- #:domain "dthompson.us"
- #:default-metadata
- '((author . "David Thompson")
- (email . "davet@gnu.org"))
- #:readers (list sxml-reader skribe-reader commonmark-reader)
- #:builders (list (blog #:theme haunt-theme #:collections %collections)
- (atom-feed)
- (atom-feeds-by-tag)
- downloads-page
- (static-directory "images")
- (static-directory "css")
- (static-directory "js")
- (static-directory "manual")))