From 70b2c5f3a971822b7f3465a7e3df4848fa2ca04e Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 5 Oct 2024 09:31:41 -0700
Subject: [PATCH] T.P.SelfContained: improve handling of links to remote CSS.

Previously these were only converted to a `<style>` element
if the link was being served with a text/css mime type (not
e.g. text/plain).  We now add a secondary check for `rel="stylesheet"`
to better handle such cases.

Closes #10261.
---
 src/Text/Pandoc/SelfContained.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Text/Pandoc/SelfContained.hs b/src/Text/Pandoc/SelfContained.hs
index 617cdfc33908..25b9a960979d 100644
--- a/src/Text/Pandoc/SelfContained.hs
+++ b/src/Text/Pandoc/SelfContained.hs
@@ -127,7 +127,8 @@ convertTags (t@(TagOpen "link" as):ts) =
                      (("href",dataUri) : [(x,y) | (x,y) <- as, x /= "href"]) :
                      rest
                 Fetched (mime, bs)
-                  | "text/css" `T.isPrefixOf` mime
+                  | ("text/css" `T.isPrefixOf` mime ||
+                      fromAttrib "rel" t == "stylesheet")
                     && T.null (fromAttrib "media" t)
                     && not ("</" `B.isInfixOf` bs) -> do
                       rest <- convertTags $