package slug

  1. Overview
  2. Docs
package slug
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file slug.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
module Slug_data = Slug_data

module Charmap = struct
  type t = (string, string) Hashtbl.t

  let mk_charmap maps =
    let charmap_hash : t = Hashtbl.create 600 in
    let () =
      maps
      |> List.iter
           (List.iter (fun (key, value) -> Hashtbl.add charmap_hash key value))
    in
    charmap_hash

  let base = mk_charmap [ Slug_data.base ]
end

let non_alphaNum = Re.Pcre.regexp {|[^A-Za-z0-9\s]|}

let slugify ?(sep = "-") ?(charmap = Charmap.base) ?(lowercase = true) str =
  let str =
    Uunf_string.normalize_utf_8 `NFC str
    |> Uuseg_string.fold_utf_8 `Grapheme_cluster
         (fun acc cluster ->
           match Hashtbl.find_opt charmap cluster with
           | None -> acc ^ cluster
           | Some replace -> acc ^ replace)
         ""
    |> String.trim in
  let str = Re.replace_string ~all:true non_alphaNum ~by:"" str in
  let str = Re.replace_string ~all:true (Re.Pcre.regexp "\\s+") ~by:sep str in
  let str = if lowercase then String.lowercase_ascii str else str in
  str