w3m

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/w3m.git/
Log | Files | Refs | README

html.wd (387B)


      1 @code
      2 sub URL {
      3   $_[0]->CHECK(qw(url));
      4   $_[0]->{url};
      5 }
      6 sub LINK {
      7   $_[0]->CHECK(qw(url title));
      8   "<A HREF=\"$_[0]->{url}\">$_[0]->{title}</A>";
      9 }
     10 sub LINK_SEC {
     11   $_[0]->CHECK(qw(url section title));
     12   "<A HREF=\"$_[0]->{url}\">$_[0]->{section} $_[0]->{title}</A>";
     13 }
     14 sub MAILTO {
     15   $_[0]->CHECK(qw(address name));
     16   "<A HREF=\"mailto:$_[0]->{address}\">$_[0]->{name}</A>";
     17 }
     18 @end