diff --git a/lib/capytui/src/loop.ml b/lib/capytui/src/loop.ml index 11ced67..9548eb7 100644 --- a/lib/capytui/src/loop.ml +++ b/lib/capytui/src/loop.ml @@ -5,7 +5,7 @@ open Async let clear_images () = let _ : _ = Sys_unix.command - "kitten icat --clear --silent >/dev/tty /dev/null" + "kitty +kitten icat --clear --silent >/dev/tty /dev/null" in () ;; @@ -15,7 +15,7 @@ let draw_command_for_image = let args = List.concat - [ [ "kitten"; "icat"; "--silent" ] + [ [ "kitty"; "+kitten"; "icat"; "--silent" ] ; (if scale then [ "--scale-up" ] else []) ; [ "--place" ; [%string "'%{width#Int}x%{height#Int}@%{column#Int}x%{row#Int}'"] diff --git a/lib/capytui/tui/scroller/test/test_capytui_scroller.ml b/lib/capytui/tui/scroller/test/test_capytui_scroller.ml index a99fe2c..66a9b31 100644 --- a/lib/capytui/tui/scroller/test/test_capytui_scroller.ml +++ b/lib/capytui/tui/scroller/test/test_capytui_scroller.ml @@ -635,7 +635,9 @@ let%expect_test "Testing the injection function" = handle [ Inject (Scroll_to { top = 100; bottom = 300 }) ]; Handle.show handle; - (* NOTE: When the range is bigger than the viewport we go to the bottom. Not totally sure if this is ideal in all situations though at least there is a test showing this... *) + (* NOTE: When the range is bigger than the viewport we go to the bottom. + Not totally sure if this is ideal in all situations though at least + there is a test showing this... *) [%expect {| ┌────────────────────────────────────────┐ @@ -654,7 +656,8 @@ let%expect_test "Testing the injection function" = handle [ Inject (Scroll_to { top = 100; bottom = 300 }) ]; Handle.show handle; - [%expect {| + [%expect + {| ┌────────────────────────────────────────┐ │ │ │ │