stitch

Note taking for messy minimalists

commit 3534b2f4ed4ee682d2c09aa501e77338c0e166f7
parent 121a6a376209de3f5a9474bf03721e2032a73e01
Author: Marc Coquand <marc@mccd.space>
Date:   Mon, 13 May 2024 11:10:51 -0500

Initial commit x2

Diffstat:
R
README.md -> README
 | 
0

D
lib/zipper.ml
 | 
22
----------------------
M
test/dune
 | 
2
+-
R
test/test_apbox.ml -> test/test_stitch.ml
 | 
0

4 files changed, 1 insertion(+), 23 deletions(-)
diff --git a/README.md b/README
diff --git a/lib/zipper.ml b/lib/zipper.ml
@@ -1,22 +0,0 @@
-type zipper =
-  { above : string list
-  ; selected : string
-  ; below : string list
-  }
-
-let up (zipper : zipper) =
-  match zipper.above with
-  | [] -> zipper
-  | a :: rest -> { above = rest; selected = a; below = zipper.selected :: zipper.below }
-
-
-let down (zipper : zipper) =
-  match zipper.below with
-  | [] -> zipper
-  | a :: rest -> { below = rest; selected = a; above = zipper.selected :: zipper.above }
-
-
-let selected zipper = zipper.selected
-
-let to_array zipper =
-  List.concat [ zipper.above; [ zipper.selected ]; zipper.below ] |> Array.of_list
diff --git a/test/dune b/test/dune
@@ -1,2 +1,2 @@
 (test
- (name test_apbox))
+ (name test_stitch))
diff --git a/test/test_apbox.ml b/test/test_stitch.ml