[WIP] マークダウンで編集

cpanfile

@@ -20,4 +20,5 @@ requires 'Proclet', '== 0.35';
 requires 'Plack::Response', '== 1.0047';
 requires 'Plack::Middleware::Session', '== 0.30';
 requires 'Plack::Middleware::CSRFBlock', '>= 0.06';
-requires 'UUID::Tiny', '== 1.04'
+requires 'UUID::Tiny', '== 1.04';
+requires 'Text::Markdown', '>= 1.000031';

plugin/book/Install.pm

@@ -9,7 +9,7 @@ use warnings;
 use plugin::book::TocParser;
 
 sub install {
-	my $wiki  = shift;
+	my Wiki $wiki = shift;
 	$wiki->add_paragraph_plugin("chapter", "plugin::book::Chapter", "HTML");
 	$wiki->add_paragraph_plugin("section", "plugin::book::Section", "HTML");
 	$wiki->add_inline_plugin("title1", "plugin::book::Title1", "HTML");
@@ -18,42 +18,42 @@ sub install {
 	$wiki->add_paragraph_plugin("caption" ,"plugin::book::Caption" ,"HTML");
 	$wiki->add_paragraph_plugin("toc" ,"plugin::book::Toc" ,"HTML");
 	$wiki->add_inline_plugin("link" ,"plugin::book::Link" ,"HTML");
-	
+
 	$wiki->add_block_plugin("list" ,"plugin::book::List" ,"HTML");
 	$wiki->add_inline_plugin("code" ,"plugin::book::Code" ,"HTML");
-	
+
 	$wiki->add_block_plugin("column" ,"plugin::book::Column" ,"HTML");
 	$wiki->add_paragraph_plugin("columnlist", "plugin::book::ColumnList", "HTML");
 	$wiki->add_block_plugin("note" ,"plugin::book::Note" ,"HTML");
 	$wiki->add_block_plugin("box" ,"plugin::book::Box" ,"HTML");
-	
+
 	$wiki->add_inline_plugin("memo", "plugin::book::Memo", "HTML");
 	$wiki->add_inline_plugin("add", "plugin::book::Add", "HTML");
 	$wiki->add_inline_plugin("del", "plugin::book::Del", "HTML");
 	$wiki->add_paragraph_plugin("memolist", "plugin::book::Memolist", "HTML");
-	
+
 	$wiki->add_inline_plugin("wordcount", "plugin::book::Wordcount", "HTML");
 	$wiki->add_inline_plugin("pagecount", "plugin::book::Pagecount", "HTML");
-	
+
 	$wiki->add_hook("chapter", "plugin::book::Title1");
 	$wiki->add_hook("chapter", "plugin::book::Title2");
 	$wiki->add_hook("chapter", "plugin::book::Title3");
 	$wiki->add_hook("chapter", "plugin::book::Caption");
-	
+
 	$wiki->add_hook("title1", "plugin::book::Title2");
 	$wiki->add_hook("title1", "plugin::book::Title3");
 	$wiki->add_hook("title3", "plugin::book::Title3");
-	
+
 	$wiki->add_inline_plugin("br", "plugin::book::Br");
 	$wiki->add_paragraph_plugin("keyword" ,"plugin::book::Keyword" ,"HTML");
-	
+
 	my @paths = split(/\//, $wiki->get_CGI()->path_info());
 	my $path_prefix = '';
 	for(my $i = 0; $i < $#paths; $i++){
 		$path_prefix .= '../';
 	}
 	$wiki->{book_plugin_path_prefix} = $path_prefix;
-	
+
 	my $head_info = <<"END_OF_HEAD";
 <link href="${path_prefix}plugin/book/google-code-prettify/sunburst.css" type="text/css" rel="stylesheet" />
 <script type="text/javascript" src="${path_prefix}plugin/book/google-code-prettify/prettify.js"></script>
@@ -224,7 +224,7 @@ pre.prettyprint strong {
 }
 </style>
 END_OF_HEAD
-	
+
 	$wiki->add_head_info($head_info);
 }
 

plugin/markdown/Install.pm

@@ -0,0 +1,15 @@
+############################################################
+#
+# FreeStyleWiki上でMarkdown記法での記入を可能にします。
+#
+############################################################
+package plugin::markdown::Install;
+use strict;
+use warnings;
+
+sub install {
+    my Wiki $wiki = shift;
+    $wiki->add_block_plugin("markdown", "plugin::markdown::Markdown", "HTML");
+}
+
+1;

plugin/markdown/Markdown.pm

@@ -0,0 +1,39 @@
+############################################################
+#
+# <p>FreeStyleWiki上でMarkdown記法での記入を可能にします。</p>
+# <pre>
+# {{markdown
+# something markdown text
+# anything markdown text
+# }}
+# </pre>
+# <p>なお利用するには <a href="http://search.cpan.org/~bobtfish/Text-Markdown-1.000031/lib/Text/Markdown.pm">Text::Markdown</a> が必要です。<br />
+#
+# 2012.07.14 A.Tatsukawa [Website](http://ctyo.info)</p>
+#
+############################################################
+package plugin::markdown::Markdown;
+
+use strict;
+use warnings;
+use Text::Markdown qw/markdown/;
+#===========================================================
+# コンストラクタ
+#===========================================================
+sub new {
+	my $class = shift;
+	my $self = {};
+	return bless $self,$class;
+}
+
+#===========================================================
+# コメントフォーム
+#===========================================================
+sub block {
+    my $self        = shift;
+    my $wiki        = shift;
+    my $wiki_source = shift;
+    return markdown($wiki_source);
+}
+
+1;