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

View File

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

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!]))