From 34e8b68ac3d2a9566ef56504573b001ea2839cc4 Mon Sep 17 00:00:00 2001
From: nytpu <alex@nytpu.com>
Date: Fri, 25 Oct 2024 09:16:44 -0600
Subject: [PATCH] decode &amp;

---
 src/markov-bot.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/markov-bot.lisp b/src/markov-bot.lisp
index a90442d..03ebf85 100644
--- a/src/markov-bot.lisp
+++ b/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))
-- 
2.45.2