posts, non-posts: Update to new skribe post format.

37 files changed, 169 insertions, 208 deletions

diff --git a/non-posts/index.skr b/non-posts/index.skr
index 718bf46..e0da940 100644
--- a/non-posts/index.skr
+++ b/non-posts/index.skr
@@ -1,7 +1,6 @@
-(define meta
-  `((title . "Free software and music")))
+(post
+  :title "Free software and music"
 
-(list
  (h1 [Free software and music])
 
  (p [My name is rekado and I’m currently working as a programmer and
diff --git a/non-posts/lv2/mdaepiano/index.skr b/non-posts/lv2/mdaepiano/index.skr
index 78bcaf4..1050946 100644
--- a/non-posts/lv2/mdaepiano/index.skr
+++ b/non-posts/lv2/mdaepiano/index.skr
@@ -1,7 +1,6 @@
-(define meta
-  `((title . "LV2 plugin: mda EPiano")))
+(post
+ :title "LV2 plugin: mda EPiano"
 
-(list
  (h1 [mda EPiano])
 
  (p [This is an LV2 port of the mda EPiano VSTi (not to be confused
diff --git a/non-posts/lv2/mdapiano/index.skr b/non-posts/lv2/mdapiano/index.skr
index 4509701..97038e2 100644
--- a/non-posts/lv2/mdapiano/index.skr
+++ b/non-posts/lv2/mdapiano/index.skr
@@ -1,7 +1,6 @@
-(define meta
-  `((title . "LV2 plugin: mda Piano")))
+(post
+ :title "LV2 plugin: mda Piano"
 
-(list
  (h1 [mda Piano])
 
  (p [This is an LV2 port of the mda Piano VSTi (not to be confused
diff --git a/non-posts/projects.skr b/non-posts/projects.skr
index 5468f8e..5560e98 100644
--- a/non-posts/projects.skr
+++ b/non-posts/projects.skr
@@ -1,7 +1,6 @@
-(define meta
-  `((title . "Projects")))
+(post
+ :title "Projects"
 
-(list
  (h1 [Projects])
 
  (p [Here is a list of some of the projects that I’m involved with that
diff --git a/non-posts/wavedrum/index.skr b/non-posts/wavedrum/index.skr
index 91ccdc1..f1b2bfc 100644
--- a/non-posts/wavedrum/index.skr
+++ b/non-posts/wavedrum/index.skr
@@ -1,7 +1,6 @@
-(define meta
-  `((title . "Wavedrum")))
+(post
+ :title "Wavedrum"
 
-(list
  (h1 [Wavedrum])
 
  (p [I wrote a ,(ref "/tags/wavedrum.html" "series of blog posts") in
diff --git a/posts/2009-07-01-chapman_stick.skr b/posts/2009-07-01-chapman_stick.skr
index 119b941..82bce88 100644
--- a/posts/2009-07-01-chapman_stick.skr
+++ b/posts/2009-07-01-chapman_stick.skr
@@ -1,9 +1,8 @@
-(define meta
-  `((title . "The Chapman Stick®")
-    (date  . ,(string->date* "2009-07-01 00:00"))
-    (tags "music" "chapman stick")))
+(post
+ :title "The Chapman Stick®"
+ :date (string->date* "2009-07-01 00:00")
+ :tags '("music" "chapman stick")
 
-(list
  (p [The ,(ref "http://stick.com" [Chapman Stick]) is a stringed
      instrument invented quite some time ago by ,(ref
      "http://www.emmettchapman.net" [Emmett Chapman]).  It is a
diff --git a/posts/2010-03-23-fur-man.skr b/posts/2010-03-23-fur-man.skr
index 15273f4..3bc423c 100644
--- a/posts/2010-03-23-fur-man.skr
+++ b/posts/2010-03-23-fur-man.skr
@@ -1,10 +1,9 @@
-(define meta
-  `((title   . "Fur Man")
-    (date    . ,(string->date* "2010-03-23 00:00"))
-    (license . "by-sa")
-    (tags "drawing" "weird")))
+(post
+ :title "Fur Man"
+ :date (string->date* "2010-03-23 00:00")
+ :license "by-sa"
+ :tags '("drawing" "weird")
 
-(list
  (p [The Fur Man is an obese mammal, who lives most of his miserable
      lifetime in utter solitude.  The reasons for that are rather
      obvious.])
diff --git a/posts/2010-03-26-billie-jean.skr b/posts/2010-03-26-billie-jean.skr
index 3c20155..9010477 100644
--- a/posts/2010-03-26-billie-jean.skr
+++ b/posts/2010-03-26-billie-jean.skr
@@ -1,9 +1,8 @@
-(define meta
-  `((title . "Billie Jean")
-    (date . ,(string->date* "2010-03-26 00:00"))
-    (tags "video" "music")))
+(post
+ :title "Billie Jean"
+ :date (string->date* "2010-03-26 00:00")
+ :tags '("video" "music")
 
-(list
  (figure "billiejean.png" "Playing Billie Jean on the Stick")
 
  (p [,(ref "http://v.youku.com/v_show/id_XMTMyOTc3Nzcy.html" "This
diff --git a/posts/2010-03-26-rehearsals.skr b/posts/2010-03-26-rehearsals.skr
index 82e55c4..1b9f731 100644
--- a/posts/2010-03-26-rehearsals.skr
+++ b/posts/2010-03-26-rehearsals.skr
@@ -1,11 +1,10 @@
-(define meta
-  `((title . "Rehearsals")
-    (date  . ,(string->date* "2010-03-26 00:00"))
-    (tags "music" "chapman stick" "video" "tv" "quan jia dou lai sai")
-    (type  . "short")
-    (photo . "rehearsals.jpg")))
+(post
+ :title "Rehearsals"
+ :date (string->date* "2010-03-26 00:00")
+ :tags '("music" "chapman stick" "video" "tv" "quan jia dou lai sai")
+ :type "short"
+ :photo "rehearsals.jpg"
 
-(list
  (p [,(ref "http://v.youku.com/v_show/id_XMTUxMDczMDE2.html" "This
     video") was shot by the friendly youku team during the rehearsals
     for the live broadcast of Quan Jia Dou Lai Sai.])
diff --git a/posts/2010-03-26-youku-niuren.skr b/posts/2010-03-26-youku-niuren.skr
index b64dc63..c9d9035 100644
--- a/posts/2010-03-26-youku-niuren.skr
+++ b/posts/2010-03-26-youku-niuren.skr
@@ -1,11 +1,10 @@
-(define meta
-  `((title . "2009 Youku Niuren")
-    (date  . ,(string->date* "2010-03-26 00:00"))
-    (photo . "niuren.jpg")
-    (type  . "short")
-    (tags "tv" "youku" "video" "quan jia dou lai sai")))
+(post
+ :title "2009 Youku Niuren"
+ :date (string->date* "2010-03-26 00:00")
+ :photo "niuren.jpg"
+ :type "short"
+ :tags '("tv" "youku" "video" "quan jia dou lai sai")
 
-(list
  (p [On January 23, 2010 Jackie and I attended the annual Niuren show
      hosted by Youku.  We were handed a cheap plastic board,
      symbolizing entry into ,(em [Quan Jia Dou Lai Sai]).  Here’s a
diff --git a/posts/2010-03-26-youku-vs-tudou-final.skr b/posts/2010-03-26-youku-vs-tudou-final.skr
index 4b70029..f8a638d 100644
--- a/posts/2010-03-26-youku-vs-tudou-final.skr
+++ b/posts/2010-03-26-youku-vs-tudou-final.skr
@@ -1,11 +1,10 @@
-(define meta
-  `((title . "Youku vs. Tudou—Final")
-    (date  . ,(string->date* "2010-03-26 00:00"))
-    (type  . "short")
-    (photo . "2010-02-10-qiutianbuhuilai.jpg")
-    (tags "tv" "youku" "quan jia dou lai sai")))
+(post
+ :title "Youku vs. Tudou—Final"
+ :date  (string->date* "2010-03-26 00:00")
+ :type  "short"
+ :photo "2010-02-10-qiutianbuhuilai.jpg"
+ :tags '("tv" "youku" "quan jia dou lai sai")
 
-(list
  (p [Here is a ,(ref "http://v.youku.com/v_show/id_XMTUxNTM5NjUy.html"
      "full recording of the live broadcast") on Wednesday, thanks to
      Youku!  Some timestamps for all the impatient: 24:24, 53:50,
diff --git a/posts/2010-03-28-elephly.skr b/posts/2010-03-28-elephly.skr
index c449ae8..1372f9d 100644
--- a/posts/2010-03-28-elephly.skr
+++ b/posts/2010-03-28-elephly.skr
@@ -1,11 +1,9 @@
-(define meta
-  `((title   . "The Elephly")
-    (date    . ,(string->date* "2010-03-28 00:00"))
-    (flattr  . "390348/The-Elephly")
-    (license . "by-sa")
-    (tags "weird")))
-
-(list
+(post
+ :title "The Elephly"
+ :date (string->date* "2010-03-28 00:00")
+ :flattr "390348/The-Elephly"
+ :license "by-sa"
+ :tags '("weird")
 
  (p [This is Chlodwig, the marvelous elephly.  The elephly is a
      creature half elephant, half fly, a quarter duck and three
diff --git a/posts/2010-03-31-frog-and-bear.skr b/posts/2010-03-31-frog-and-bear.skr
index 5abafb0..4b4b3ca 100644
--- a/posts/2010-03-31-frog-and-bear.skr
+++ b/posts/2010-03-31-frog-and-bear.skr
@@ -1,11 +1,8 @@
-(define meta
-  `((title . "Frog and bear")
-    (date  . ,(string->date* "2010-03-31 00:00"))
-    ;; alt="frog and bear - a drawing for Kailani"
-    (photo . "frog_and_bear.png")
-    (tags "drawing")))
-
-(list
+(post
+ :title "Frog and bear"
+ :date  (string->date* "2010-03-31 00:00")
+ :photo "frog_and_bear.png"
+ :tags '("drawing")
 
  (p [This is the first serious drawing I made with my Wacom tablet and
      the awesome program ,(ref "http://mypaint.intilinux.com"
diff --git a/posts/2010-04-01-white-noise.skr b/posts/2010-04-01-white-noise.skr
index 332e6d9..0f2aa55 100644
--- a/posts/2010-04-01-white-noise.skr
+++ b/posts/2010-04-01-white-noise.skr
@@ -1,9 +1,7 @@
-(define meta

-  `((title . "White Noise")

-    (date  . ,(string->date* "2010-04-01 00:00"))

-    (tags "music" "midi")))

-

-(list

+(post

+ :title "White Noise"

+ :date (string->date* "2010-04-01 00:00")

+ :tags '("music" "midi")

 

  (p [Some time in 2005 I had this fancy idea of writing a number of

      songs that would relate to one another and share musical themes;

diff --git a/posts/2010-04-05-deng-hou.skr b/posts/2010-04-05-deng-hou.skr
index 7f8c7c4..274db87 100644
--- a/posts/2010-04-05-deng-hou.skr
+++ b/posts/2010-04-05-deng-hou.skr
@@ -1,10 +1,8 @@
-(define meta
-  `((title . "Deng Hou")
-    (date  . ,(string->date* "2010-04-05 00:00"))
-    (flattr . "325437")
-    (tags "music" "chinese")))
-
-(list
+(post
+ :title "Deng Hou"
+ :date (string->date* "2010-04-05 00:00")
+ :flattr "325437"
+ :tags '("music" "chinese")
 
  (p [When we were told that during our appearance on “Jia Ting Yan Bo
      Shi” we were to peform a song, Jackie and I thought it would be a
diff --git a/posts/2010-04-12-jiatingyanboshi.skr b/posts/2010-04-12-jiatingyanboshi.skr
index f31c3bc..0b81c4c 100644
--- a/posts/2010-04-12-jiatingyanboshi.skr
+++ b/posts/2010-04-12-jiatingyanboshi.skr
@@ -1,9 +1,8 @@
-(define meta
-  `((title . "Jia Ting Yan Bo Shi")
-    (date  . ,(string->date* "2010-04-12 00:00"))
-    (tags "tv" "chinese")))
+(post
+ :title "Jia Ting Yan Bo Shi"
+ :date (string->date* "2010-04-12 00:00")
+ :tags '("tv" "chinese")
 
-(list
  (p [The final cut of what has been recorded for the interview show
      ,(em [Jia Ting Yan Bo Shi]) is going to be aired on Friday,
      April 16 on ,(em [Shanghai Dianshi Tai]).])
diff --git a/posts/2010-06-01-chapman-stick-on-national-tv.skr b/posts/2010-06-01-chapman-stick-on-national-tv.skr
index 7f5f878..de9536a 100644
--- a/posts/2010-06-01-chapman-stick-on-national-tv.skr
+++ b/posts/2010-06-01-chapman-stick-on-national-tv.skr
@@ -1,9 +1,8 @@
-(define meta
-  `((title . "The Stick—Live on Chinese TV")
-    (date  . ,(string->date* "2010-06-01 00:00"))
-    (tags "show" "tv" "chapman stick" "video" "music")))
+(post
+ :title "The Stick—Live on Chinese TV"
+ :date (string->date* "2010-06-01 00:00")
+ :tags '("show" "tv" "chapman stick" "video" "music")
 
-(list
  (p [Once upon a time, there was a mediocre musician with a dream.  The
      story has not yet ended, so I cannot say much more than that.  If
      this story would, however, be written down by my sentimental alter
diff --git a/posts/2010-06-24-2010-niuren.skr b/posts/2010-06-24-2010-niuren.skr
index 1e2dff6..4e030b1 100644
--- a/posts/2010-06-24-2010-niuren.skr
+++ b/posts/2010-06-24-2010-niuren.skr
@@ -1,9 +1,8 @@
-(define meta
-  `((title . "2010 Youku Niuren Competition")
-    (date  . ,(string->date* "2010-06-24 00:00"))
-    (tags "music" "show" "youku")))
+(post
+ :title "2010 Youku Niuren Competition"
+ :date (string->date* "2010-06-24 00:00")
+ :tags '("music" "show" "youku")
 
-(list
  (wide-img "niuren2010.jpg"
            "At the Shanghai venue of Niuren 2010")
 
diff --git a/posts/2010-07-02-newspaper.skr b/posts/2010-07-02-newspaper.skr
index 0c07319..946f15f 100644
--- a/posts/2010-07-02-newspaper.skr
+++ b/posts/2010-07-02-newspaper.skr
@@ -1,9 +1,7 @@
-(define meta
-  `((title . "Newspaper Report")
-    (date  . ,(string->date* "2010-07-02 00:00"))
-    (tags "niuren" "youku" "chapman stick" "media")))
-
-(list
+(post
+ :title "Newspaper Report"
+ :date  (string->date* "2010-07-02 00:00")
+ :tags '("niuren" "youku" "chapman stick" "media")
 
  (ref "/images/posts/newspaper-large.jpg"
       (figure "newspaper.jpg"
diff --git a/posts/2010-07-08-wishful-thinking.skr b/posts/2010-07-08-wishful-thinking.skr
index 7abf251..b1ba933 100644
--- a/posts/2010-07-08-wishful-thinking.skr
+++ b/posts/2010-07-08-wishful-thinking.skr
@@ -1,9 +1,7 @@
-(define meta
-  `((title . "Wishful Thinking")
-    (date  . ,(string->date* "2010-07-08 00:00"))
-    (tags "musings" "ecology" "energy")))
-
-(list
+(post
+ :title "Wishful Thinking"
+ :date (string->date* "2010-07-08 00:00")
+ :tags '("musings" "ecology" "energy")
 
  (p [I used to be a magical thinker many years ago.  Whenever I wished
      for something I would keep looking at the road side while sitting
diff --git a/posts/2010-07-14-one-night-in-beijing.skr b/posts/2010-07-14-one-night-in-beijing.skr
index 9027747..70b8636 100644
--- a/posts/2010-07-14-one-night-in-beijing.skr
+++ b/posts/2010-07-14-one-night-in-beijing.skr
@@ -1,9 +1,8 @@
-(define meta
-  `((title . "One Night In Beijing")
-    (date  . ,(string->date* "2010-07-14 00:00"))
-    (tags "music" "youku" "video" "show")))
+(post
+ :title "One Night In Beijing"
+ :date (string->date* "2010-07-14 00:00")
+ :tags '("music" "youku" "video" "show")
 
-(list
  (p [When I noticed that the online voting system for the big Niuren
      2010 event was not to be trusted, I was pretty convinced not be
      one of those chosen to perform on stage in Bejing.  In order to
diff --git a/posts/2010-08-04-alto-stick.skr b/posts/2010-08-04-alto-stick.skr
index 0c90d06..7942083 100644
--- a/posts/2010-08-04-alto-stick.skr
+++ b/posts/2010-08-04-alto-stick.skr
@@ -1,9 +1,8 @@
-(define meta
-  `((title . "“Flow” on Alto Stick")
-    (date  . ,(string->date* "2010-08-04 00:00"))
-    (tags "music" "alto stick" "chapman stick")))
+(post
+ :title "“Flow” on Alto Stick"
+ :date (string->date* "2010-08-04 00:00")
+ :tags '("music" "alto stick" "chapman stick")
 
-(list
  (wide-img "alto-stick.jpg"
            "Alto Stick 6061")
 
diff --git a/posts/2010-08-15-yueyintang.skr b/posts/2010-08-15-yueyintang.skr
index bd350ee..f3af485 100644
--- a/posts/2010-08-15-yueyintang.skr
+++ b/posts/2010-08-15-yueyintang.skr
@@ -1,9 +1,8 @@
-(define meta
-  `((title . "Yueyin Tang")
-    (date  . ,(string->date* "2010-08-15 00:00"))
-    (tags "music")))
+(post
+ :title "Yueyin Tang"
+ :date (make-date* 2010 08 15 00 00)
+ :tags '("music")
 
-(list
  (p [Just so you know why there has not been any update for a while:
      Jackie and I were asked to play a 20 to 40 minutes set on a
      Wednesday night in September with some friends in a bar.  We
diff --git a/posts/2010-08-17-tianshi.skr b/posts/2010-08-17-tianshi.skr
index 69dc223..fe31247 100644
--- a/posts/2010-08-17-tianshi.skr
+++ b/posts/2010-08-17-tianshi.skr
@@ -1,10 +1,9 @@
-(define meta
-  `((title  . "“Tianshi” on Alto Stick")
-    (date   . ,(string->date* "2010-08-17 00:00"))
-    (flattr . "472329/Tianshi-on-Alto-Stick")
-    (tags "music" "video" "chinese" "alto stick" "chapman stick")))
+(post
+ :title "“Tianshi” on Alto Stick"
+ :date (string->date* "2010-08-17 00:00")
+ :flattr "472329/Tianshi-on-Alto-Stick"
+ :tags '("music" "video" "chinese" "alto stick" "chapman stick")
 
-(list
  (p [When my colleague was in the middle of preparations for getting
      married, he asked me to play a nice song at his wedding.  “Nice”
      songs are a neglected minority in Chinese pop music; most of the
diff --git a/posts/2010-10-14-chinese-tune-mda-epiano.skr b/posts/2010-10-14-chinese-tune-mda-epiano.skr
index b009a89..3be00ba 100644
--- a/posts/2010-10-14-chinese-tune-mda-epiano.skr
+++ b/posts/2010-10-14-chinese-tune-mda-epiano.skr
@@ -1,11 +1,10 @@
-(define meta
-  `((title  . "Chinese Tune / The mdaEPiano")
-    (date   . ,(string->date* "2010-10-14 00:00"))
-    (photo  . "mda-epiano-coding.jpg")
-    (flattr . "72898/LV2-port-of-the-mda-E-Piano-VSTi")
-    (tags "code" "music")))
+(post
+ :title "Chinese Tune / The mdaEPiano"
+ :date (string->date* "2010-10-14 00:00")
+ :photo "mda-epiano-coding.jpg"
+ :flattr "72898/LV2-port-of-the-mda-E-Piano-VSTi"
+ :tags '("code" "music")
 
-(list
  (p [In the past two days (actually, mornings and evenings) I have
      been working on porting the famous ,(ref "http://mda-vst.com"
      "mda EPiano VSTi plugin") to the LV2 plugin framework.  The sound
diff --git a/posts/2012-01-25-new-blog.skr b/posts/2012-01-25-new-blog.skr
index 4d2e0f8..c12d576 100644
--- a/posts/2012-01-25-new-blog.skr
+++ b/posts/2012-01-25-new-blog.skr
@@ -1,9 +1,8 @@
-(define meta
-  `((title . "New Blog")
-    (date  . ,(string->date* "2012-01-25 00:00"))
-    (tags "meta")))
+(post
+ :title "New Blog"
+ :date (string->date* "2012-01-25 00:00")
+ :tags '("meta")
 
-(list
  (p [Hey there, I’m back!])
 
  (p [I’m currently migrating the old blog posts to my new site. Once
diff --git a/posts/2013-01-27-preamp-board-arrived.skr b/posts/2013-01-27-preamp-board-arrived.skr
index 5888ef8..fe21fcf 100644
--- a/posts/2013-01-27-preamp-board-arrived.skr
+++ b/posts/2013-01-27-preamp-board-arrived.skr
@@ -1,9 +1,8 @@
-(define meta
-  `((title . "Stick preamp PCB arrived")
-    (date  . ,(string->date* "2013-01-27 00:00"))
-    (tags "audio" "pcb" "DIY" "preamp" "chapman stick" "free software")))
+(post
+ :title "Stick preamp PCB arrived"
+ :date (string->date* "2013-01-27 00:00")
+ :tags '("audio" "pcb" "DIY" "preamp" "chapman stick" "free software")
 
-(list
  (figure "pcb-1.jpg" "One of the boards")
 
  (p [Today I received a package from Shenzhen containing ten printed
diff --git a/posts/2013-05-24-improvisation.skr b/posts/2013-05-24-improvisation.skr
index 051708b..ec288fe 100644
--- a/posts/2013-05-24-improvisation.skr
+++ b/posts/2013-05-24-improvisation.skr
@@ -1,9 +1,8 @@
-(define meta
-  `((title . "Introduction to jazz improvisation")
-    (date  . ,(string->date* "2013-05-24 00:00"))
-    (tags "audio" "music" "guitar" "coursera" "learning" "jazz")))
+(post
+ :title "Introduction to jazz improvisation"
+ :date (string->date* "2013-05-24 00:00")
+ :tags '("audio" "music" "guitar" "coursera" "learning" "jazz")
 
-(list
  (p [Since a few weeks I’m learning how to play more interesting jazz
      solos from Gary Burton through his ,(ref "http://coursera.org"
      "Coursera") MOOC ,(ref
diff --git a/posts/2013-07-25-kobo-touch.skr b/posts/2013-07-25-kobo-touch.skr
index f4c931d..f3dc42f 100644
--- a/posts/2013-07-25-kobo-touch.skr
+++ b/posts/2013-07-25-kobo-touch.skr
@@ -1,9 +1,8 @@
-(define meta
-  `((title . "A look inside the Kobo Touch")
-    (date  . ,(string->date* "2013-07-25 00:00"))
-    (tags "DIY" "electronics")))
+(post
+ :title "A look inside the Kobo Touch"
+ :date (make-date* 2013 07 25 00 00)
+ :tags '("DIY" "electronics")
 
-(list
  (p [The e-ink screen of my Kobo Touch ebook reader broke, probably
      because it didn’t like being bent regularly.  It was a little over
      a year old when it happened, way too soon to give up on it, so I
diff --git a/posts/2013-08-11-hacking-the-wavedrum.skr b/posts/2013-08-11-hacking-the-wavedrum.skr
index a1f4b2f..5751f85 100644
--- a/posts/2013-08-11-hacking-the-wavedrum.skr
+++ b/posts/2013-08-11-hacking-the-wavedrum.skr
@@ -1,15 +1,12 @@
-(define meta
-  `((title . "Hacking the Wavedrum")
-    (date  . ,(string->date* "2013-08-11 00:00"))
-    (tags "DIY" "planet-fsfe-en" "electronics" "music" "hacking" "wavedrum")))
-
-(define (row id mode target name)
-  `(tr (td (@ (align "right")) ,id)
-       (td (@ (align "left")) ,mode)
-       (td (@ (align "left")) ,target)
-       (td (@ (align "left")) ,name)))
-
-(list
+(post
+ :title "Hacking the Wavedrum"
+ :date (string->date* "2013-08-11 00:00")
+ :tags '("DIY"
+         "planet-fsfe-en"
+         "electronics"
+         "music"
+         "hacking"
+         "wavedrum")
 
  (p [The Wavedrum Oriental is a wonderful electronic instrument.
      Unlike an electronic drum set or drum machines with touch
diff --git a/posts/2013-10-01-dm-crypt.skr b/posts/2013-10-01-dm-crypt.skr
index cae43e6..f2ff1c5 100644
--- a/posts/2013-10-01-dm-crypt.skr
+++ b/posts/2013-10-01-dm-crypt.skr
@@ -1,9 +1,7 @@
-(define meta
-  `((title . "How to create an encrypted file container with dm-crypt")
-    (date  . ,(string->date* "2013-10-01 00:00"))
-    (tags "gnu" "linux" "crypto" "tutorial")))
-
-(list
+(post
+ :title "How to create an encrypted file container with dm-crypt"
+ :date (string->date* "2013-10-01 00:00")
+ :tags '("gnu" "linux" "crypto" "tutorial")
 
  (p [Here are some instructions on how to create an encrypted
      filesystem on a file.])
diff --git a/posts/2013-10-31-wavedrum-data-comparison.skr b/posts/2013-10-31-wavedrum-data-comparison.skr
index 911777b..ed4b760 100644
--- a/posts/2013-10-31-wavedrum-data-comparison.skr
+++ b/posts/2013-10-31-wavedrum-data-comparison.skr
@@ -1,13 +1,11 @@
-(define meta
-  `((title . "Firmware comparison between Wavedrums Original, Black and Oriental")
-    (date  . ,(string->date* "2013-10-31 00:00"))
-    (tags "DIY" "electronics" "music" "hacking" "wavedrum")))
-
 (define (row first . rest)
  `(tr (td (@ (align "right")) ,first)
       ,@(map (lambda (field) `(td (@ (align "left")) ,field)) rest)))
 
-(list
+(post
+ :title "Firmware comparison between Wavedrums Original, Black and Oriental"
+ :date (string->date* "2013-10-31 00:00")
+ :tags '("DIY" "electronics" "music" "hacking" "wavedrum")
 
  (p [Since ,(ref "/posts/2013-08-11-hacking-the-wavedrum.html" "my
      first post on hacking the Wavedrum") two fellow musicians have
diff --git a/posts/2013-12-09-wavedrum-connectors.skr b/posts/2013-12-09-wavedrum-connectors.skr
index a6382ed..d8a22fd 100644
--- a/posts/2013-12-09-wavedrum-connectors.skr
+++ b/posts/2013-12-09-wavedrum-connectors.skr
@@ -1,9 +1,7 @@
-(define meta
-  `((title . "Connectors on the Wavedrum’s circuit board")
-    (date  . ,(string->date* "2013-12-09 00:00"))
-    (tags "DIY" "electronics" "music" "hacking" "wavedrum")))
-
-(list
+(post
+ :title "Connectors on the Wavedrum’s circuit board"
+ :date (string->date* "2013-12-09 00:00")
+ :tags '("DIY" "electronics" "music" "hacking" "wavedrum")
 
  (p [On the circuit board of the Wavedrum there are solder holes to
      accomodate three large connectors.  Since they are so easily
diff --git a/posts/2014-09-18-wavedrum-firmware-disassembler.skr b/posts/2014-09-18-wavedrum-firmware-disassembler.skr
index 244aecd..035a5ba 100644
--- a/posts/2014-09-18-wavedrum-firmware-disassembler.skr
+++ b/posts/2014-09-18-wavedrum-firmware-disassembler.skr
@@ -1,9 +1,7 @@
-(define meta
-`((title . "Disassembling the Wavedrum firmware")
-  (date  . ,(string->date* "2014-09-18 00:00"))
-  (tags "DIY" "electronics" "music" "hacking" "wavedrum" "SHARC")))
-
-(list
+(post
+ :title "Disassembling the Wavedrum firmware"
+ :date (string->date* "2014-09-18 00:00")
+ :tags '("DIY" "electronics" "music" "hacking" "wavedrum" "SHARC")
 
  (p [The Wavedrum’s processing unit is an ADSP-21375 by Analog Devices,
      a member of the SHARC processor family.  The firmware of the
diff --git a/posts/2014-11-23-upgrading-trulyergonomic-firmware.skr b/posts/2014-11-23-upgrading-trulyergonomic-firmware.skr
index b0b8ce3..696b6a2 100644
--- a/posts/2014-11-23-upgrading-trulyergonomic-firmware.skr
+++ b/posts/2014-11-23-upgrading-trulyergonomic-firmware.skr
@@ -1,9 +1,7 @@
-(define meta
-`((title . "Upgrading the TEK’s firmware on GNU/Linux")
-  (date  . ,(string->date* "2014-11-23 00:00"))
-  (tags "keyboard" "virtualbox")))
-
-(list
+(post
+ :title "Upgrading the TEK’s firmware on GNU/Linux"
+ :date (string->date* "2014-11-23 00:00")
+ :tags '("keyboard" "virtualbox")
 
  (p [I’m using the Truly Ergonomic Keyboard (model 209) for most of my
      typing, because it’s a pretty comfortable keyboard (when it
diff --git a/posts/2015-04-17-gnu-guix.skr b/posts/2015-04-17-gnu-guix.skr
index 6860ccb..c6813d3 100644
--- a/posts/2015-04-17-gnu-guix.skr
+++ b/posts/2015-04-17-gnu-guix.skr
@@ -1,9 +1,15 @@
-(define meta
-  `((title . "GNU Guix in an HPC environment")
-    (date  . ,(string->date* "2015-04-17 00:00"))
-    (tags "gnu" "planet-fsfe-en" "free software" "guix" "bioinformatics" "system administration" "packaging" "cluster")))
+(post
+ :title "GNU Guix in an HPC environment"
+ :date (string->date* "2015-04-17 00:00")
+ :tags '("gnu"
+         "planet-fsfe-en"
+         "free software"
+         "guix"
+         "bioinformatics"
+         "system administration"
+         "packaging"
+         "cluster")
 
-(list
  (p [I spend my daytime hours as a system administrator at a research
      institute in a heterogeneous computing environment.  We have two
      big compute clusters (one on CentOS the other on Ubuntu) with
diff --git a/posts/2015-06-21-getting-started-with-guix.skr b/posts/2015-06-21-getting-started-with-guix.skr
index 858504c..ddf3b94 100644
--- a/posts/2015-06-21-getting-started-with-guix.skr
+++ b/posts/2015-06-21-getting-started-with-guix.skr
@@ -1,9 +1,13 @@
-(define meta
-  `((title . "Getting started with GNU Guix")
-    (date  . ,(string->date* "2015-06-21 00:00"))
-    (tags "gnu" "planet-fsfe-en" "free software" "system administration" "packaging" "guix")))
+(post
+ :title "Getting started with GNU Guix"
+ :date (string->date* "2015-06-21 00:00")
+ :tags '("gnu"
+         "planet-fsfe-en"
+         "free software"
+         "system administration"
+         "packaging"
+         "guix")
 
-(list
  (p [,(ref "/posts/2015-04-17-gnu-guix.html" "Previously I wrote")
      about how using GNU Guix in an HPC environment enables easy
      software deployment for multiple users with different needs when