aliens/tekuti
1
0
Fork 0
Code Activity

intern some character entities

Browse source 
* tekuti/config.scm: Define some character entities to intern here. Not
  ideal by any means, but it works for me.
This commit is contained in:
Andy Wingo 2008-03-02 15:21:50 +01:00
parent e9849a19cc
commit c08973ca92
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
tekuti/config.scm
View file

@ -43,3 +43,17 @@
(define *title* "My blog") (define *title* "My blog")
(define *subtitle* "Just a blog, ok") (define *subtitle* "Just a blog, ok")
(define *name* "Joe Schmo") (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*)