aboutsummaryrefslogblamecommitdiffstats
path: root/w3m-doc/sample/html.wd
blob: 1b1d7f2c9a75819fc101454fe050aea32ef11a2c (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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