lib/text.ml


1
2
3
4
5
6
7
8
9
10

open Base
open Sequence
open Sequence.Infix

let center ~fill n text =
  let padding = repeat fill and len_t = length text in
  let len_p = (n - len_t) / 2 in
  take (take padding len_p @ text @ padding) n

let extend ~fill n text = take (text @ repeat fill) n