wip

src/mpv/control.gleam

@@ -67,6 +67,10 @@ pub fn get_playback_time(socket: Socket) -> Result(PlaybackTime, ControlError) {
   }
 }
 
+pub fn clear_screen() -> Nil {
+  io.print("\u{001B}[2J\u{001B}[H")
+}
+
 fn send_command(socket: Socket, command: json.Json) -> Result(String, Reason) {
   result.try(tcp.send(socket, json.to_string(command) <> "\n"), fn(_) {
     let timeout_ms = 10_000

test/mpv/key_test.gleam

@@ -12,30 +12,22 @@ type TestCase {
 }
 
 pub fn key_from_list_test() {
-  let base_tests = [TestCase([], key.Continue([]))]
+  let test_cases = [
-
+    TestCase(["c"], Char("c")),
-  let char_tests = [TestCase(["c"], Char("c"))]
-
-  let escape_tests = [
-    TestCase([esc, csi], key.Continue([esc, csi])),
-    TestCase([esc], key.Continue([esc])),
-
     TestCase([esc, csi, "D"], key.Left),
     TestCase([esc, csi, "C"], key.Right),
     TestCase([esc, csi, "A"], key.Up),
     TestCase([esc, csi, "B"], key.Down),
-  ]
+    TestCase([esc, csi], key.Continue([esc, csi])),
-
+    TestCase([esc], key.Continue([esc])),
-  let input_tests = [
+    TestCase([], key.Continue([])),
     TestCase(["$"], key.Continue(["$"])),
     TestCase(["$", "a"], key.Continue(["$", "a"])),
     TestCase(["$", "a", "b"], key.Continue(["$", "ab"])),
     TestCase(["$", "ab", "\r"], key.Input("ab")),
   ]
 
-  let test_cases = [base_tests, char_tests, escape_tests, input_tests]
+  list.each(test_cases, fn(tc) {
-
-  list.each(list.flatten(test_cases), fn(tc) {
     assert tc.expected == key.from_list(tc.input)
   })
 }