@@ -156,10 +156,22 @@
 (first-words txs-punc-and-split-elems 5)
 (first-words txs-dashes 5)
 (first-words txs-parens-commas 5)
 (first-words txs-short 5)
 ]
+
+@defproc[(normalize [str string?]) string?]{
+
+Removes all non-space/non-alphanumeric characters from @racket[_str], converts it to lowercase, and
+replaces all spaces with hyphens.
+
+@examples[#:eval dust-eval
+(normalize "Why, Hello World!")
+(normalize "My first-ever 99-argument function, haha")
+]
+
+}
 
 @section{Article parsers and helpers}
 
 @defparam[listing-context ctxt (or/c 'blog 'feed 'print "") #:value ""]