From 2969fd3ef2ac1004ff4594198e84b31c60adb0c5 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Thu, 3 Jan 2008 20:35:26 +0000
Subject: refactoring: ReST

git-svn-id: svn://luxion/repos/WebCoso/trunk@328 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 lib/WebCoso/ReST.pm | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 lib/WebCoso/ReST.pm

(limited to 'lib/WebCoso/ReST.pm')

diff --git a/lib/WebCoso/ReST.pm b/lib/WebCoso/ReST.pm
new file mode 100644
index 0000000..bd43528
--- /dev/null
+++ b/lib/WebCoso/ReST.pm
@@ -0,0 +1,37 @@
+package WebCoso::ReST;
+use strict;
+use warnings;
+use WebCoso::Common;
+use Path::Class;
+use Text::Restructured;
+use Text::Restructured::Writer::LibXML;
+
+sub new {
+    my ($class,%opts)=@_;
+
+    my $self={%opts};
+
+    $self->{rest}=Text::Restructured->new(
+        {
+            D=>{
+                'file-insertion-enabled'=>0, # we use TT
+                generator=>0,
+                date=>0,
+                'time'=>0,
+                'source-link'=>0,
+                'section-subtitles'=>1,
+            },
+        },
+        'WebCoso');
+
+    $self->{fc}->add_parser(qr{\.rest\.txt$} =>
+                                sub {
+                                    my $dudom=$self->{rest}->Parse($_[1],$_[0]);
+                                    return Text::Restructured::Writer::LibXML
+                                        ->new->ProcessDOM($dudom);
+                                });
+
+    bless $self,$class;
+}
+
+1;
-- 
cgit v1.2.3