Adding upstream version 0.5.1

2011-05-04 16:05:14 +09:00
parent adc0f0ac3c
commit 72f72d64a4
403 changed files with 329486 additions and 0 deletions
--- a/w3m-doc/sample/html.wd
+++ b/w3m-doc/sample/html.wd
@@ -0,0 +1,18 @@
+@code
+sub URL {
+  $_[0]->CHECK(qw(url));
+  $_[0]->{url};
+}
+sub LINK {
+  $_[0]->CHECK(qw(url title));
+  "<A HREF=\"$_[0]->{url}\">$_[0]->{title}</A>";
+}
+sub LINK_SEC {
+  $_[0]->CHECK(qw(url section title));
+  "<A HREF=\"$_[0]->{url}\">$_[0]->{section} $_[0]->{title}</A>";
+}
+sub MAILTO {
+  $_[0]->CHECK(qw(address name));
+  "<A HREF=\"mailto:$_[0]->{address}\">$_[0]->{name}</A>";
+}
+@end