melse.tngl.sh
a code review tool
feat(tui): add q, esc, and backspace to exit code review view
+4
-2
+4
-2
lib/tui/code_review_view.ml
+4
-2
lib/tui/code_review_view.ml
···
97
97
; View.text " "
98
98
; shortcut "PgDn/PgUp" "scroll diff"
99
99
; View.text " "
100
-
; shortcut "esc" "back"
100
+
; shortcut "q/esc" "back"
101
101
; progress
102
102
]
103
103
;;
···
264
264
| _ -> Effect.Ignore)
265
265
else (
266
266
match event with
267
-
| Key_press { key = Escape; mods = [] } -> on_exit
267
+
| Key_press { key = Escape; mods = [] }
268
+
| Key_press { key = ASCII 'q'; mods = [] }
269
+
| Key_press { key = Backspace; mods = [] } -> on_exit
268
270
| Key_press { key = ASCII 'j'; mods = [] }
269
271
| Key_press { key = Arrow `Down; mods = [] } ->
270
272
if num_files = 0