App::Fix::term

Table of Contents

• NAME

• AUTHOR

• VERSION

• TITLE

• SUBTITLE

• COPYRIGHT

• Introduction

• Motivation

• Fix

Top of Document

Introduction

This is a Raku program to fix broken (i.e. borked) terminals.

Motivation

Sometimes I exit a program nastily and I end up with a borked (broken) terminal fore example I ^C out of raku command line repl and I can no longer see what I am typing. solution run fix i.e. fix.raku and everything just clears up.

So put fix in your PATH and type fix and the borked terminal should come good.

Fix

fix --help
Usage:
  fix

use Terminal::ANSI::OO :t;
use Term::termios;

multi sub MAIN( --> Int:D) {
    my $flags := Term::termios.new(:fd($*IN.native-descriptor)).getattr;
    $flags.set_lflags('ICANON');
    $flags.set_lflags('ECHO');
    $flags.setattr(:NOW);
    print t.show-cursor ~ t.restore-screen ~ t.clear-screen;
    exit 0;
}