From c2ede57213b356a2c2ea2d9a89fb008b85ab8db1 Mon Sep 17 00:00:00 2001
From: Evan Silberman <evan@jklol.net>
Date: Mon, 25 Mar 2024 12:32:26 -0700
Subject: [PATCH] Underline links

---
 src/Text/Pandoc/Writers/ANSI.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Text/Pandoc/Writers/ANSI.hs b/src/Text/Pandoc/Writers/ANSI.hs
index 0a26e5abe..975ec224c 100644
--- a/src/Text/Pandoc/Writers/ANSI.hs
+++ b/src/Text/Pandoc/Writers/ANSI.hs
@@ -268,7 +268,7 @@ inlineToANSI _ Space = return D.space
 
 inlineToANSI opts (Link (_, _, _) txt (src, _)) = do
   label <- inlineListToANSI opts txt
-  return $ D.fg D.cyan $ D.link src label
+  return $ D.underlined $ D.fg D.cyan $ D.link src label
 
 inlineToANSI opts (Image _ alt _) = do
   alt' <- inlineListToANSI opts alt