From 589e0e4ee2eec35a5a6ed6fa0ddbb94e53810996 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Mon, 7 Jun 2021 18:51:58 +1200
Subject: [PATCH] Denote that table headers are linked.

---
 src/Render.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Render.hs b/src/Render.hs
index e5f4f94..3c8e856 100644
--- a/src/Render.hs
+++ b/src/Render.hs
@@ -133,7 +133,7 @@ rhapsodePseudoFilter url hist =
     -- Note: not all links must have an href tag, but it's not a bad approximation visited links must.
     -- Doing it this way is easier to implement in Haskell Stylist.
     CSSPseudo.addTest "visited" Nothing "href" (CSSSel.PropertyFunc $ testVisited hist url) $
-    CSSPseudo.addRewrite "link" "[src], [href], details > summary" $
+    CSSPseudo.addRewrite "link" "[src], [href], details > summary, tr:first-of-type th" $
     CSSPseudo.addRewrite' "target" (targetSel $ uriFragment url) $
     CSSPseudo.htmlPsuedoFilter Style.queryableStyleSheet
 
-- 
2.30.2