From 67bc3ea6070f8e2b75612274c87af8c1528d1370 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Fri, 15 May 2020 19:34:07 +1200
Subject: [PATCH] Make '#' refer to top of page.

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

diff --git a/src/Render.hs b/src/Render.hs
index f85bca2..9be6cb7 100644
--- a/src/Render.hs
+++ b/src/Render.hs
@@ -102,6 +102,7 @@ loadUserStyles styles = do
     loadFiles style [] = return style
 
 targetSel "" = [CSSTok.Ident "main"]
+targetSel "#" = [CSSTok.Colon, CSSTok.Ident "root"]
 targetSel ('#':id) = [CSSTok.Hash CSSTok.HUnrestricted $ Txt.pack id]
 targetSel _ = []
 
-- 
2.30.2