From c14112d3e48fe6935324a5930ac0b6118e3ba305 Mon Sep 17 00:00:00 2001
From: Aadhavan Srinivasan <aadhavan@twomorecents.org>
Date: Fri, 23 May 2025 14:04:05 -0400
Subject: [PATCH] Updated special and escapable characters

---
 src/MdToHTML.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 2629f89..0b3e6cb 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -88,9 +88,9 @@ leftmostLongestParse parser input =
         Nothing -> (mempty, mempty)
         Just x -> x
 
-specialChars = "\\#*_[\n`"
+specialChars = "\n\\`*_{}[]()<>#+|"
 
-escapableChars = '~' : specialChars
+escapableChars = "-~!." ++ specialChars
 
 -- Makes a parser greedy. Instead of returning all possible parses, only the longest one is returned.
 greedyParse :: ReadP a -> ReadP [a]