From 84c65348ea5542f3e2d7700e5ecc5816b9340019 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 11 Apr 2015 22:31:15 -0400
Subject: post: Add metadata parsers.

* haunt/post.scm (%metadata-parsers): New variable.  Register parser for
  'tags and 'date.
  (metadata-parser, register-metadata-parser!, parse-metadata): New
  procedures.
---
 haunt/post.scm | 29 ++++++++++++++++++++++++++++-
 1 file changed, 28 insertions(+), 1 deletion(-)

diff --git a/haunt/post.scm b/haunt/post.scm
index 3d2359e..7c5051c 100644
--- a/haunt/post.scm
+++ b/haunt/post.scm
@@ -25,6 +25,7 @@
 (define-module (haunt post)
   #:use-module (srfi srfi-9)
   #:use-module (srfi srfi-19)
+  #:use-module (haunt utils)
   #:export (make-post
             post?
             post-file-name
@@ -32,7 +33,10 @@
             post-metadata
             post-ref
             post-slug
-            posts/reverse-chronological))
+            posts/reverse-chronological
+
+            register-metdata-parser!
+            parse-metadata))
 
 (define-record-type <post>
   (make-post file-name metadata sxml)
@@ -61,3 +65,26 @@
   (sort posts
         (lambda (a b)
           (time>? (post->time a) (post->time b)))))
+
+;;;
+;;; Metadata
+;;;
+
+(define %metadata-parsers
+  (make-hash-table))
+
+(define (metadata-parser key)
+  (or (hash-ref %metadata-parsers key) identity))
+
+(define (register-metadata-parser! name parser)
+  (hash-set! %metadata-parsers name parser))
+
+(define (parse-metadata key value)
+  ((metadata-parser key) value))
+
+(register-metadata-parser!
+ 'tags
+ (lambda (str)
+   (map string-trim-both (string-split str #\,))))
+
+(register-metadata-parser! 'date string->date*)
-- 
cgit v1.2.3