~jack/jackkelly-name

14834fb001ffcb69bfa305a6633500bea80bbe62 — Jack Kelly 8 months ago 3088d06
Fix slugs
1 files changed, 1 insertions(+), 1 deletions(-)

M src/Site.hs
M src/Site.hs => src/Site.hs +1 -1
@@ 19,7 19,7 @@ sectionLabel :: [String] -> String
sectionLabel = intercalate " | " . reverse . ("jackkelly.name":)

slug :: String -> String
slug = filter (not . (`elem` ("',!?()+:" :: String)))
slug = filter (not . (`elem` ("',!?()+:\"" :: String)))
  . replace "&. " '_'
  . map toLower
  where