slug generation improvements

blog-meta/lib/Misc.hs

@@ -25,10 +25,14 @@ getOptionsWith hdr mkDef descrs = do
       exitFailure
 
 makeSlug :: Text -> Text
-makeSlug name = Text.map toSlugChar name where
+makeSlug = Text.intercalate "-" . filter (not . Text.null) . chunks where
-  toSlugChar c
+  chunks txt =
-    | isAlphaNum c && isAscii c || c == '-' = toLower c
+    if Text.null txt then [] else
-    | otherwise                             = '_'
+    let (this', that') = Text.span isOK txt
+        this = Text.map toLower this'
+        that = Text.dropWhile (not . isOK) that' in
+    this : chunks that
+  isOK c = (isAlphaNum c && isAscii c) || c == '-'
 
 
 toTextList :: MetaValue -> Maybe [Text]

templates/taglist.html

@@ -2,7 +2,7 @@
   <ul class=tag-list>
     $for(all-tags)$
     <li>
-      <a href=tag-$it.slug$.html>$it.name$</a>
+      <a href='tag-$it.slug$.html'>$it.name$</a>
       <span class=count>($it.count$)</span>
     $endfor$
   </ul>