RE: UserTag [dropcaps]

["Thompson-Jordan" <Thompson-Jordan@mindspring.com>]

> ******    message to minivend-users from August Detlefsen
> <augustd@idiom.com>     ******
>
> This is a usertag for creating drop-capitals. Does the docs
> project also include a central repository for UserTags and GlobalSubs?

Not currently, but I usually save them when they get posted to this list.

Christopher Thompson



> -August
>
> # dropcaps
> #
> # Generates HTML formatted drop-capitals from a string
> #
> # Usage:
> # [dropcaps]Any string[/dropcaps]
>
> UserTag dropcaps HasEndTag 1
> UserTag dropcaps Interpolate 1
> UserTag dropcaps Routine <<EOF
> sub {
>         my $message = shift();
>         my $message_caps = $message;
>         my @message_caps;
>         my $character;
>         my $out;
>
>         $message_caps =~ tr/a-z/A-Z/;
>         @message_caps = split //, $message_caps;
>
>         $out = "\<FONT SIZE\=\"\+1\"\>";
>         $out .= shift(@message_caps);
>         $out .= "\<\/FONT\>";
>
>         while (@message_caps)

>           $character = shift(@message_caps);
>           $out .= $character;
>           if ($character eq " ") {
>              $out .= "\<FONT SIZE\=\"\+1\"\>";
>              $out .= shift(@message_caps);
>              $out .= "\<\/FONT\>";
>           }
>         }
>
>         return $out;
> }
> EOF
>
> -
> To unsubscribe from the list, DO NOT REPLY to this message.
> Instead, send
> email with 'UNSUBSCRIBE minivend-users' in the body to
> Majordomo@minivend.com.
> Archive of past messages: http://www.minivend.com/minivend/minivend-list
>