diff options
author | Andy Wingo | 2008-03-02 15:21:50 +0100 |
---|---|---|
committer | Andy Wingo | 2008-03-02 15:21:50 +0100 |
commit | c08973ca92631f38968c33bd8a2017269ecc843e (patch) | |
tree | 2c8b9e2f5c4a239aeae6187d3b96faf5c5f18ee5 | |
parent | e9849a19cc3b730bc8f3337a04e1a6504a62b0d4 (diff) | |
download | tekuti-c08973ca92631f38968c33bd8a2017269ecc843e.tar.gz tekuti-c08973ca92631f38968c33bd8a2017269ecc843e.zip |
intern some character entities
* tekuti/config.scm: Define some character entities to intern here. Not
ideal by any means, but it works for me.
-rw-r--r-- | tekuti/config.scm | 14 |
1 files changed, 14 insertions, 0 deletions
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*) |