~alcinnz/rhapsode

67bc3ea6070f8e2b75612274c87af8c1528d1370 — Adrian Cochrane 4 years ago 4298dd3
Make '#' refer to top of page.
1 files changed, 1 insertions(+), 0 deletions(-)

M src/Render.hs
M src/Render.hs => src/Render.hs +1 -0
@@ 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 _ = []