diff options
Diffstat (limited to 'website/haunt.scm')
| -rw-r--r-- | website/haunt.scm | 37 |
1 files changed, 21 insertions, 16 deletions
diff --git a/website/haunt.scm b/website/haunt.scm index 25af5e1..142c656 100644 --- a/website/haunt.scm +++ b/website/haunt.scm @@ -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) - `(tr - (td (a (@ (href ,(tarball-url version))) - ,(string-append "haunt-" version ".tar.gz"))) - (td ,sha1)))) + ((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" @@ -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) |