From 4af2e54cedd28d11150f7c339cb53ba4adc64258 Mon Sep 17 00:00:00 2001 From: Andinus Date: Mon, 3 Aug 2020 00:14:03 +0530 Subject: Add auto hide functionality This will automatically hide columns if the term size is small. It's just some dumb if conditions, no magic. --- ara.pl | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/ara.pl b/ara.pl index b28cd31..16af5f9 100755 --- a/ara.pl +++ b/ara.pl @@ -6,6 +6,7 @@ use warnings; use lib::relative 'lib'; use StateNotes; +use Term::Size; use Path::Tiny; use Time::Moment; use Text::ASCIITable; @@ -34,7 +35,8 @@ foreach my $path (@INC) { } my ( $use_local_file, $get_latest, $state_notes, $rows_to_print, $no_delta, - $no_total, @to_hide, %hide, @to_show, %show, $no_words, $show_delta ); + $no_total, @to_hide, %hide, @to_show, %show, $no_words, $show_delta, + $auto_hide ); sub HelpMessage { print LOCALCOLOR GREEN "Options: @@ -45,6 +47,7 @@ sub HelpMessage { --showdelta Print delta values for all rows --nodelta Don't print changes in values --nowords Don't format numbers with words + --autohide Automatically hide columns according to term size --hide Hide states, columns from table (space seperated) --show Show only these states (space seperated)"; print LOCALCOLOR CYAN " @@ -61,6 +64,7 @@ GetOptions( "showdelta" => \$show_delta, "nodelta" => \$no_delta, "nototal" => \$no_total, + "autohide" => \$auto_hide, "nowords" => \$no_words, "hide=s{1,}" => \@to_hide, # Getopt::Long docs say that this is an # experimental feature with a warning. @@ -79,6 +83,15 @@ Overriding --latest option\n"; push @to_hide, "india" if $no_total; +if ( $auto_hide ) { + my ( $t_columns, $t_rows ) = Term::Size::chars; + + push @to_hide, "updated" if $t_columns < 110; + push @to_hide, "active" if $t_columns < 100; + undef $show_delta if $t_columns < 80; + $no_delta = 0 if $t_columns < 80; +} + # Creating %hide and undefining all %hash{@to_hide}, after this we # check if %hash{@to_hide} exists with exists keyword. Read this as # "undef these keys from the hash". https://perldoc.pl/perldata#Slices -- cgit 1.4.1-2-gfad0 committer'>committer

path: root/cpp/test_all

blob: a171031e952b56866b4a01802f9ccf2e08d02ef2 (plain) (tree)

b589f25a ^