1 files changed, 2 insertions(+), 1 deletions(-)

M src/markov-bot.lisp

@@ 17,7 17,7 @@
           *standard-input*
           (uiop:parse-native-namestring (second args))))))
 
-(defparameter *html-scanner* (cl-ppcre:create-scanner "&gt;|&lt;|&nbsp;|<[^>]*>"))
+(defparameter *html-scanner* (cl-ppcre:create-scanner "&gt;|&lt;|&nbsp;|&amp;|<[^>]*>"))
 (defparameter *mention-scanner* (cl-ppcre:create-scanner "(?:\\s*)?\\@\\w+(?:\\s*)?"))
 
 (alexandria:define-constant +p-break+ (uiop:strcat markov::+lf+ markov::+lf+) :test #'string=)


@@ 33,6 33,7 @@
                                       ((string= "&gt;" match) ">")
                                       ((string= "&lt;" match) "<")
                                       ((string= "&nbsp;" match) " ")
+                                      ((string= "&amp;" match) "&")
                                       ((or (string= "<br>" match)
                                            (string= "</br>" match)
                                            (string= "<br/>" match))