font works again

1 files changed, 0 insertions, 350 deletions

diff --git a/share/lib/Loadbars/HelpDispatch.pm b/share/lib/Loadbars/HelpDispatch.pm
deleted file mode 100644
index dfee7f5..0000000
--- a/share/lib/Loadbars/HelpDispatch.pm
+++ /dev/null
@@ -1,350 +0,0 @@
-package Loadbars::HelpDispatch;
-
-use strict;
-use warnings;
-
-use Loadbars::Constants;
-use Loadbars::Shared;
-
-sub create () {
-    my $hosts = '';
-
-    my $textdesc = <<END;
-CPU stuff:
-    st = Steal in % [see man proc] (extended)
-        Color: Red
-    gt = Guest in % [see man proc] (extended)
-        Color: Red
-    sr = Soft IRQ usage in % (extended)
-        Color: White
-    ir = IRQ usage in % (extended)
-        Color: White
-    io = IOwait cpu sage in % 
-        Color: Purple
-    id = Idle cpu usage in % (extended)
-        Color: Black
-    ni = Nice cpu usage in % 
-        Color: Green
-    us = User cpu usage in % 
-        Color: Yellow, dark yellow if to>50%, orange if to>50%
-    sy = System cpu sage in % 
-        Blue, lighter blue if >30%
-    to = Total CPU usage, which is (100% - id)
-    pk = Max us+sy peak of last avg. samples (extended)
-    avg = System load average; desc. order: 1, 5 and 15 min. avg. 
-    1px horizontal line: Maximum sy+us+io of last 'avg' samples (extended)
-    Extended means: text display only if extended mode is turned on
-Memory stuff:
-    Ram: System ram usage in %
-        Color: Dark grey
-    Swp: System swap usage in %
-        Color: Grey
-Config file support:
-    Loadbars tries to read ~/.loadbarsrc and it's possible to configure any
-    option you find in --help but without leading '--'. For comments just use
-    the '#' sign. Sample config:
-        showcores=1 # Always show cores on startup
-        showtext=0 # Always don't display text on startup
-        extended=1 # Always use extended mode on startup
-    will always show all CPU cores in extended mode but no text display. 
-Examples:
-    loadbars --extended 1 --showcores 1 --height 300 --hosts localhost
-    loadbars --hosts localhost,server1.example.com,server2.example.com
-    loadbars --cluster foocluster (foocluster is in /etc/clusters [ClusterSSH])
-END
-
- # mode 1: Option is shown in the online help menu (stdout not sdl)
- # mode 2: Option is shown in the 'usage' screen from the command line
- # mode 4: Option is used to generate the GetOptions parameters for Getopt::Long
- # Combinations: Like chmod(1)
-
-    my %d = (
-        average => {
-            menupos => 3,
-            help    => 'Num of samples for avg. (more fluent animations)',
-            mode    => 6,
-            type    => 'i'
-        },
-        average_hot_up => {
-            menupos => 4,
-            cmd     => 'a',
-            help    => 'Increases number of samples for calculating avg. by 1',
-            mode    => 1
-        },
-        average_hot_dn => {
-            menupos => 5,
-            cmd     => 'y',
-            help    => 'Decreases number of samples for calculating avg. by 1',
-            mode    => 1
-        },
-
-        barwidth => {
-            menupos => 5,
-            help    => 'Set bar width',
-            mode    => 6,
-            type    => 'i'
-        },
-        windowwidth_hot_up => {
-            menupos => 90,
-            help    => 'Increase window width by 100px',
-            cmd     => 'right',
-            mode    => 1,
-        },
-        windowwidth_hot_dn => {
-            menupos => 91,
-            help    => 'Decrease window width by 100px',
-            cmd     => 'left',
-            mode    => 1,
-        },
-        windowheight_hot_up => {
-            menupos => 92,
-            help    => 'Increase window height by 100px',
-            cmd     => 'down',
-            mode    => 1,
-        },
-        windowheight_hot_dn => {
-            menupos => 93,
-            help    => 'Decrease window height by 100px',
-            cmd     => 'up',
-            mode    => 1,
-        },
-
-        cluster => {
-            menupos => 6,
-            help    => 'Cluster name from /etc/clusters',
-            var     => \$C{cluster},
-            mode    => 6,
-            type    => 's'
-        },
-        configuration => {
-            menupos => 6,
-            cmd     => 'c',
-            help    => 'Show current configuration',
-            mode    => 4
-        },
-
-        extended => {
-            menupos => 6,
-            help    => 'Toggle extended display (0 or 1)',
-            mode    => 7,
-            type    => 'i'
-        },
-        extended_hot => {
-            menupos => 23,
-            cmd     => 'e',
-            help    => 'Toggle extended mode',
-            mode    => 1
-        },
-
-        factor => {
-            menupos => 7,
-            help    => 'Set graph scale factor (1.0 means 100%)',
-            mode    => 6,
-            type    => 's'
-        },
-        factor_hot_up => {
-            menupos => 8,
-            cmd     => 's',
-            help    => 'Increases graph scale factor by 0.1',
-            mode    => 1
-        },
-        factor_hot_dn => {
-            menupos => 9,
-            cmd     => 'x',
-            help    => 'Decreases graph scale factor by 0.1',
-            mode    => 1
-        },
-
-        height => {
-            menupos => 10,
-            help    => 'Set windows height',
-            mode    => 6,
-            type    => 'i'
-        },
-
-        help_hot => {
-            menupos => 11,
-            cmd     => 'h',
-            help    => 'Prints this help screen',
-            mode    => 1
-        },
-
-        hosts => {
-            menupos => 12,
-            help =>
-              'Comma sep. list of hosts; optional: user@ in front to each host',
-            var  => \$hosts,
-            mode => 6,
-            type => 's'
-        },
-
-        maxwidth => {
-            menupos => 16,
-            help    => 'Set max width',
-            mode    => 6,
-            type    => 'i'
-        },
-
-        quit_hot => { menupos => 16, cmd => 'q', help => 'Quits', mode => 1 },
-        writeconfig_hot => {
-            menupos => 16,
-            cmd     => 'w',
-            help    => 'Write config to config file',
-            mode    => 1
-        },
-
-        samples => {
-            menupos => 17,
-            help    => 'Set number of samples until ssh reconnects',
-            mode    => 6,
-            type    => 'i'
-        },
-
-        showcores => {
-            menupos => 17,
-            help    => 'Toggle core display (0 or 1)',
-            mode    => 7,
-            type    => 'i'
-        },
-        showcores_hot =>
-          { menupos => 17, cmd => '1', help => 'Toggle show cores', mode => 1 },
-
-        showmem => {
-            menupos => 17,
-            help    => 'Toggle mem display (0 or 1)',
-            mode    => 7,
-            type    => 'i'
-        },
-        showmem_hot =>
-          { menupos => 17, cmd => 'm', help => 'Toggle show mem', mode => 1 },
-
-        showtexthost => {
-            menupos => 18,
-            help    => 'Toggle hostname/num text display (0 or 1)',
-            mode    => 7,
-            type    => 'i'
-        },
-        showtexthost_hot => {
-            menupos => 18,
-            cmd     => 'u',
-            help    => 'Toggle hostname/num text display',
-            mode    => 1
-        },
-
-        showtext => {
-            menupos => 19,
-            help    => 'Toggle text display (0 or 1)',
-            mode    => 7,
-            type    => 'i'
-        },
-        showtext_hot => {
-            menupos => 19,
-            cmd     => 't',
-            help    => 'Toggle text display',
-            mode    => 1
-        },
-
-        sshopts =>
-          { menupos => 20, help => 'Set SSH options', mode => 6, type => 's' },
-    );
-
-    my %d_by_short = map {
-        $d{$_}{cmd} => $d{$_}
-
-      } grep {
-        exists $d{$_}{cmd}
-
-      } keys %d;
-
-    my $closure = sub ($;$) {
-        my ( $arg, @rest ) = @_;
-
-        if ( $arg eq 'command' ) {
-            my ( $cmd, @args ) = @rest;
-
-            my $cb = $d{$cmd};
-            $cb = $d_by_short{$cmd} unless defined $cb;
-
-            unless ( defined $cb ) {
-                system $cmd;
-                return 0;
-            }
-
-            if ( length $cmd == 1 ) {
-                for my $key ( grep { exists $d{$_}{cmd} } keys %d ) {
-                    do { $cmd = $key; last } if $d{$key}{cmd} eq $cmd;
-                }
-            }
-
-        }
-        elsif ( $arg eq 'hotkeys' ) {
-            $textdesc . "Hotkeys:\n" . (
-                join "\n",
-                map {
-                    "$_\t- $d_by_short{$_}{help}"
-
-                  } grep {
-                    $d_by_short{$_}{mode} & 1 and exists $d_by_short{$_}{help};
-
-                  } sort { $d_by_short{$a}{menupos} <=> $d_by_short{$b}{menupos} }
-                  sort keys %d_by_short
-            );
-
-        }
-        elsif ( $arg eq 'usage' ) {
-            $textdesc . (
-                join "\n",
-                map {
-                    if ( $_ eq 'help' )
-                    {
-                        "--$_\t\t- $d{$_}{help}";
-                    }
-                    else {
-                        "--$_ <ARG>\t- $d{$_}{help}";
-                    }
-
-                  } grep {
-                    $d{$_}{mode} & 2
-                      and exists $d{$_}{help}
-
-                  } sort { $d{$a}{menupos} <=> $d{$b}{menupos} } sort keys %d
-            );
-
-        }
-        elsif ( $arg eq 'options' ) {
-            map {
-                "$_="
-                  . $d{$_}{type} => (
-                    defined $d{$_}{var}
-                    ? $d{$_}{var}
-                    : \$C{$_}
-                  );
-
-              } grep {
-                $d{$_}{mode} & 4 and exists $d{$_}{type};
-
-              } sort keys %d;
-        }
-    };
-
-    $d{configuration}{cb} = sub {
-        Loadbars::Main::say sort map {
-            "$_->[0] = $_->[1]"
-
-          } grep {
-            defined $_->[1]
-
-          } map {
-            [
-                $_ => exists $d{$_}{var}
-                ? ${ $d{$_}{var} }
-                : $C{$_}
-            ]
-
-          } keys %d;
-    };
-
-    return ( \$hosts, $closure );
-}
-
-1;