1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
$NetBSD: patch-aa,v 1.1 2008/08/01 18:59:02 schmonz Exp $
--- lib/Text/WikiCreole.pm.orig 2007-10-11 17:56:06.000000000 -0400
+++ lib/Text/WikiCreole.pm
@@ -1,7 +1,8 @@
package Text::WikiCreole;
require Exporter;
@ISA = (Exporter);
-@EXPORT = qw(creole_parse creole_plugin creole_link creole_tag creole_img creole_customlinks creole_customimgs);
+@EXPORT = qw(creole_parse creole_plugin creole_tag creole_img creole_customimgs
+ creole_link creole_barelink creole_customlinks creole_custombarelinks);
use vars qw($VERSION);
use strict;
use warnings;
@@ -44,6 +45,8 @@ my $bol = '(?:^|\n)'; # beginning of lin
my $plugin_function;
# user-supplied link URL parser function
my $link_function;
+# user-supplied bare link parser function
+my $barelink_function;
# user-supplied image URL parser function
my $img_function;
@@ -321,9 +324,12 @@ my %chunks = (
curpat => '(?=(?:https?|ftp):\/\/)',
stops => '(?=[[:punct:]]?(?:\s|$))',
hint => ['h', 'f'],
- filter => sub {
+ filter => sub {
$_[0] =~ s/^\s*//o;
$_[0] =~ s/\s*$//o;
+ if($barelink_function) {
+ $_[0] = &$barelink_function($_[0]);
+ }
return "href=\"$_[0]\">$_[0]"; },
open => "<a ", close=> "</a>",
},
@@ -643,6 +649,22 @@ sub creole_customlinks {
}
}
+sub creole_barelink {
+ return unless defined $_[0];
+ $barelink_function = $_[0];
+}
+
+sub creole_custombarelinks {
+ $chunks{ilink}{open} = "";
+ $chunks{ilink}{close} = "";
+ $chunks{ilink}{filter} = sub {
+ if($barelink_function) {
+ $_[0] = &$barelink_function($_[0]);
+ }
+ return $_[0];
+ }
+}
+
sub creole_customimgs {
$chunks{img}{open} = "";
$chunks{img}{close} = "";
@@ -756,6 +778,20 @@ reads Creole 1.0 markup and returns XHTM
This has no effect on "bare" link markup, such as http://cpan.org.
+=head2 creole_barelink
+
+ Same purpose as creole_link, but for "bare" link markup.
+
+ sub mybarelink {
+ return "$_[0].html";
+ return $_[0];
+ }
+ creole_barelink \&mybarelink;
+
+=head2 creole_custombarelinks
+
+ Same purpose as creole_customlinks, but for "bare" link markup.
+
=head2 creole_img
Same purpose as creole_link, but for image URLs.
|