From 055c743c55bde27f4475d3434c26d8383c0c3ea1 Mon Sep 17 00:00:00 2001
From: Federico Igne <undyamon@disroot.org>
Date: Thu, 11 Jan 2024 19:31:31 +0100
Subject: bulk: add PoC of vim-like modular editor

---
 lib/text.ml | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 lib/text.ml

(limited to 'lib/text.ml')

diff --git a/lib/text.ml b/lib/text.ml
new file mode 100644
index 0000000..ff1f727
--- /dev/null
+++ b/lib/text.ml
@@ -0,0 +1,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
-- 
cgit v1.2.3