Add some djot writer tests.

Also tweak djot writer url and email.

Author: jgm

pandoc.cabal

@@ -271,6 +271,7 @@ extra-source-files:
                  test/media/rId27.jpg
                  test/typst-reader.typ
                  test/undergradmath.typ
+                 test/djot-reader.latex
                  test/latex-reader.latex
                  test/textile-reader.textile
                  test/markdown-reader-more.txt
@@ -293,6 +294,7 @@ extra-source-files:
                  test/tables.jats_articleauthoring
                  test/tables.jats_publishing
                  test/tables.jira
+                 test/tables.djot
                  test/tables.dokuwiki
                  test/tables.zimwiki
                  test/tables.icml
@@ -329,6 +331,7 @@ extra-source-files:
                  test/testsuite.txt
                  test/writer.latex
                  test/writer.context
+                 test/writer.djot
                  test/writer.docbook4
                  test/writer.docbook5
                  test/writer.jats_archiving

src/Text/Pandoc/Writers/Djot.hs

@@ -24,7 +24,7 @@ import Data.List (intersperse)
 import qualified Data.Text as T
 import qualified Data.Map as M
 import Text.Pandoc.Writers.Shared ( metaToContext, defField, toLegacyTable )
-import Text.Pandoc.Shared (isTightList, tshow )
+import Text.Pandoc.Shared (isTightList, tshow, stringify)
 import Text.DocLayout
 import Text.DocTemplates (renderTemplate)
 import Control.Monad.State
@@ -196,18 +196,30 @@ inlineToDjot (RawInline (Format f) t) =
 inlineToDjot (Link attr ils (src,tit)) = do
   opts <- gets options
   description <- inlinesToDjot ils
+  let ilstring = stringify ils
+  let autolink = ilstring == src
+  let email = ("mailto:" <> ilstring) == src
+  let removeClass name (ident, cls, kvs) = (ident, filter (/= name) cls, kvs)
   let attr' = D.Attr [("title", fromText tit) | not (T.null tit)] <>
-               toDjotAttr attr
-  if writerReferenceLinks opts
-     then do
-       refs@(D.ReferenceMap m) <- gets references
-       let refnum = M.size m + 1
-       let lab = fromText $ tshow refnum
-       modify $ \st -> st{ references =
-                             D.insertReference lab
-                               (fromText src, attr') refs }
-       pure $ D.addAttr attr' $ D.link description (D.Reference lab)
-     else pure $ D.addAttr attr' $ D.link description (D.Direct (fromText src))
+               toDjotAttr ( (if autolink
+                                then removeClass "uri"
+                                else id) .
+                            (if email
+                                then removeClass "email"
+                                else id) $ attr)
+  case () of
+    _ | autolink -> pure $ D.addAttr attr' $ D.urlLink (fromText ilstring)
+      | email -> pure $ D.addAttr attr' $ D.emailLink (fromText ilstring)
+      | writerReferenceLinks opts
+        -> do refs@(D.ReferenceMap m) <- gets references
+              let refnum = M.size m + 1
+              let lab = fromText $ tshow refnum
+              modify $ \st -> st{ references =
+                                    D.insertReference lab
+                                      (fromText src, attr') refs }
+              pure $ D.addAttr attr' $ D.link description (D.Reference lab)
+      | otherwise
+         -> pure $ D.addAttr attr' $ D.link description (D.Direct (fromText src))
 inlineToDjot (Image attr ils (src,tit)) = do
   opts <- gets options
   description <- inlinesToDjot ils
@@ -226,7 +238,7 @@ inlineToDjot (Image attr ils (src,tit)) = do
 inlineToDjot (Note bs) = do
   notes@(D.NoteMap m) <- gets footnotes
   let notenum = M.size m + 1
-  let lab = fromText $ "fn" <> tshow notenum
+  let lab = fromText $ tshow notenum
   contents <- blocksToDjot bs
   modify $ \st -> st{ footnotes = D.insertNote lab contents notes }
   pure $ D.footnoteReference lab

test/Tests/Old.hs

@@ -83,6 +83,11 @@ tests pandocPath =
     , test' "reader" ["-r", "textile", "-w", "native", "-s"]
       "textile-reader.textile" "textile-reader.native"
     ]
+  , testGroup "djot"
+    [ testGroup "writer" $ writerTests' "djot"
+    , test' "reader" ["-f", "djot", "-t" ,"native", "-s"]
+       "djot-reader.djot" "djot-reader.native"
+    ]
   , testGroup "docbook"
     [ testGroup "writer" $ writerTests' "docbook4"
     , test' "reader" ["-r", "docbook", "-w", "native", "-s"]