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

Update to w3m-0.2.1-inu-1.6.

Browse Source
This commit is contained in:
Akinori Ito
2001-11-15 00:32:13 +00:00
parent 6c63633545
commit 85da7ee692
82 changed files with 10900 additions and 217 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
scripts/bm2menu/README Normal file
View File

@@ -0,0 +1,21 @@
bm2menu.pl
<20>֥å<D6A5><C3A5>ޡ<EFBFBD><DEA1><EFBFBD><EFBFBD>ե<EFBFBD><D5A5><EFBFBD><EFBFBD><EFBFBD> ~/.w3m/bookmark.html <20><><EFBFBD>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD> w3m <20><>
<20>֥å<D6A5><C3A5>ޡ<EFBFBD><DEA1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˥塼<CBA5>Ȥ<EFBFBD><C8A4>ƻȤ<C6BB><C8A4><EFBFBD><EFBFBD>ͤˤ<CDA4><CBA4>롣
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˡ
~/.w3m/bookmark.html <20><><EFBFBD>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD> ~/.w3m/menu <20><><EFBFBD>ɲá<C9B2>
perl bm2menu.pl ~/.w3m/bookmark.html >> ~/.w3m/menu
<20><><EFBFBD>ˡ<EFBFBD>~/.w3m/keymap <20><>
keymap x MENU Bookmarks
<20><><EFBFBD>ͤ˥<CDA4><CBA5><EFBFBD><EFBFBD>γ<EFBFBD><CEB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƥ<EFBFBD><C6A4>ɲä<C9B2><C3A4>ޤ<EFBFBD><DEA4><EFBFBD>
<20><><EFBFBD><EFBFBD><EFBFBD>ǡ<EFBFBD><C7A1><EFBFBD><EFBFBD><EFBFBD> `x' <20>ǥ֥å<D6A5><C3A5>ޡ<EFBFBD><DEA1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˥塼<CBA5><E5A1BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ޤ<EFBFBD><DEA4><EFBFBD>
<20><><EFBFBD>˥塼<CBA5><E5A1BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> doc-jp/README.menu <20><><EFBFBD>ɤ<EFBFBD><C9A4>Ǥ<EFBFBD><C7A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>

58
scripts/bm2menu/bm2menu.pl Normal file
View File

@@ -0,0 +1,58 @@
#!/usr/bin/perl
$PRE_MENU = "";
$POST_MENU = <<EOF;
nop "----------------------"
func "<22>֥å<D6A5><C3A5>ޡ<EFBFBD><DEA1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɲ<EFBFBD> (a)" ADD_BOOKMARK "aA"
EOF
# $POST_MENU = <<EOF;
# nop "----------------------"
# func "Add Bookmark (a)" ADD_BOOKMARK "aA"
# EOF
@section = ();
%title = ();
%url = ();
while(<>) {
if (/<h2>(.*)<\/h2>/) {
$s = &unquote($1);
push(@section, $s);
} elsif (/<li><a href=\"(.*)\">(.*)<\/a>/) {
$u = &unquote($1);
$t = &unquote($2);
$url{$s} .= "$u\n";
$title{$s} .= "$t\n";
}
}
print "menu Bookmarks\n";
print $PRE_MENU;
foreach(@section) {
print " popup\t\"$_\"\t\"$_\"\n";
}
print $POST_MENU;
print "end\n";
foreach(@section) {
print "\n";
print "menu \"$_\"\n";
@ts = split("\n", $title{$_});
@us = split("\n", $url{$_});
while(@ts) {
$t = shift @ts;
$u = shift @us;
print " func\t\"$t\"\tGOTO\t\"\"\t\"$u\"\n";
}
print "end\n";
}
sub unquote {
local($_) = @_;
s/\&lt;/\</g;
s/\&gt;/\>/g;
s/\&nbsp;/ /g;
s/\&amp;/\&/g;
return $_;
}