Updates to work with latest djoths.

Author: jgm

cabal.project

@@ -16,4 +16,4 @@ source-repository-package
 source-repository-package
   type: git
   location: https://github.com/jgm/djoths
-  tag: 81a63ca744fc9e4696eea9c1541e31e08d50252f
+  tag: fa1bf8a18938bf24ffdf36ff6584524798c5d53f

src/Text/Pandoc/Readers/Djot.hs

@@ -45,8 +45,7 @@ import Data.List (foldl')
 readDjot :: (PandocMonad m, ToSources a) => ReaderOptions -> a -> m Pandoc
 readDjot _opts inp = do
   let sources = toSources inp
-  case parseDoc ParseOptions{ optSourcePositions = False }
-         (UTF8.fromText $ sourcesToText sources) of
+  case parseDoc ParseOptions (UTF8.fromText $ sourcesToText sources) of
     Left e -> throwError $ PandocParseError $ T.pack $ show e
     Right d ->
       runReaderT (doc <$> convertBlocks (D.docBlocks d))
@@ -173,6 +172,8 @@ convertInline (D.Node attr il) = addAttrToInline attr <$>
     D.Subscript ils -> subscript <$> convertInlines ils
     D.Superscript ils -> superscript <$> convertInlines ils
     D.Span ils -> spanWith nullAttr <$> convertInlines ils
+    D.Quoted D.DoubleQuotes ils -> doubleQuoted <$> convertInlines ils
+    D.Quoted D.SingleQuotes ils -> singleQuoted <$> convertInlines ils
     D.Verbatim bs -> pure $ code (UTF8.toText bs)
     D.Symbol bs -> pure $
       let s = UTF8.toText bs

src/Text/Pandoc/Shared.hs

@@ -299,7 +299,8 @@ normalizeDate' s = fmap (formatTime defaultTimeLocale "%F")
 -- and 'Cm () Blocks' are instances of 'HasAttributes'.
 addPandocAttributes
   :: forall b . HasAttributes (Cm () b) => [(T.Text, T.Text)] -> b -> b
-addPandocAttributes kvs bs = unCm . addAttributes kvs $ (Cm bs :: Cm () b)
+addPandocAttributes kvs bs =
+  unCm . addAttributes (("wrap","1"):kvs) $ (Cm bs :: Cm () b)
 
 -- | Generate infinite lazy list of markers for an ordered list,
 -- depending on list attributes.