summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAdrian Cochrane <adrian@openwork.nz>2021-06-07 18:51:58 +1200
committerAdrian Cochrane <adrian@openwork.nz>2021-06-07 18:51:58 +1200
commit589e0e4ee2eec35a5a6ed6fa0ddbb94e53810996 (patch)
tree6bb9c300169f9cafb0ac57172d63553d309105e7
parent6cee31ba85e77a7edfcf7e3d8f32bb4b004c481d (diff)
downloadrhapsode-589e0e4ee2eec35a5a6ed6fa0ddbb94e53810996.tar.gz
rhapsode-589e0e4ee2eec35a5a6ed6fa0ddbb94e53810996.tar.bz2
rhapsode-589e0e4ee2eec35a5a6ed6fa0ddbb94e53810996.zip
Denote that table headers are linked.
-rw-r--r--src/Render.hs2
1 files changed, 1 insertions, 1 deletions
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