Apply a fix similar to c4e7d5e8 on the filter generating the glossary to make...

Apply a fix similar to c4e7d5e8 on the filter generating the glossary to make sure single quotes are not mistreated

filter/with-glossary.hs

@@ -14,6 +14,7 @@ import System.FilePath ((</>), (<.>))
 import Text.Pandoc
   ( Block(..), Format(..), Inline(..), Meta(..), Pandoc(..), ReaderOptions(..)
   , lookupMeta, nullAttr, pandocExtensions, readMarkdown, runIOorExplode )
+import Text.Pandoc.Extensions (Extension(..), disableExtension)
 import Text.Pandoc.JSON (ToJSONFilter(..))
 import Text.Pandoc.Walk (query, walkM)
 import Text.Printf (printf)
@@ -83,7 +84,8 @@ loadDef headword _ = do
     definitionPath = ((</> unpack headword <.> "md") . root)
     getDocument path =
       liftIO (Text.readFile path >>= runIOorExplode . readMarkdown options)
-    options = def { readerExtensions = pandocExtensions }
+    options =
+      def { readerExtensions = disableExtension Ext_smart pandocExtensions }
     empty = Entry {headword = "", definition = []}
     store = modify . insert (Text.toLower headword)