Browse Source

Fix kitty keyboard protocol keys F1, F2, F4 (2nd attempt).

Margers 1 month ago
parent
commit
f2cfcdab3b
1 changed files with 6 additions and 0 deletions
  1. 6 0
      packages/rtl-console/src/unix/keyboard.pp

+ 6 - 0
packages/rtl-console/src/unix/keyboard.pp

@@ -1811,6 +1811,12 @@ begin
       DoAddSequence(st,AnsiChar,scan,shift);
   end;
   sunKeySquences;
+  if fpgetenv('TERM')='xterm-kitty' then {special exception for kitty keys only for Kitty terminal emulator}
+  begin
+    DoAddSequence(#27'[P',0,kbF1,[]);
+    DoAddSequence(#27'[Q',0,kbF2,[]);
+    DoAddSequence(#27'[S',0,kbF4,[]);
+  end;
 end;
 
 function RawReadKey:AnsiChar;