wikipedia: use html-unescape.

diff --git a/extra/wikipedia/wikipedia.factor b/extra/wikipedia/wikipedia.factor
index 8bff89b45e61fed9f5be3b9d82449a4720328a9c..67db2d124edea7f3f536fe003b355d9aa75bef32 100644 (file)
--- a/extra/wikipedia/wikipedia.factor
+++ b/extra/wikipedia/wikipedia.factor
@@ -2,10 +2,10 @@
 ! See http://factorcode.org/license.txt for BSD license
 
 USING: accessors ascii assocs calendar colors.constants
-formatting html.parser html.parser.analyzer html.parser.printer
-http.client io io.streams.string io.styles kernel make
-namespaces regexp sequences splitting urls wrap.strings xml
-xml.data xml.traversal ;
+formatting html.entities html.parser html.parser.analyzer
+html.parser.printer http.client io io.streams.string io.styles
+kernel make namespaces regexp sequences splitting urls
+wrap.strings xml xml.data xml.traversal ;
 FROM: xml.data => tag? ;
 
 IN: wikipedia
@@ -78,8 +78,5 @@ PRIVATE>
     "content" find-by-id-between
     [ html-text. ] with-string-writer string-lines
     [ [ blank? ] trim ] map harvest [
-        R/ &lt;/ "<" re-replace
-        R/ &gt;/ ">" re-replace
-        R/ &amp;/ "&" re-replace
-        72 wrap-string print nl
+        html-unescape 72 wrap-string print nl
     ] each ;