[MKDoc-commit] [MKDoc-Text-Structured] strip mailto: from displayed email addresses

[bruno at mkdoc.demon.co.uk]

Log Message:
-----------
[MKDoc-Text-Structured] strip mailto: from displayed email addresses

Modified Files:
--------------
    MKDoc-Text-Structured:
        Changes
    MKDoc-Text-Structured/lib/MKDoc/Text/Structured:
        Inline.pm

Added Files:
-----------
    MKDoc-Text-Structured/t:
        020_mailto.t

-------------- next part --------------
Index: Changes
===================================================================
RCS file: /var/spool/cvs/MKDoc-Text-Structured/Changes,v
retrieving revision 1.23
retrieving revision 1.24
diff -LChanges -LChanges -u -r1.23 -r1.24
--- Changes
+++ Changes
@@ -3,6 +3,7 @@
 0.83
     - fix for <pre> indenting bug when first line is more indented than second
     - method to insert spaces into long words
+    - strip mailto: when linking and displaying email addresses
 
 0.82 Thu Mar 31 13:45:00 2005
     - fixed failure to change " to &quot; bug
Index: Inline.pm
===================================================================
RCS file: /var/spool/cvs/MKDoc-Text-Structured/lib/MKDoc/Text/Structured/Inline.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -Llib/MKDoc/Text/Structured/Inline.pm -Llib/MKDoc/Text/Structured/Inline.pm -u -r1.12 -r1.13
--- lib/MKDoc/Text/Structured/Inline.pm
+++ lib/MKDoc/Text/Structured/Inline.pm
@@ -21,6 +21,7 @@
     my $finder = URI::Find->new (
         sub {
             my ($uri, $orig_uri) = @_;
+            $orig_uri =~ s/^mailto://;
             return qq|<a href="$uri">$orig_uri</a>|;
         }
     );
@@ -52,7 +53,7 @@
 
 $title is now:
 
-  My &copy; symbol shouldn't be *bold* &mdash; or http://example.com/ &lsquo;linked&rsquo;
+  My &copy; symbol shouldn't be *bold* &mdash; or <a href="http://example.com/">http://example.com/</a> &lsquo;linked&rsquo;
 
 =cut
 
--- /dev/null
+++ t/020_mailto.t
@@ -0,0 +1,12 @@
+use warnings;
+use strict;
+use Test::More 'no_plan';
+use lib ('lib', '../lib');
+use MKDoc::Text::Structured;
+
+my $text = undef;
+
+$text = MKDoc::Text::Structured::process ('This is a test: mailto:info at mkdoc.com');
+is ($text, '<p>This is a test: <a href="mailto:info at mkdoc.com">info at mkdoc.com</a></p>');
+
+__END__