doc

dea11196 · Artemiy · 2bf1ce2a · dea11196
Commit dea11196 authored Nov 04, 2021 by Artemiy
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

src/blog.ml src/blog.ml +2 -0

No files found.
--- a/src/blog.ml
+++ b/src/blog.ml
@@ -112,6 +112,8 @@ let normalize_url target =
      | c -> c |> Char.lowercase_ascii )
    (Ubase.from_utf8 target)

+(** [normalize_tag tag] takes a tag and rids it of unwanted characters, such as
+    utf8, speces, dashes and underscores *)
 let normalize_tag tag =
  let string_map_partial f s =
    let b = Buffer.create (String.length s) in