summaryrefslogtreecommitdiff
path: root/loadbars.pl
diff options
context:
space:
mode:
authorPaul Buetow <paul@buetow.org>2011-08-10 07:02:20 +0000
committerPaul Buetow <paul@buetow.org>2011-08-10 07:02:20 +0000
commit8c48dff089e1bed1f6a9f4cbb8967d692254782d (patch)
tree7b3d7fe5a1cc213f29bb02a8fabbac89e9fc28e7 /loadbars.pl
parent6b2cadd925ae161c84899d8b049e889b3021d96c (diff)
Some help text moved on top
Diffstat (limited to 'loadbars.pl')
-rwxr-xr-xloadbars.pl10
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 {