From 7dc3ba800b5219da7248e3a54dcaf3c46401581e Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Thu, 20 Mar 2014 15:21:29 -0700
Subject: [PATCH] externalize entity converter

---
 convert.rkt | 19 ++++---------------
 1 file changed, 4 insertions(+), 15 deletions(-)

diff --git a/convert.rkt b/convert.rkt
index 3f042c3..50ff601 100644
--- a/convert.rkt
+++ b/convert.rkt
@@ -1,22 +1,10 @@
 #lang racket/base
-(require sugar txexpr racket/list racket/string pollen/world xml html racket/file racket/match)
+(require sugar txexpr racket/list racket/string pollen/world xml html racket/file racket/match css-tools/html)
 
 (define (attrs->pollen attrs)
   (string-join (flatten (map (λ(pair) (list (format "'~a:" (car pair)) (format "\"~a\"" (cadr pair)))) attrs)) " "))
 
 
-(define (decode-entity x)
-  (define entity-to-string (hash
-                            'ldquo "“"
-                            'rdquo "”"
-                            'lsquo "‘"
-                            'rsquo "’"
-                            'copy "©"
-                            'nbsp " "
-                            'mdash "—"
-                            'ndash "–"))
-  (hash-ref entity-to-string x))
-
 (define/contract+provide (xexpr->pollen x #:p-breaks [p-breaks #f])
   ((xexpr?) (#:p-breaks boolean?) . ->* . string?)
   
@@ -27,7 +15,7 @@
                           (map ->string  `(,world:expression-delimiter ,(get-tag x) 
                                                                        ,@(if (not (null? (get-attrs x))) `("[" ,(attrs->pollen (get-attrs x)) "]") null) 
                                                                        ,@(if (not (null? (get-elements x))) `("{" ,@(map loop (get-elements x)) "}" ) null))))]
-      [(symbol? x) (decode-entity x)]
+      [(symbol? x) (loop (entity->integer x))]
       [(number? x) (format "~a" (integer->char x))]
       [else x])))
 
@@ -54,4 +42,5 @@
   ; (xexpr->pollen '(p ((class "foo")) "You are puppy"))
   ; (xexpr->pollen '(p ((class "foo")) "You are" "\n\n" "puppy"))
   ; (xexpr->pollen '(p ((class "foo")) "You are " (em "so") " puppy"))
-  (display (html->pollen #:p-breaks #t (file->string "index.html"))))
\ No newline at end of file
+;  (display (html->pollen #:p-breaks #t (file->string "index.html"))))
+  )
\ No newline at end of file