Add revspace specific plugins
Written by several authors. There is no log...
This commit is contained in:
parent
b6855df288
commit
9797e3c1c8
8 changed files with 210 additions and 1 deletions
15
plugins/revspace_terminal
Normal file
15
plugins/revspace_terminal
Normal 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;
|
||||
}
|
Loading…
Add table
Add a link
Reference in a new issue