#lang racket/base
(require racket/contract xml)
(provide (all-defined-out))

;; for now, body is deemed a block, not inline
;; todo: is this legit? Why is body inline?
(define block-tags
  '(address article aside audio blockquote body canvas dd div dl fieldset figcaption figure footer form  h1 h2 h3 h4 h5 h6 header hgroup  noscript ol output p pre section table tfoot ul video))


;; for now, map is omitted because it's a Racket keyword
;; for now, style, script, and link are omitted because they shouldn't be wrapped
;; todo: figure out how to resolve this. should be able to use html version of map.
;; possibly prefixed? Probably a good idea so it doesn't collide with user namespace
(define inline-tags 
  '(a abbr acronym applet area b base basefont bdo big br button caption center cite code col colgroup  del dir dfn dt em embed font  frame framesethead hr html i iframe img input ins isindex kbd label legend li  menu meta noframes object optgroup option param q s samp  select small span strike strong  sub sup tbody td textarea th thead title tr tt u var xmp))

(define tags (append block-tags inline-tags))

(define/contract (entity->string e)
  (symbol? . -> . string?)
  (format "~a" (integer->char (entity->integer e))))

(define/contract (string->entity str)
  (string? . -> . symbol?)
  (integer->entity (char->integer (car (string->list str)))))

(define/contract (entity->integer e)
  (symbol? . -> . integer?)
  (hash-ref entities e))

(define/contract (integer->entity int)
  (integer? . -> . symbol?)
  (hash-ref chars int))

(define entities '#hash((quot . 34)
                        (amp . 38)
                        (apos . 39)
                        (lt . 60)
                        (gt . 62)
                        (nbsp . 160)
                        (iexcl . 161)
                        (cent . 162)
                        (pound . 163)
                        (curren . 164)
                        (yen . 165)
                        (brvbar . 166)
                        (sect . 167)
                        (uml . 168)
                        (copy . 169)
                        (ordf . 170)
                        (laquo . 171)
                        (not . 172)
                        (shy . 173)
                        (reg . 174)
                        (macr . 175)
                        (deg . 176)
                        (plusmn . 177)
                        (sup2 . 178)
                        (sup3 . 179)
                        (acute . 180)
                        (micro . 181)
                        (para . 182)
                        (middot . 183)
                        (cedil . 184)
                        (sup1 . 185)
                        (ordm . 186)
                        (raquo . 187)
                        (frac14 . 188)
                        (frac12 . 189)
                        (frac34 . 190)
                        (iquest . 191)
                        (Agrave . 192)
                        (Aacute . 193)
                        (Acirc . 194)
                        (Atilde . 195)
                        (Auml . 196)
                        (Aring . 197)
                        (AElig . 198)
                        (Ccedil . 199)
                        (Egrave . 200)
                        (Eacute . 201)
                        (Ecirc . 202)
                        (Euml . 203)
                        (Igrave . 204)
                        (Iacute . 205)
                        (Icirc . 206)
                        (Iuml . 207)
                        (ETH . 208)
                        (Ntilde . 209)
                        (Ograve . 210)
                        (Oacute . 211)
                        (Ocirc . 212)
                        (Otilde . 213)
                        (Ouml . 214)
                        (times . 215)
                        (Oslash . 216)
                        (Ugrave . 217)
                        (Uacute . 218)
                        (Ucirc . 219)
                        (Uuml . 220)
                        (Yacute . 221)
                        (THORN . 222)
                        (szlig . 223)
                        (agrave . 224)
                        (aacute . 225)
                        (acirc . 226)
                        (atilde . 227)
                        (auml . 228)
                        (aring . 229)
                        (aelig . 230)
                        (ccedil . 231)
                        (egrave . 232)
                        (eacute . 233)
                        (ecirc . 234)
                        (euml . 235)
                        (igrave . 236)
                        (iacute . 237)
                        (icirc . 238)
                        (iuml . 239)
                        (eth . 240)
                        (ntilde . 241)
                        (ograve . 242)
                        (oacute . 243)
                        (ocirc . 244)
                        (otilde . 245)
                        (ouml . 246)
                        (divide . 247)
                        (oslash . 248)
                        (ugrave . 249)
                        (uacute . 250)
                        (ucirc . 251)
                        (uuml . 252)
                        (yacute . 253)
                        (thorn . 254)
                        (yuml . 255)
                        (OElig . 338)
                        (oelig . 339)
                        (Scaron . 352)
                        (scaron . 353)
                        (Yuml . 376)
                        (fnof . 402)
                        (circ . 710)
                        (tilde . 732)
                        (Alpha . 913)
                        (Beta . 914)
                        (Gamma . 915)
                        (Delta . 916)
                        (Epsilon . 917)
                        (Zeta . 918)
                        (Eta . 919)
                        (Theta . 920)
                        (Iota . 921)
                        (Kappa . 922)
                        (Lambda . 923)
                        (Mu . 924)
                        (Nu . 925)
                        (Xi . 926)
                        (Omicron . 927)
                        (Pi . 928)
                        (Rho . 929)
                        (Sigma . 931)
                        (Tau . 932)
                        (Upsilon . 933)
                        (Phi . 934)
                        (Chi . 935)
                        (Psi . 936)
                        (Omega . 937)
                        (alpha . 945)
                        (beta . 946)
                        (gamma . 947)
                        (delta . 948)
                        (epsilon . 949)
                        (zeta . 950)
                        (eta . 951)
                        (theta . 952)
                        (iota . 953)
                        (kappa . 954)
                        (lambda . 955)
                        (mu . 956)
                        (nu . 957)
                        (xi . 958)
                        (omicron . 959)
                        (pi . 960)
                        (rho . 961)
                        (sigmaf . 962)
                        (sigma . 963)
                        (tau . 964)
                        (upsilon . 965)
                        (phi . 966)
                        (chi . 967)
                        (psi . 968)
                        (omega . 969)
                        (thetasym . 977)
                        (upsih . 978)
                        (piv . 982)
                        (ensp . 8194)
                        (emsp . 8195)
                        (thinsp . 8201)
                        (zwnj . 8204)
                        (zwj . 8205)
                        (lrm . 8206)
                        (rlm . 8207)
                        (ndash . 8211)
                        (mdash . 8212)
                        (lsquo . 8216)
                        (rsquo . 8217)
                        (sbquo . 8218)
                        (ldquo . 8220)
                        (rdquo . 8221)
                        (bdquo . 8222)
                        (dagger . 8224)
                        (Dagger . 8225)
                        (bull . 8226)
                        (hellip . 8230)
                        (permil . 8240)
                        (prime . 8242)
                        (Prime . 8243)
                        (lsaquo . 8249)
                        (rsaquo . 8250)
                        (oline . 8254)
                        (frasl . 8260)
                        (euro . 8364)
                        (image . 8465)
                        (weierp . 8472)
                        (real . 8476)
                        (trade . 8482)
                        (alefsym . 8501)
                        (larr . 8592)
                        (uarr . 8593)
                        (rarr . 8594)
                        (darr . 8595)
                        (harr . 8596)
                        (crarr . 8629)
                        (lArr . 8656)
                        (uArr . 8657)
                        (rArr . 8658)
                        (dArr . 8659)
                        (hArr . 8660)
                        (forall . 8704)
                        (part . 8706)
                        (exist . 8707)
                        (empty . 8709)
                        (nabla . 8711)
                        (isin . 8712)
                        (notin . 8713)
                        (ni . 8715)
                        (prod . 8719)
                        (sum . 8721)
                        (minus . 8722)
                        (lowast . 8727)
                        (radic . 8730)
                        (prop . 8733)
                        (infin . 8734)
                        (ang . 8736)
                        (and . 8743)
                        (or . 8744)
                        (cap . 8745)
                        (cup . 8746)
                        (int . 8747)
                        (there4 . 8756)
                        (sim . 8764)
                        (cong . 8773)
                        (asymp . 8776)
                        (ne . 8800)
                        (equiv . 8801)
                        (le . 8804)
                        (ge . 8805)
                        (sub . 8834)
                        (sup . 8835)
                        (nsub . 8836)
                        (sube . 8838)
                        (supe . 8839)
                        (oplus . 8853)
                        (otimes . 8855)
                        (perp . 8869)
                        (sdot . 8901)
                        (vellip . 8942)
                        (lceil . 8968)
                        (rceil . 8969)
                        (lfloor . 8970)
                        (rfloor . 8971)
                        (lang . 9001)
                        (rang . 9002)
                        (loz . 9674)
                        (spades . 9824)
                        (clubs . 9827)
                        (hearts . 9829)
                        (diams . 9830)))

(define chars (make-hash (hash-map entities (λ(k v) (cons v k))))) ; flip the hash