From cc46667953b609d87bbf5611f50843871b304a0c Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 7 Nov 2021 21:08:20 -0800
Subject: LaTeX reader: add 'uri' class when parsing `\url`.

Closes #7672.
---
 src/Text/Pandoc/Readers/LaTeX.hs | 4 ++--
 test/command/3681.md             | 2 +-
 test/command/4832.md             | 4 ++--
 test/latex-reader.native         | 6 +++---
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 15148debb..25acc0f7e 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -390,8 +390,8 @@ inlineCommands = M.unions
                                unescapeURL .
                                removeDoubleQuotes $ untokenize src)
     -- hyperref
-    , ("url", (\url -> link url "" (str url)) . unescapeURL . untokenize <$>
-                    bracedUrl)
+    , ("url", (\url -> linkWith ("",["uri"],[]) url "" (str url))
+                        . unescapeURL . untokenize <$> bracedUrl)
     , ("nolinkurl", code . unescapeURL . untokenize <$> bracedUrl)
     , ("href", do url <- bracedUrl
                   sp
diff --git a/test/command/3681.md b/test/command/3681.md
index 3e6c71a47..dc6b90860 100644
--- a/test/command/3681.md
+++ b/test/command/3681.md
@@ -45,7 +45,7 @@ Software developers create \cicd pipelines to… Following issue can be resolved
     , Note
         [ Para
             [ Link
-                ( "" , [] , [] )
+                ( "" , [ "uri" ] , [] )
                 [ Str "https://en.wikipedia.org/wiki/CI/CD" ]
                 ( "https://en.wikipedia.org/wiki/CI/CD" , "" )
             ]
diff --git a/test/command/4832.md b/test/command/4832.md
index 5e9f2ac77..ec636b2b7 100644
--- a/test/command/4832.md
+++ b/test/command/4832.md
@@ -4,7 +4,7 @@
 ^D
 [ Para
     [ Link
-        ( "" , [] , [] )
+        ( "" , [ "uri" ] , [] )
         [ Str "http://example.com/foo%20bar.htm" ]
         ( "http://example.com/foo%20bar.htm" , "" )
     ]
@@ -17,7 +17,7 @@
 ^D
 [ Para
     [ Link
-        ( "" , [] , [] )
+        ( "" , [ "uri" ] , [] )
         [ Str "http://example.com/foo{bar}.htm" ]
         ( "http://example.com/foo{bar}.htm" , "" )
     ]
diff --git a/test/latex-reader.native b/test/latex-reader.native
index 2be447c0d..32ee86899 100644
--- a/test/latex-reader.native
+++ b/test/latex-reader.native
@@ -1868,7 +1868,7 @@ Pandoc
       , Str "ampersand:"
       , Space
       , Link
-          ( "" , [] , [] )
+          ( "" , [ "uri" ] , [] )
           [ Str "http://example.com/?foo=1&bar=2" ]
           ( "http://example.com/?foo=1&bar=2" , "" )
       ]
@@ -1878,7 +1878,7 @@ Pandoc
         ]
       , [ Para
             [ Link
-                ( "" , [] , [] )
+                ( "" , [ "uri" ] , [] )
                 [ Str "http://example.com/" ]
                 ( "http://example.com/" , "" )
             ]
@@ -1902,7 +1902,7 @@ Pandoc
           [ Str "Blockquoted:"
           , Space
           , Link
-              ( "" , [] , [] )
+              ( "" , [ "uri" ] , [] )
               [ Str "http://example.com/" ]
               ( "http://example.com/" , "" )
           ]
-- 
cgit v1.2.3