github-tui/lib/string_extra.ml

let unlines : string list -> string = String.concat "\n"

let graphemes_len =
  Uuseg_string.fold_utf_8 `Grapheme_cluster (fun len _ -> len + 1) 0

let repeat_txt n txt = String.concat "" (List.init n (fun _ -> txt))

let fill_right (n : int) (s : string) : string =
  s ^ repeat_txt (n - graphemes_len s) " "