From 49a34570cec2339c6fc8965474a41900920442b4 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 8 Aug 2015 09:42:24 -0400 Subject: Add website. --- .gitignore | 1 + website/Makefile | 2 + website/css/main.css | 254 ++++++++++++++++++++++++ website/css/reset.css | 427 +++++++++++++++++++++++++++++++++++++++++ website/haunt.scm | 203 ++++++++++++++++++++ website/images/haunt.png | Bin 0 -> 8027 bytes website/posts/0.1-release.sxml | 41 ++++ 7 files changed, 928 insertions(+) create mode 100644 website/Makefile create mode 100644 website/css/main.css create mode 100644 website/css/reset.css create mode 100644 website/haunt.scm create mode 100644 website/images/haunt.png create mode 100644 website/posts/0.1-release.sxml diff --git a/.gitignore b/.gitignore index ad0c947..c5c4fa4 100644 --- a/.gitignore +++ b/.gitignore @@ -14,3 +14,4 @@ /example/site/ /scripts/haunt *.tar.gz +/website/site diff --git a/website/Makefile b/website/Makefile new file mode 100644 index 0000000..dab5ed1 --- /dev/null +++ b/website/Makefile @@ -0,0 +1,2 @@ +publish: + rsync -P -rvz --delete site/ blog@dthompson.us:/var/www/haunt --cvs-exclude diff --git a/website/css/main.css b/website/css/main.css new file mode 100644 index 0000000..3469ba4 --- /dev/null +++ b/website/css/main.css @@ -0,0 +1,254 @@ +html { + font-size: 10px; + + -webkit-tap-highlight-color: rgba(0, 0, 0, 0); +} + +body { + font-family: "Helvetica Neue", Helvetica, Arial, sans-serif; + font-size: 14px; + line-height: 1.42857143; + color: #333; + background-color: #fff; +} + +.container { + padding-right: 15px; + padding-left: 15px; + margin-right: auto; + margin-left: auto; +} + +@media (min-width: 768px) { + .container { + width: 750px; + } +} + +@media (min-width: 992px) { + .container { + width: 970px; + } +} + +@media (min-width: 1200px) { + .container { + width: 1170px; + } +} + +.text-center { + text-align: center; +} + +.full-width { + width: 100%; +} + +.center { + margin-left: auto; + margin-right: auto; +} + +.navbar { + padding: 0; + min-height: 40px; + margin-bottom: 20px; + background-color: #333; + border-top: 1px solid #a1a1a1; + border-bottom: 1px solid #a1a1a1; +} + +.navbar .container { + padding: 0; + position: relative; + min-height: 40px; +} + +.navbar ul { + padding: 0; + height: 100%; +} + +.navbar li { + display: inline; + text-decoration: none; + padding-right: 30px; + font-size: 20px; + height: 100%; +} + +.navbar .logo { + float: left; +} + +.navbar a { + color: #fff; + text-decoration: none; +} + +.jumbotron { + padding: 30px; + margin-bottom: 30px; + color: inherit; + background-color: #eee; + font-size: 20px; +} + +.row { + display: table; + margin-right: -15px; + margin-left: -15px; + width: 100%; +} + +.column-logo, .column-info { + position: relative; + min-height: 1px; + padding-left: 15px; + padding-right: 15px; +} + +.column-logo { + width: 40%; + float: left; +} + +.column-info { + width: 50%; + float: left; +} + +.big-logo { + display: block; + margin-left: auto; + margin-right: auto; +} + +.btn { + display: inline-block; + padding: 6px 12px; + margin-bottom: 0; + font-size: 14px; + font-weight: normal; + line-height: 1.42857143; + text-align: center; + white-space: nowrap; + vertical-align: middle; + cursor: pointer; + -webkit-user-select: none; + -moz-user-select: none; + -ms-user-select: none; + user-select: none; + background-image: none; + border: 1px solid transparent; + border-radius: 4px; + text-decoration: none; +} + +.btn:focus, +.btn:active:focus, +.btn.active:focus { + outline: thin dotted; + outline: 5px auto -webkit-focus-ring-color; + outline-offset: -2px; +} + +.btn:hover, +.btn:focus { + color: #286090; + text-decoration: none; +} + +.btn:active, +.btn.active { + background-image: none; + outline: 0; + -webkit-box-shadow: inset 0 3px 5px rgba(0, 0, 0, .125); + box-shadow: inset 0 3px 5px rgba(0, 0, 0, .125); +} + +.btn-primary { + color: #fff; + background-color: #428bca; + border-color: #357ebd; +} + +.btn-primary:hover, +.btn-primary:focus, +.btn-primary:active, +.btn-primary.active { + color: #fff; + background-color: #3071a9; + border-color: #285e8e; +} + +.btn-primary:active, +.btn-primary.active { + background-image: none; +} + +.btn-lg, +.btn-group-lg > .btn { + padding: 10px 16px; + font-size: 18px; + line-height: 1.33; + border-radius: 6px; +} + +pre, +blockquote { + border: 1px solid #999; + + page-break-inside: avoid; +} + +pre { + display: block; + padding: 9.5px; + margin: 0 0 10px; + font-size: 13px; + line-height: 1.42857143; + color: #333; + word-break: break-all; + word-wrap: break-word; + background-color: #f5f5f5; + border: 1px solid #ccc; + border-radius: 4px; +} + +th { + text-align: left; +} + +.table { + width: 100%; + max-width: 100%; + margin-bottom: 20px; +} + +.table > thead > tr > th, +.table > tbody > tr > th, +.table > tfoot > tr > th, +.table > thead > tr > td, +.table > tbody > tr > td, +.table > tfoot > tr > td { + padding: 8px; + line-height: 1.42857143; + vertical-align: top; + border-top: 1px solid #ddd; +} + +.table > thead > tr > th { + vertical-align: bottom; + border-bottom: 2px solid #ddd; +} + +.table > caption + thead > tr:first-child > th, +.table > colgroup + thead > tr:first-child > th, +.table > thead:first-child > tr:first-child > th, +.table > caption + thead > tr:first-child > td, +.table > colgroup + thead > tr:first-child > td, +.table > thead:first-child > tr:first-child > td { + border-top: 0; +} diff --git a/website/css/reset.css b/website/css/reset.css new file mode 100644 index 0000000..458eea1 --- /dev/null +++ b/website/css/reset.css @@ -0,0 +1,427 @@ +/*! normalize.css v3.0.2 | MIT License | git.io/normalize */ + +/** + * 1. Set default font family to sans-serif. + * 2. Prevent iOS text size adjust after orientation change, without disabling + * user zoom. + */ + +html { + font-family: sans-serif; /* 1 */ + -ms-text-size-adjust: 100%; /* 2 */ + -webkit-text-size-adjust: 100%; /* 2 */ +} + +/** + * Remove default margin. + */ + +body { + margin: 0; +} + +/* HTML5 display definitions + ========================================================================== */ + +/** + * Correct `block` display not defined for any HTML5 element in IE 8/9. + * Correct `block` display not defined for `details` or `summary` in IE 10/11 + * and Firefox. + * Correct `block` display not defined for `main` in IE 11. + */ + +article, +aside, +details, +figcaption, +figure, +footer, +header, +hgroup, +main, +menu, +nav, +section, +summary { + display: block; +} + +/** + * 1. Correct `inline-block` display not defined in IE 8/9. + * 2. Normalize vertical alignment of `progress` in Chrome, Firefox, and Opera. + */ + +audio, +canvas, +progress, +video { + display: inline-block; /* 1 */ + vertical-align: baseline; /* 2 */ +} + +/** + * Prevent modern browsers from displaying `audio` without controls. + * Remove excess height in iOS 5 devices. + */ + +audio:not([controls]) { + display: none; + height: 0; +} + +/** + * Address `[hidden]` styling not present in IE 8/9/10. + * Hide the `template` element in IE 8/9/11, Safari, and Firefox < 22. + */ + +[hidden], +template { + display: none; +} + +/* Links + ========================================================================== */ + +/** + * Remove the gray background color from active links in IE 10. + */ + +a { + background-color: transparent; +} + +/** + * Improve readability when focused and also mouse hovered in all browsers. + */ + +a:active, +a:hover { + outline: 0; +} + +/* Text-level semantics + ========================================================================== */ + +/** + * Address styling not present in IE 8/9/10/11, Safari, and Chrome. + */ + +abbr[title] { + border-bottom: 1px dotted; +} + +/** + * Address style set to `bolder` in Firefox 4+, Safari, and Chrome. + */ + +b, +strong { + font-weight: bold; +} + +/** + * Address styling not present in Safari and Chrome. + */ + +dfn { + font-style: italic; +} + +/** + * Address variable `h1` font-size and margin within `section` and `article` + * contexts in Firefox 4+, Safari, and Chrome. + */ + +h1 { + font-size: 2em; + margin: 0.67em 0; +} + +/** + * Address styling not present in IE 8/9. + */ + +mark { + background: #ff0; + color: #000; +} + +/** + * Address inconsistent and variable font size in all browsers. + */ + +small { + font-size: 80%; +} + +/** + * Prevent `sub` and `sup` affecting `line-height` in all browsers. + */ + +sub, +sup { + font-size: 75%; + line-height: 0; + position: relative; + vertical-align: baseline; +} + +sup { + top: -0.5em; +} + +sub { + bottom: -0.25em; +} + +/* Embedded content + ========================================================================== */ + +/** + * Remove border when inside `a` element in IE 8/9/10. + */ + +img { + border: 0; +} + +/** + * Correct overflow not hidden in IE 9/10/11. + */ + +svg:not(:root) { + overflow: hidden; +} + +/* Grouping content + ========================================================================== */ + +/** + * Address margin not present in IE 8/9 and Safari. + */ + +figure { + margin: 1em 40px; +} + +/** + * Address differences between Firefox and other browsers. + */ + +hr { + -moz-box-sizing: content-box; + box-sizing: content-box; + height: 0; +} + +/** + * Contain overflow in all browsers. + */ + +pre { + overflow: auto; +} + +/** + * Address odd `em`-unit font size rendering in all browsers. + */ + +code, +kbd, +pre, +samp { + font-family: monospace, monospace; + font-size: 1em; +} + +/* Forms + ========================================================================== */ + +/** + * Known limitation: by default, Chrome and Safari on OS X allow very limited + * styling of `select`, unless a `border` property is set. + */ + +/** + * 1. Correct color not being inherited. + * Known issue: affects color of disabled elements. + * 2. Correct font properties not being inherited. + * 3. Address margins set differently in Firefox 4+, Safari, and Chrome. + */ + +button, +input, +optgroup, +select, +textarea { + color: inherit; /* 1 */ + font: inherit; /* 2 */ + margin: 0; /* 3 */ +} + +/** + * Address `overflow` set to `hidden` in IE 8/9/10/11. + */ + +button { + overflow: visible; +} + +/** + * Address inconsistent `text-transform` inheritance for `button` and `select`. + * All other form control elements do not inherit `text-transform` values. + * Correct `button` style inheritance in Firefox, IE 8/9/10/11, and Opera. + * Correct `select` style inheritance in Firefox. + */ + +button, +select { + text-transform: none; +} + +/** + * 1. Avoid the WebKit bug in Android 4.0.* where (2) destroys native `audio` + * and `video` controls. + * 2. Correct inability to style clickable `input` types in iOS. + * 3. Improve usability and consistency of cursor style between image-type + * `input` and others. + */ + +button, +html input[type="button"], /* 1 */ +input[type="reset"], +input[type="submit"] { + -webkit-appearance: button; /* 2 */ + cursor: pointer; /* 3 */ +} + +/** + * Re-set default cursor for disabled elements. + */ + +button[disabled], +html input[disabled] { + cursor: default; +} + +/** + * Remove inner padding and border in Firefox 4+. + */ + +button::-moz-focus-inner, +input::-moz-focus-inner { + border: 0; + padding: 0; +} + +/** + * Address Firefox 4+ setting `line-height` on `input` using `!important` in + * the UA stylesheet. + */ + +input { + line-height: normal; +} + +/** + * It's recommended that you don't attempt to style these elements. + * Firefox's implementation doesn't respect box-sizing, padding, or width. + * + * 1. Address box sizing set to `content-box` in IE 8/9/10. + * 2. Remove excess padding in IE 8/9/10. + */ + +input[type="checkbox"], +input[type="radio"] { + box-sizing: border-box; /* 1 */ + padding: 0; /* 2 */ +} + +/** + * Fix the cursor style for Chrome's increment/decrement buttons. For certain + * `font-size` values of the `input`, it causes the cursor style of the + * decrement button to change from `default` to `text`. + */ + +input[type="number"]::-webkit-inner-spin-button, +input[type="number"]::-webkit-outer-spin-button { + height: auto; +} + +/** + * 1. Address `appearance` set to `searchfield` in Safari and Chrome. + * 2. Address `box-sizing` set to `border-box` in Safari and Chrome + * (include `-moz` to future-proof). + */ + +input[type="search"] { + -webkit-appearance: textfield; /* 1 */ + -moz-box-sizing: content-box; + -webkit-box-sizing: content-box; /* 2 */ + box-sizing: content-box; +} + +/** + * Remove inner padding and search cancel button in Safari and Chrome on OS X. + * Safari (but not Chrome) clips the cancel button when the search input has + * padding (and `textfield` appearance). + */ + +input[type="search"]::-webkit-search-cancel-button, +input[type="search"]::-webkit-search-decoration { + -webkit-appearance: none; +} + +/** + * Define consistent border, margin, and padding. + */ + +fieldset { + border: 1px solid #c0c0c0; + margin: 0 2px; + padding: 0.35em 0.625em 0.75em; +} + +/** + * 1. Correct `color` not being inherited in IE 8/9/10/11. + * 2. Remove padding so people aren't caught out if they zero out fieldsets. + */ + +legend { + border: 0; /* 1 */ + padding: 0; /* 2 */ +} + +/** + * Remove default vertical scrollbar in IE 8/9/10/11. + */ + +textarea { + overflow: auto; +} + +/** + * Don't inherit the `font-weight` (applied by a rule above). + * NOTE: the default cannot safely be changed in Chrome and Safari on OS X. + */ + +optgroup { + font-weight: bold; +} + +/* Tables + ========================================================================== */ + +/** + * Remove most spacing between table cells. + */ + +table { + border-collapse: collapse; + border-spacing: 0; +} + +td, +th { + padding: 0; +} diff --git a/website/haunt.scm b/website/haunt.scm new file mode 100644 index 0000000..f1322a9 --- /dev/null +++ b/website/haunt.scm @@ -0,0 +1,203 @@ +;;; Haunt --- Static site generator for GNU Guile +;;; Copyright © 2015 David Thompson +;;; +;;; 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 . + +(use-modules (haunt site) + (haunt reader) + (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.1" "1f751f234e382ed0f13d79e4c106373e9ae55c23"))) + +(define (tarball-url version) + (string-append "http://files.dthompson.us/haunt/haunt-" + version ".tar.gz")) + +(define %download-button + (match %releases + (((version sha1) . _) + `(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 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")) + (body + (header (@ (class "navbar")) + (div (@ (class "container")) + (ul + (li ,(anchor "home" "/")) + (li ,(anchor "downloads" "/downloads.html")) + (li ,(anchor "git" + "https://git.dthompson.us/haunt.git"))))) + (div (@ (class "container")) + ,body + (footer (@ (class "text-center")) + (p (small "Copyright © 2015 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 "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 + `(,(jumbotron + `(,%download-button + (p (small "SHA1 checksum: " + ,(match %releases (((_ sha1) . _) sha1)))))) + (h2 "Downloads") + (table (@ (class "table")) + (thead + (tr (th "Source") (th "SHA1"))) + (tbody + ,(map (match-lambda + ((version sha1) + `(tr + (td (a (@ (href ,(tarball-url version))) + ,(string-append "haunt-" version ".tar.gz"))) + (td ,sha1)))) + %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 html-reader) + #:builders (list (blog #:theme haunt-theme #:collections %collections) + (atom-feed) + (atom-feeds-by-tag) + downloads-page + (static-directory "images") + (static-directory "css"))) diff --git a/website/images/haunt.png b/website/images/haunt.png new file mode 100644 index 0000000..4e18300 Binary files /dev/null and b/website/images/haunt.png differ diff --git a/website/posts/0.1-release.sxml b/website/posts/0.1-release.sxml new file mode 100644 index 0000000..17d18ca --- /dev/null +++ b/website/posts/0.1-release.sxml @@ -0,0 +1,41 @@ +;;; -*- scheme -*- + +(use-modules (haunt utils)) + +`((title . "Introducing Haunt") + (date . ,(string->date* "2015-08-08 10:00")) + (tags "news" "releases") + (summary . "Haunt 0.1 released") + (content + ((p "I am pleased to announce the first alpha release of Haunt, yet +another static site generator. Does the world really need another one +of those? No, but Haunt is special because it is written in Guile +Scheme, a clean and elegant Lisp dialect, which allows users to +compose their websites using functional programming techniques. Using +a general-purpose, extensible programming language to build websites +allows Haunt users to view their website as not just mere data, but a +program. Haunt empowers the user to build the abstractions they need +to make a great static website without getting in the way.") + (p "At its core, Haunt is a very simple program. To build your +site, Haunt takes your posts and static assets as input, passes them +to a series of user-defined building procedures that return one or +more pages, and outputs all of the generated pages to the file system. +That's all there is to it. All of the \"good stuff\" is implemented +in the builder procedures. Haunt 0.1 comes with simple blog and Atom +feed generators.") + (p "Naturally, this website is built with Haunt. You can see its +complete source code in the " + (code "website") " directory in Haunt's " + (a (@ (href "https://git.dthompson.us/haunt.git/tree/HEAD:/website")) + "official git repository") + ".") + (p "The Haunt 0.1 release tarball URL can be found on the " + (a (@ (href "/downloads.html")) "downloads page") + ".") + (p "Haunt is built to be as hackable as possible, and patches to +improve it are very much welcome. In particular, new post readers for +common formats such as org-mode and Markdown are desired, along with a +more robust blog builder and theme engine. In lieu of a mailing list, +patches may be sent to " + (code "davet") " at " (code "gnu.org") ".") + (p "Happy haunting!")))) -- cgit v1.2.3