dan
/
haunt
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

website: Add 0.2 release announcement.

This commit is contained in:
David Thompson 2016-04-24 15:11:41 -04:00
parent 4130a355d3
commit 28fc90b25e
2 changed files with 56 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
website/haunt.scm
View File

@ -1,5 +1,5 @@
;;; Haunt --- Static site generator for GNU Guile
;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2016 David Thompson <davet@gnu.org>
;;;
;;; This file is part of Haunt.
;;;
@ -18,6 +18,7 @@
(use-modules (haunt site)
(haunt reader)
(haunt reader skribe)
(haunt asset)
(haunt page)
(haunt post)
@ -32,15 +33,20 @@
(web uri))
(define %releases
'(("0.1" "c81dbcdf33f9b0a19442d3701cffa3b60c8891ce")))
'(("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 sha1) . _)
(((version _) . _)
`(a (@ (class "btn btn-primary btn-lg")
(role "button")
(href ,(tarball-url version)))
@ -97,7 +103,7 @@
(div (@ (class "container"))
,body
(footer (@ (class "text-center"))
(p (small "Copyright © 2015 David Thompson"))
(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.")))))))
@ -182,21 +188,20 @@ the official git repository:")
(define (downloads-page site posts)
(define body
`(,(jumbotron
`(,%download-button
(p (small "SHA1 checksum: "
,(match %releases (((_ sha1) . _) sha1))))))
(h2 "Downloads")
`((h2 "Downloads")
(table (@ (class "table"))
(thead
(tr (th "Source") (th "SHA1")))
(tr (th "Source") (th "GPG signature")))
(tbody
,(map (match-lambda
((version sha1)
((version signature?)
(let ((tarball-name (string-append "haunt-" version ".tar.gz")))
`(tr
(td (a (@ (href ,(tarball-url version)))
,(string-append "haunt-" version ".tar.gz")))
(td ,sha1))))
(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"
@ -211,7 +216,7 @@ the official git repository:")
#:default-metadata
'((author . "David Thompson")
(email . "davet@gnu.org"))
#:readers (list sxml-reader html-reader)
#:readers (list sxml-reader skribe-reader)
#:builders (list (blog #:theme haunt-theme #:collections %collections)
(atom-feed)
(atom-feeds-by-tag)

35
website/posts/0.2-release.skr Normal file
View File

@ -0,0 +1,35 @@
(post
:title "Haunt 0.2 released"
:date (make-date* 2016 04 24)
:tags '("release")
:summary "Haunt 0.2 released"
(p [I am pleased to announce the release of Haunt version 0.2. This
release features new readers for the ]
(anchor "Texinfo" "http://www.gnu.org/software/texinfo/")
[ and ] (anchor "Skribe" "http://www.nongnu.org/skribilo/")
[ markup formats, an Info manual, small improvements to the Atom
and blog builders, and bug fixes.])
(p [New reader modules:]
(ul (li (code [(haunt reader skribe)]))
(li (code [(haunt reader texinfo)]))))
(p [Bug fixes:]
(ul (li (anchor "builder: atom: Allow atom feeds to correctly set the blog prefix."
"https://git.dthompson.us/haunt.git/commit/ed1602dc36444bcf1023926854a2cb01b5199e7e"))
(li (anchor "build: Allow building with Guile 2.2."
"https://git.dthompson.us/haunt.git/commit/5373877f989689209616109b13fd471b2d093b5f"))
(li (anchor "post: Allow dashes in slugs."
"https://git.dthompson.us/haunt.git/commit/a37c3cd58525be76705ea930551f3935a232790e"))
(li (anchor "serve: Catch exceptions when rebuilding site."
"https://git.dthompson.us/haunt.git/commit/0d67128c3da6413546015fa9092a0017f50d46b9"))))
(p [Source tarball: ]
(anchor "haunt-0.2.tar.gz"
"https://files.dthompson.us/haunt/haunt-0.2.tar.gz"))
(p [GPG Signature: ]
(anchor "haunt-0.2.tar.gz.sig"
"https://files.dthompson.us/haunt/haunt-0.2.tar.gz.sig"))
(p [Happy haunting!]))