From 51363e58abf555d165da1279db5cee677a4d2672 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Fri, 1 Jan 2021 16:04:12 +1300
Subject: [PATCH] Style <summary> as links, play the dading.

---
 src/Render.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/Render.hs b/src/Render.hs
index 9176343..3c31794 100644
--- a/src/Render.hs
+++ b/src/Render.hs
@@ -132,8 +132,10 @@ testVisited hist base val = uriToText url `Trie.member` hist
     uriToText uri = pack $ uriToString id uri ""
 
 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]" $
+    CSSPseudo.addRewrite "link" "[src], [href], details > summary" $
     CSSPseudo.addRewrite' "target" (targetSel $ uriFragment url) $
     CSSPseudo.htmlPsuedoFilter Style.queryableStyleSheet
 
-- 
2.30.2