From 802143e070ecc12098efd1fe1de38307654b8fd2 Mon Sep 17 00:00:00 2001
From: takezoe <takezoe@871d6764-1e22-0410-b313-a55050885396>
Date: Sun, 9 Oct 2011 17:27:14 +0000
Subject: [PATCH] =?utf8?q?raw=E3=83=97=E3=83=A9=E3=82=B0=E3=82=A4=E3=83=B3?=
 =?utf8?q?=E3=82=92=E8=BF=BD=E5=8A=A0=E3=80=82?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 takezoe/plugin/book/Install.pm |  1 +
 takezoe/plugin/book/Raw.pm     | 30 ++++++++++++++++++++++++++++++
 2 files changed, 31 insertions(+)
 create mode 100644 takezoe/plugin/book/Raw.pm

diff --git a/takezoe/plugin/book/Install.pm b/takezoe/plugin/book/Install.pm
index fd02863..e9a19c8 100644
--- a/takezoe/plugin/book/Install.pm
+++ b/takezoe/plugin/book/Install.pm
@@ -40,6 +40,7 @@ sub install {
 	$wiki->add_hook("title3", "plugin::book::Title3");
 	
 	$wiki->add_inline_plugin("br", "plugin::book::Br");
+	$wiki->add_inline_plugin("raw" ,"plugin::book::Raw" ,"HTML");
 	$wiki->add_paragraph_plugin("keyword" ,"plugin::book::Keyword" ,"HTML");
 	
 	my @paths = split(/\//, $wiki->get_CGI()->path_info());
diff --git a/takezoe/plugin/book/Raw.pm b/takezoe/plugin/book/Raw.pm
new file mode 100644
index 0000000..34f9f2a
--- /dev/null
+++ b/takezoe/plugin/book/Raw.pm
@@ -0,0 +1,30 @@
+################################################################################
+#
+# <p>°ú¿ô¤Ç»ØÄꤷ¤¿Ê¸»úÎó¤ò¤½¤Î¤Þ¤Þɽ¼¨¤¹¤ë¥¤¥ó¥é¥¤¥ó¥×¥é¥°¥¤¥ó¤Ç¤¹¡£</p>
+# <pre>
+# {{raw '''°ú¿ô¤Ç»ØÄꤷ¤¿Ê¸»úÎó¤ò¤½¤Î¤Þ¤Þɽ¼¨¤·¤Þ¤¹'''}}
+# </pre>
+#
+################################################################################
+package plugin::book::Raw;
+use Encode qw(decode);
+#==============================================================================
+# ¥³¥ó¥¹¥È¥é¥¯¥¿
+#==============================================================================
+sub new {
+	my $class = shift;
+	my $self = {};
+	return bless $self,$class;
+}
+
+#==============================================================================
+# ¥¤¥ó¥é¥¤¥ó¥á¥½¥Ã¥É
+#==============================================================================
+sub inline {
+	my $self = shift;
+	my $wiki = shift;
+	my $text = shift;
+	return Util::escapeHTML($text);
+}
+
+1;
-- 
2.11.0