storm/w3m
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #134 from DavidSpickett/master

Browse Source 
Show keyboard shortcuts in a consistent order in help
This commit is contained in:
Tatsuya Kinoshita
2020-08-02 20:08:30 +09:00
committed by GitHub
parent 09cf3874fc 638f46d091
commit 8911c57eb2
1 changed files with 14 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
scripts/w3mhelp.cgi.in
View File

@@ -72,22 +72,26 @@ local (%funckeydesc, $key, $fname, $desc);
%funcname = (%funcname, %buf_funcname, %lineedit_funcname, %menu_funcname);
%funcdesc = (%funcdesc, %buf_funcdesc, %lineedit_funcdesc, %menu_funcdesc);
while (($fname, $desc) = each %funcdesc) {
$funckeydesc{$funcname{$fname}} = "$fname\n$desc\n";
# sort for consistent order each time this is run
foreach my $fname (sort keys %funcdesc) {
$funckeydesc{$funcname{$fname}} = "$fname\n$funcdesc{$fname}\n";
}
while (($key, $fname) = each %keyfunc) {
foreach $key (sort keys %keyfunc) {
$keydata{$key} && next;
$funckeydesc{$funcname{$fname}} .= "$key,";
$funckeydesc{$funcname{$keyfunc{$key}}} .= "$key,";
}
while (($key, $fname) = each %buf_keyfunc) {
$funckeydesc{$funcname{$fname}} .= "$key,";
foreach $key (sort keys %buf_keyfunc) {
$keydata{$key} && next;
$funckeydesc{$funcname{$buf_keyfunc{$key}}} .= "$key,";
}
while (($key, $fname) = each %lineedit_keyfunc) {
$funckeydesc{$funcname{$fname}} .= "$key,";
foreach $key (sort keys %lineedit_keyfunc) {
$keydata{$key} && next;
$funckeydesc{$funcname{$lineedit_keyfunc{$key}}} .= "$key,";
}
while (($key, $fname) = each %menu_keyfunc) {
$funckeydesc{$funcname{$fname}} .= "$key,";
foreach $key (sort keys %menu_keyfunc) {
$keydata{$key} && next;
$funckeydesc{$funcname{$menu_keyfunc{$key}}} .= "$key,";
}
print <<HEADING;