diff options
| author | Paul Buetow <paul@buetow.org> | 2011-08-10 07:02:20 +0000 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2011-08-10 07:02:20 +0000 |
| commit | 8c48dff089e1bed1f6a9f4cbb8967d692254782d (patch) | |
| tree | 7b3d7fe5a1cc213f29bb02a8fabbac89e9fc28e7 /loadbars.pl | |
| parent | 6b2cadd925ae161c84899d8b049e889b3021d96c (diff) | |
Some help text moved on top
Diffstat (limited to 'loadbars.pl')
| -rwxr-xr-x | loadbars.pl | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/loadbars.pl b/loadbars.pl index 207828b..20ab47b 100755 --- a/loadbars.pl +++ b/loadbars.pl @@ -631,17 +631,16 @@ END } } elsif ($arg eq 'hotkeys') { - (join "\n", map { + $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) - . "\n$textdesc"; + } sort { $d_by_short{$a}{menupos} <=> $d_by_short{$b}{menupos} } sort keys %d_by_short); } elsif ($arg eq 'usage') { - (join "\n", map { + $textdesc . (join "\n", map { if ($_ eq 'help') { "--$_\t\t- $d{$_}{help}" } else { @@ -651,8 +650,7 @@ END } grep { $d{$_}{mode} & 2 and exists $d{$_}{help} - } sort { $d{$a}{menupos} <=> $d{$b}{menupos} } sort keys %d) - . "\n$textdesc"; + } sort { $d{$a}{menupos} <=> $d{$b}{menupos} } sort keys %d); } elsif ($arg eq 'options') { map { |
