From 49a34570cec2339c6fc8965474a41900920442b4 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 8 Aug 2015 09:42:24 -0400 Subject: [PATCH] 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 0000000000000000000000000000000000000000..4e18300b79a369cfd9b9da315239343ab7f8d981 GIT binary patch literal 8027 zcmV-hAEe-kP)n%x0AcR07L=lLrg0fCf7DZ%nMCHQ` z6w!fk38Od>M;u`Q0R9IaBC^Q=gyCr0cI2s7U)@Op z0S#rScoY?tlNBp=kV`LJb`ro}gwYQGc@94pg+dWwEC7Az#WfaDQH`~kGd~TKmg0I< zvaDafk96&NPp+sQ)n%Q-&q$$AL;!sNpd1iJqF1l61v_>ewZ&M4Qd(L`#*A5BhN%+( zbaeJ{DHIAf*#}5JQhNFu6(uDVwi~P%j=61*P#iyAOnkmn zQPxza86Kj0qYL^K3M|28dQ}i%qk|g(X|VkM&ZXC>=|IzkVfs@Y z)~`@tSPiw?N`k93s^(lk8Z3ZD+M-2U+_pi|%$&JFw5WTB!_RzunEpc!>sKf+(Donw z-qjja69A;qy8r%<&F7SHfpzQlitf$nDL_AuTWs1{n)#nm+lxK4c4ep&y`z| z2g?l#3d)Gj7cVl-PV%kG`V|Tcw07d^59|s?rD~Oq9Y>cG6qLDbdrZ;0_pPGr591ts z_O!K}3PmIl1s43kdo8Tc5I{E4n3&|Ml`Ef)ZQ3-(LiNs*mNr!M{2q3sB07Etbtx1^ z7-NMHD~;AC*b|?5<^zB4-YFKUc84B4x`;N!Xy-&ds!>Ku5$XKF3L#b*tsk+nZn|k{ zWqNv=MQYupd-ql%qvfO_sS7(RDH=8r6NZD1$LiE+SZQ7NV}(*wR8G8JuPF3kxI^#Z zXNqoxB9h>(j&T&>CKLcbe7;z1^X5Zt+ZoI0(4oI*9ime)D7z`T)rPW)NMbKUfFu4x zKn_d(_P5ofZ{KrFs&keTCraV=+aH4qE*J=7$4-U=2Wl@V?AC3tNK9v2Dp#8-%HNdH zQbZC>-L60!Acuurx{NEpZlD?|6cv?|3oqr;FDc6UfT?%_Y-g3{BI>_1BN3-p{5@HSguc7r((6?miB@k8Kpa z3PmKr+l~+Iq&GS|j01grp^!(paE{&=v)|GRW)i4nQj ze65589MGXqn8C+6*4%F8Jcrup(yG-ZrwR+pPxng7%d5!b$@8>s-TIP`Ki=hZ2MWcW zJ$WQHHkNr$^XI=;94#O@aY0Gla#6^clL=SsQCZsjOn){-UP)M(&Srp!2f zEH*ZleD&3@PTC_Onx>JVLnm=}l%6tWWv#`MNlEQReywu5UkK2kpZ=_e~I1E(8yc6KiD`Fu6bY2CUF$;~Zx)G+aQ@x^b2_cde2+qH~VTG}|# z8bl|I)|V8$3PmKrYa@4Kg&6T^U5TmO+_{qz{QfiImo0mP1OhePE{6^sfIIG(suALT z`^w2Fga;m&AWV^wkPu(%Z>gzi?%#kyQMYM=JyF(Z4ZvJ8c<{Wkkt1t{C#_xkJT;zc z&6+;Yo`%2TJZ z(22cLQ)?TocI}!0IGe#xO`m#tPJ;YLCaSJ@?#J zCq{&X5JIL;{~T4XU`b3&q{=BQEGGa>c{^yU;i00TGa2~p>wPy zkcl=9K3`nLs#W#}o~~K*6Y+TBMHw1ulz{`UVkWe2(PGd^&b3Y$tql~t3Pq$4zFSmy zDFJ|eVdZDggQiylz;#BHiW;@HZQBuQgTC>`xl%ov=;-8%wQGN}&0y``eVimDr12JS zQcFh0lT4%4r%#64JuPLl6p;+?M_s18kM(KI7oBk4c^4P;?AeNX%;(dj8c;>W@u*Rw zx>wDa^93Om$8Z%DmBW}ZkNjRx@D1AW7o<<0G^S7Q?6XsO>#7urhK^NfX|BQ=tvf|0 zTzl<9OlNk}rnQ~dA_%GQKm71zFn;`76=h|(nLQDjMqt8(7xH)RT!>ob98SM}=QEEb zC#Se=v{cVZ5vgni3)6vPjh4{rTzz#9rqN1BXkoO%p5@C&NB8f4@9}Nh#50g0=Fa_~ zeD&%{@)i^T&O5IIbm-86c|18e(QTs@jxu5jH%S11m7s6LYGrDs{g{(@dzBFYAT3(7 zucXZy23fW&OUkE3D}H}$)k6=ht12(AGUUfvyLNlPQ;O&sXXbJOjeQYr!9L2N}bMFRi)=jXU-Nwc!DEvtOrzGJI?_(3jue%G!X z5+5ILO7BM>@n624~5Zf=7vDk>*2F)^0i zOru7P$-H@M39ok-*(xF2qQ~FxAOcCn(iK@&pA(xr0I=h%{x(wXercY>;O!-k(s z%lG+wNQV;_3hab7K#+T z_~I6f%_7Cc6(lJs$#SCw0A#^}52!jvjJVCTp}gUSdr`;x&!@F z0C)@ZB|457EpAVxXV3pb4Gn`-R8*1f-P0^JSYEG}>eo7cyx6qt^z^w>_t(00e>aWR zZ(%xFJuTGMZ((wzXKxhsoF}G+M_f zdV?Gi+;b%W90hgyBNwLVv+Dnp?Q%o7H zXP#Lr)U$GB7HQI?iIm(~vtBlIV^>@;gVo@jFj_SK<4(c7mIFXXimU|C{Svfm2H1HM z9CpK*o}vbN&r%IrttATV*`9tnh})edn+G z_I>xw(=^Sn%_0*fyyWKakeAQPjNzdf3=Qo0MGj{qMK`O=b)Y`=5nh038JLVrujW4- z9ifKO6a#n)Jf0|W_;8Wo#!Vv-(8!x_ZYP5W-=cZFUaH=-v@6Kgtp`o%$;~Y$fB*aP zKwR9JA*0{#CyN)qWBML4GTvs*9y$>bU(9=FVP(67T-HZjU{%E#3}@)&mAy9CslM?F z;GXM`CiRH2mJ+aFj|JLp#ivWJUbmPY8uG}=DI`mle5p;GxG-?jO>+WMr>@erY&m49 zj-yA5$bto*Y9mKJ7}&JQ*n~nj)2DyprqL?py|b_)8+*mNuhmvmoI)RlK1?aKsZLH2 zT$y0^Y%Qku6IwLTX910{1tH&b8{rN$rcHa__!z1l^VnlqEI(kG*%yLK;LeJTyz^@B>`;AyJ*CS?rKM63QlhuD1(#=O05Bx%*g62X(nOtZ z2Y@A#*Tf>uL5DoBK6K_slbF~^yXc~Gu<{!eQBksc-&zVr`6|$tR2bnfs5+K06kFG3H$)?Z^>)A0zkj&e|tdpCk1C$zXsh`XqJf} zHxYx`SCsXmSPR;R&K*k+8#amf{jN67h$SkD+1{K;6C>)K1OQ-+3HiKh*PDj%36eMw09$e$Pe^@1v*%=&BoXy zabyRFIjl8q7(dK-ll21t$fw9Pv=^TMTK(^qxE|}<3@r;Na-x7At0^*(X_KsjF1O6~CRd78POqK_<(V~s>m|eL}okj&xQ=3WDwPE4+dsss>vyIv;pI9Vk zGw0Y;gEGeh-zPR30KVlMPebVNg8A?a+PiIUQYMzOB+kW7lAQv5!h+Xh$_6=u$->eZ zDw@$^-t@3xW0flUF96-oB;s0Zg(PrdRRDm6 zdj?iRfbTyHg}2re8!d0C-3a#_bNwDehjy)VMk_bB1h#L_f&KfBkdl%TXx%y)1`qD) zNle7d!pae$M$5{;);*kKXB&`r9q=3eAf%k3pl=Au!vlJ72rQS=cR_%!F zHe?vquKg((%^a??(9V}u4a-+xb<{e~;V%o%K`Xl!4dZ}5W}uEiSTg6EkSU`F3pddL z7@NsH!H`9psic7k7B=jNFJlQEIB-Up<*nR84jed1rc7C^rKGe*IUyf?^uOXQgd|zB z<|o$6v3s2!aPHOWAq?{yF(8Zgj^2`#b+COVbV?#^<)j^7h-iSdPH~waM zBR9);-yI-r+N7ckmDlSfX=#^{#fv{6<>ghj)aT7Ne{joaUB}RyYlE(J3|#~OR!Yd( z&yiy^aB~GmX0Uu@P`1?umW5fPB?>Pv0&6Ql?DvIfqiCZQ>WF7%flNr~TXxY!t*!T5 zo8+E*?t}vevTOX!Sh z^@kk}>)pL=gRU=uy%gkP2|2ul)?Z7=3FTH0r-UACP&NU!gS!v#!!jZTqw#92-lQuw zA=GHiWSw;Ro@)2#`!%+c^B8}(V*((XbF7g? zIu4q+b};C(;5_aIfW?w>1Hd*~JtbxFF#8ShdKaSSB8!zlqv(4My}@M0ITe>(*3MLI z8Va1@q1`>L7B1+dVTHjqyX0mMh{Gl38Ia5Kvl;EZ(V#s;nRm&12UaX>$Lg|8R;baU zcJ-P!zoMvXSC&0fgraF0%WB!}(`rijn-h8I&A@slrWVdtvq*3pv%zRM`GVuT^^r2r z8n28Y=QVz-eVncvE$T&=UV3Y+*Q;{=VJI(W+6mK1`vuU3Wmfwyu%si;V>QGB7S!QB z#5uAXVf-dI{*t6T8LZ00S{Eh@ganNiGn-}q{_U(v@K*0BC@5z29_;S*&?X+NX#7SP zg*=aCRISR0Au=+5lawb~CS=7PjI3E%RszOwtk^k67OR}`(mkz-jN?@U2evg|od!Zt z(MgukvU_6-n)B7nk`)oW;qLiJ8SgUwZdI_RD6}C4mv#-)=!2 zWU(R>suaPGo%(`fV|!Ni>0|Z21@)IhhYqqFrgrzVXundw+pLoXHsbsq#^0@)sm=zm zFYznE@lY^BtA!HsXmn!y{W0YAtXX6L`~0dmAkM+)mhNe#(hm0PH`X5=?doO?b&9=v zcd@3M-Pj$*j%auc*x^DjayuL=b5x0jh*k{gLNU|R;SJ}pn}^sNJxym2;v8Fy7Il+= ze*Jp65~NudDJUq1ty@1~J$N^EhH2u0P5`+yBtKLBW@KiM#Vdm29+2xDi9!#I`hUL# zwqIE$+<_ONZdV9QE5tdL>JENj)L+Mr9h20wA(CgG-3%2K2Uy)wH+ouDHvVvU--XPq zQR`FE?8(=G+6~}i*uuy5-_mt z(DAkl)_xOUZlg!I5=HQdT&;dh+u81F%yk5iq!; z(PWyi`1tPjB%P`Uq^JJ_lhiD<7~QD`!!Cx-Y#Vjb^zAYskJZ}>0N$8{lEaY4E7%-f zynJG;dyv`ID_D#=uUYcUydMC4S00vZOxk7Ib%qykucZlW-~L8R(h=w9myps@b3L|# zf-;howcE5DD_FhyTUmoe0Piy~!fy2d+d%`G-upQ@?=dF7Rj+Lc${qn&kD*TDJb_t&0yVih`* zX?}hwY1tB&gFdVn=`CP6%Ft=&4l&`ntO)54rC)ZUU>9psM<*7RCy@1^@d`txD54)j z6x7~W7wZqKpw!7Q)NbE^0dq_ltvPdEts(E;duL1Km@g_SC%4`@wN}0Eyz?K1a@BwF z#gF8|3%gT4lB=)21=Wk2G-C?Q5pn@8HW@56n`FTb3H>TTuam5?Dru0el1Z@jUCDmM_& zNLt!hGmXhkzH~uvsE%0{%T5973;`y%GzxTwa8Rd_n7Z`_>!^Wsz0`1={01?EM=6+! z8>2SH(W76JcEmsQ&`R#dmX=(IC7EcneFw^7Glkblkr&{N2`l}>2`;0^BQHrFLPM3);`Y-xl( z8&ls7^&#JO+dEQIb&ovq9_nTN{Bth#`VT++g~Z37h59&SV`I5KsEr$cBS}eT8!|8> zMm&B>)6Uq$qeoAXX3aWMd!rJ?ZnlN!ssw%ecRNW3dyQg{b3t!>yl<-%^q!8}!=F&b zf$r3&)%Q5q>n;cq2WOs}k)U5Y*bir(!_8&{Q9p+C^!EZ-gY~a}eTMFd%$v8aRxc?t z^MAzWi7|s(z?QM z(1%l2XJ@dJB+$bb?3|3@F~lXkECv84=_nRzL(9nc2xYV~Gr!V29uK+!_v$tJwA`vH zjbvnepaFQL4Z*Z&@6@QDrfFoxjL$TW$8Xvn;`hf_PM`ic89jOx0q}^n8IKgBrBE~& zs15DzyWbZYtwoDA5gCIOELmCm$&n*PW*0Jv0hgJrMai>mIkehG* zPXKWK1ktwP)umA>KOY6Z3dgPTKIrWr{mBOT{HPYJ(k9ip`I3JU?L!nSeKy7UO`_B)Y2_^WP z0JLNU%kh%6$ruCCYH{8gyYPa|a4<`QzBWLk#ep= z$P(>y#{wI-#Y=Wa^Y_t)k_v^wB&^JrydtxXikCViN3yQGIvGlkUrl(fA6EI0Bcm&v zNkkFY^QuN)UC_{3PrtU2;hyDTglaejE9=_sRU~bmO`PZV_*yxW=n7<7ytm@ zgTAe}LZN7&hzu5XhEJhTC>(*eL}s;%^-?Gl3Mw>byaoU_x>+fOLZRUCJ)ALEM?g8a d6$(WJ^8e;=P{XnpY@+}G002ovPDHLkV1jwxIi&yq literal 0 HcmV?d00001 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!"))))