From 28fc90b25e7768a0895aeede121b89c468d4b716 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 24 Apr 2016 15:11:41 -0400
Subject: website: Add 0.2 release announcement.

---
 website/haunt.scm             | 37 +++++++++++++++++++++----------------
 website/posts/0.2-release.skr | 35 +++++++++++++++++++++++++++++++++++
 2 files changed, 56 insertions(+), 16 deletions(-)
 create mode 100644 website/posts/0.2-release.skr

(limited to 'website')

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)
diff --git a/website/posts/0.2-release.skr b/website/posts/0.2-release.skr
new file mode 100644
index 0000000..832f6c7
--- /dev/null
+++ b/website/posts/0.2-release.skr
@@ -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!]))
-- 
cgit v1.2.3