From c08973ca92631f38968c33bd8a2017269ecc843e Mon Sep 17 00:00:00 2001
From: Andy Wingo
Date: Sun, 2 Mar 2008 15:21:50 +0100
Subject: intern some character entities

* tekuti/config.scm: Define some character entities to intern here. Not
  ideal by any means, but it works for me.
---
 tekuti/config.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/tekuti/config.scm b/tekuti/config.scm
index fa3b4a7..56b6952 100644
--- a/tekuti/config.scm
+++ b/tekuti/config.scm
@@ -43,3 +43,17 @@
 (define *title* "My blog")
 (define *subtitle* "Just a blog, ok")
 (define *name* "Joe Schmo")
+
+(define *character-entities* '((agrave . 224)
+                               (laquo . 171)
+                               (mdash . 8212)
+                               (nbsp . 160)
+                               (raquo . 187)
+                               (uacute . 250)))
+(use-modules (sxml ssax-simple) (sxml unicode))
+(for-each
+ (lambda (pair)
+   (set! ssax:predefined-parsed-entities
+         (assoc-set! ssax:predefined-parsed-entities
+                     (car pair) (unichar->utf-8 (cdr pair)))))
+ *character-entities*)
-- 
cgit v1.2.3-54-g00ecf