html.wd

来自「一个终端下的网页浏览器」· WD 代码 · 共 19 行

@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