Add revspace specific plugins

Written by several authors. There is no log...
This commit is contained in:
Juerd Waalboer 2019-09-23 21:12:03 +02:00
parent b6855df288
commit 9797e3c1c8
8 changed files with 210 additions and 1 deletions

15
plugins/revspace_terminal Normal file
View file

@ -0,0 +1,15 @@
sub command { NEXT }
# Terminal hacks
# Reset terminal on startup
system 'reset';
# Select special characters in G1 on IBM 3151 for utf8 qr code, to counteract
# brokenness caused by squeezen's linedrawing.
sub hook_checkout {
my $select_charset = "\e>A"; # IBM 3151
my $device_control = "\eP" . $select_charset . "\e\\"; # ANSI
my $clear_line = "\r \r";
print $device_control, $clear_line;
}