### ### appl.lc ### ### Application specific local code ### ### ### li ### ### Shorthand for li ### sub li { my($arg) = @_; my($url, $descr); ($url, $descr) = split(/\s*,\s*/, $arg, 2); return unless defined($descr); $url = "http://$url" if ($url !~ /:/); return "
  • $descr"; } ### ### li2 ### ### Shorthand for li ### sub li2 { my($arg) = @_; my($url, $descr); ($url, $descr) = split(/\s*,\s*/, $arg, 2); return unless defined($descr); return "
  • $descr"; } $Callable{'li'} = 1; $Callable{'li2'} = 1; 1;