diff options
Diffstat (limited to 'website/haunt.scm')
| -rw-r--r-- | website/haunt.scm | 230 |
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"))) |