Transform the letter e into eu or E

1 files changed, 15 insertions, 0 deletions

diff --git a/src/lib/modifiers/e.ml b/src/lib/modifiers/e.ml
new file mode 100644
index 0000000..8fd65bf
--- /dev/null
+++ b/src/lib/modifiers/e.ml
@@ -0,0 +1,15 @@
+(** Transform the e into eu or E *)
+let process
+  : 'a Sig.modifier
+  = fun init ->
+    let ((v2, c) , ending) = init in
+
+    match ending with
+    | None when v2 = Sounds.schwa ->
+      (* If there is no more consononant in the syllabe, change the e
+         into eu, like in sera *)
+      ((Sounds.eu `Closed, c) , ending)
+    | Some _ when v2 = Sounds.schwa ->
+      (* If there is an ending consonant, change the e into E like essai *)
+      ((Sounds.e `Opened, c) , ending)
+    | _ -> init