[pkgsrc/trunk]: pkgsrc/textproc/p5-Text-WikiCreole Add patch from Debian pack...

[schmonz <schmonz%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/938d74f0c90c
branches:  trunk
changeset: 545395:938d74f0c90c
user:      schmonz <schmonz%pkgsrc.org@localhost>
date:      Fri Aug 01 18:59:02 2008 +0000

description:
Add patch from Debian package to provide creole_custombarelinks(). Bump
PKGREVISION.

diffstat:

 textproc/p5-Text-WikiCreole/Makefile         |   3 +-
 textproc/p5-Text-WikiCreole/distinfo         |   3 +-
 textproc/p5-Text-WikiCreole/patches/patch-aa |  81 ++++++++++++++++++++++++++++
 3 files changed, 85 insertions(+), 2 deletions(-)

diffs (109 lines):

diff -r 1d2127e93f37 -r 938d74f0c90c textproc/p5-Text-WikiCreole/Makefile
--- a/textproc/p5-Text-WikiCreole/Makefile      Fri Aug 01 18:41:31 2008 +0000
+++ b/textproc/p5-Text-WikiCreole/Makefile      Fri Aug 01 18:59:02 2008 +0000
@@ -1,7 +1,8 @@
-# $NetBSD: Makefile,v 1.1.1.1 2008/07/31 04:06:51 schmonz Exp $
+# $NetBSD: Makefile,v 1.2 2008/08/01 18:59:02 schmonz Exp $
 #
 
 DISTNAME=              Text-WikiCreole-0.05
+PKGREVISION=           1
 PKGNAME=               p5-${DISTNAME}
 CATEGORIES=            textproc perl5
 MASTER_SITES=          ${MASTER_SITE_PERL_CPAN:=Text/}
diff -r 1d2127e93f37 -r 938d74f0c90c textproc/p5-Text-WikiCreole/distinfo
--- a/textproc/p5-Text-WikiCreole/distinfo      Fri Aug 01 18:41:31 2008 +0000
+++ b/textproc/p5-Text-WikiCreole/distinfo      Fri Aug 01 18:59:02 2008 +0000
@@ -1,5 +1,6 @@
-$NetBSD: distinfo,v 1.1.1.1 2008/07/31 04:06:51 schmonz Exp $
+$NetBSD: distinfo,v 1.2 2008/08/01 18:59:02 schmonz Exp $
 
 SHA1 (Text-WikiCreole-0.05.tar.gz) = 83793e0e058929727e0d114335d3ad33d3c4c92b
 RMD160 (Text-WikiCreole-0.05.tar.gz) = bb21e35e22afddba87ef85e41670bb45a9a17bac
 Size (Text-WikiCreole-0.05.tar.gz) = 11465 bytes
+SHA1 (patch-aa) = 3a298775cdb24cbbe8afd86a8a544091dcf6ade3
diff -r 1d2127e93f37 -r 938d74f0c90c textproc/p5-Text-WikiCreole/patches/patch-aa
--- /dev/null   Thu Jan 01 00:00:00 1970 +0000
+++ b/textproc/p5-Text-WikiCreole/patches/patch-aa      Fri Aug 01 18:59:02 2008 +0000
@@ -0,0 +1,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.