###
###	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 "<li><a href=\"$url\">$descr</a>";
    }


###
###     li2
###
###     Shorthand for li
###
sub li2
    {
    my($arg) = @_;
    my($url, $descr);

    ($url, $descr) = split(/\s*,\s*/, $arg, 2);
    return unless defined($descr);
    return "<li><a href=\"$url\">$descr</a>";
    }


$Callable{'li'} = 1;
$Callable{'li2'} = 1;
1;