From 0097e306a1e3b53e4cda304aac82b8778036eddf Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 11 Jul 2018 21:17:42 -0400
Subject: - Got rid of "lux text replace-once" and "lux text replace-all"
 extensions.

---
 stdlib/source/lux.lux | 26 +++++++++++++++++++++++++-
 1 file changed, 25 insertions(+), 1 deletion(-)

(limited to 'stdlib/source/lux.lux')

diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux
index 9dde82dc8..56fa96018 100644
--- a/stdlib/source/lux.lux
+++ b/stdlib/source/lux.lux
@@ -4144,9 +4144,33 @@
                     #import-refer {#refer-defs _referrals
                                    #refer-open _openings}})))))
 
+(def: (split at x)
+  (-> Nat Text (Maybe [Text Text]))
+  (case [(..clip2 +0 at x) (..clip1 at x)]
+    [(#.Some pre) (#.Some post)]
+    (#.Some [pre post])
+
+    _
+    #.None))
+
+(def: (split-with token sample)
+  (-> Text Text (Maybe [Text Text]))
+  (do ..Monad<Maybe>
+    [index (..index-of token sample)
+     pre+post' (split index sample)
+     #let [[pre post'] pre+post']
+     _+post (split ("lux text size" token) post')
+     #let [[_ post] _+post]]
+    (wrap [pre post])))
+
 (def: (replace-all pattern value template)
   (-> Text Text Text Text)
-  ("lux text replace-all" template pattern value))
+  (case (..split-with pattern template)
+    (#.Some [pre post])
+    ($_ "lux text concat" pre value (replace-all pattern value post))
+
+    #.None
+    template))
 
 (def: (count-ups ups input)
   (-> Nat Text Nat)
-- 
cgit v1.2.3