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

[w3m-dev 02601]

Browse Source 
From: Fumitoshi UKAI <ukai@debian.or.jp>
This commit is contained in:
Fumitoshi UKAI
2001-11-30 18:06:28 +00:00
parent b943a931a8
commit dcfbd6abaa
11 changed files with 187 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
scripts/w3mhelp.cgi.in
View File

@@ -1,5 +1,5 @@
#!@PERL@
# $Id: w3mhelp.cgi.in,v 1.1 2001/11/30 16:48:19 ukai Exp $
# $Id: w3mhelp.cgi.in,v 1.2 2001/11/30 18:06:29 ukai Exp $
$helpdir="@HELP_DIR@";
unshift(@INC, $helpdir);
@@ -40,12 +40,22 @@ if (-f $keymap) {
local (%funckeydesc, $key, $fname, $desc);
%funcname = (%funcname, %buf_funcname, %lineedit_funcname);
%funcdesc = (%funcdesc, %buf_funcdesc, %lineedit_funcdesc);
while (($fname, $desc) = each %funcdesc) {
$funckeydesc{$funcname{$fname}} = "$desc\n";
}
while (($key, $fname) = each %keyfunc) {
$funckeydesc{$funcname{$fname}} .= "$key,";
}
while (($key, $fname) = each %buf_keyfunc) {
$funckeydesc{$funcname{$fname}} .= "$key,";
}
while (($key, $fname) = each %lineedit_keyfunc) {
$funckeydesc{$funcname{$fname}} .= "$key,";
}
print <<HEADING;
Content-Type: text/html
@@ -98,15 +108,8 @@ for $otherlang (@docdirs) {
qw(backBf vwSrc selMn editBf rdrwSc reload
svBuf svSrc editScr));
print <<PAGE;
<H2>Buffer selection mode</H2>
<table cellpadding=0>
<TR><TD WIDTH=140>k, C-p<TD>Select previous buffer
<TR><TD>j, C-n<TD>Select next buffer
<TR><TD>D<TD>Delete current buffer
<TR><TD>RET<TD>Go to the selected buffer
</table>
PAGE
&show_keymap("Buffer selection mode",
qw(buffer_prev buffer_next buffer_delete buffer_go));
&show_keymap("Bookmark operation",
qw(ldBmark adBmark));
@@ -123,22 +126,13 @@ PAGE
&show_keymap("Miscellany",
qw(setAlarm execsh ldhelp ldOpt cooLst susp qquitfm quitfm));
&show_keymap("Line-edit mode",
qw(lineedit_forward lineedit_back lineedit_backspace
lineedit_delete lineedit_kill_after lineedit_kill_before
lineedit_top lineedit_bottom lineedit_prev lineedit_next
lineedit_complete lineedit_accept));
print <<PAGE;
<H2>Line-edit mode</H2>
<table cellpadding=0>
<TR><TD WIDTH=140>C-f<TD>Move cursor forward
<TR><TD>C-b<TD>Move cursor backward
<TR><TD>C-h<TD>Delete previous character
<TR><TD>C-d<TD>Delete current character
<TR><TD>C-k<TD>Kill everything after cursor
<TR><TD>C-u<TD>Kill everything before cursor
<TR><TD>C-a<TD>Move to the top of line
<TR><TD>C-e<TD>Move to the bottom of line
<TR><TD>C-p<TD>Fetch the previous string from the history list
<TR><TD>C-n<TD>Fetch the next string from the history list
<TR><TD>TAB,SPC<TD>Complete filename
<TR><TD>RETURN<TD>Accept
</table>
<HR>
</BODY>
</HTML>
@@ -167,6 +161,11 @@ sub show_keymap {
my ($fid);
my ($attr) = " WIDTH=140";
if (defined($title{$head})) {
$head = $title{$head};
$head =~ s/[<>&]/$htmlesc{$&}/ge;
}
print <<PAGE;
<H2>$head</H2>
<table cellpadding=0>