refactors ++ta-off in drum

2024-12-11 23:48:22 +03:00 · 2017-03-03 15:27:32 -05:00 · 2017-03-03 15:27:32 -05:00 · 43dc8afd1d
commit 43dc8afd1d
parent f92374e069
1 changed files with 6 additions and 3 deletions
--- a/lib/drum.hoon
+++ b/lib/drum.hoon
@ -647,9 +647,7 @@
  ::
  ++  ta-off                                          ::  reset buffer offset
    |=  ted/sole-edit
-    =.  off  ?:  |-  ?.  ?=({$mor *} ted)
-                   ?=({$set *} ted)
-                 |-  ?~(p.ted | |(^$(ted i.p.ted) $(p.ted t.p.ted)))
+    =.  off  ?:  (any:edit ted |=(a/sole-edit ?=($set -.a)))
               0
             off
    +>
@ -884,6 +882,11 @@
        (cut pos num)
        (cat pos txt)
    ==
+  ++  any                                             ::  matches?
+    |=  {a/sole-edit b/$-(sole-edit ?)}
+    ^-  ?
+    ?.  ?=($mor -.a)  (b a)
+    (lien p.a |=(c/sole-edit ^$(a c)))
  --
 ++  offset                                            ::  calculate offsets
  |%