keywordプラグインを追加。

diff --git a/takezoe/plugin/book/Install.pm b/takezoe/plugin/book/Install.pm
index 978a5e1..13ad1d0 100644 (file)
--- a/takezoe/plugin/book/Install.pm
+++ b/takezoe/plugin/book/Install.pm
@@ -39,6 +39,7 @@ sub install {
        $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 = '';
@@ -141,6 +142,23 @@ div.note-body {
   margin-left: 20px;
   margin-right: 20px;
 }
+
+span.keyword {
+  background-color: #666688;
+  color: white;
+  padding: 4px;
+}
+
+span.keyword a {
+  color: white;
+}
+
+div.keyword {
+  padding-top: 4px;
+  padding-left: 4px;
+  padding-right: 4px;
+  padding-bottom: 8px;
+}
 </style>
 END_OF_HEAD
        

diff --git a/takezoe/plugin/book/Keyword.pm b/takezoe/plugin/book/Keyword.pm
new file mode 100644 (file)
index 0000000..0ee4ebc
--- /dev/null
+++ b/takezoe/plugin/book/Keyword.pm
@@ -0,0 +1,33 @@
+################################################################################
+#
+# <p>¥­¡¼¥ï¡¼¥É¤òµ­½Ò¤¹¤ë¤¿¤á¤Î¥×¥é¥°¥¤¥ó¤Ç¤¹¡£</p>
+#
+################################################################################
+package plugin::book::Keyword;
+#==============================================================================
+# ¥³¥ó¥¹¥È¥é¥¯¥¿
+#==============================================================================
+sub new {
+       my $class = shift;
+       my $self = {};
+       return bless $self,$class;
+}
+
+#==============================================================================
+# ¥Ñ¥é¥°¥é¥Õ¥á¥½¥Ã¥É
+#==============================================================================
+sub paragraph {
+       my $self = shift;
+       my $wiki = shift;
+       my @keywords = @_;
+       my $buf = "";
+       
+       foreach my $keyword (@keywords){
+               $buf .= ' | ' if($buf ne '');
+               $buf .= '<a href="?action=SEARCH&t=and&c=true&word='.Util::url_encode($keyword).'">'.Util::escapeHTML($keyword).'</a>';
+       }
+       
+       return '<div class="keyword"><span class="keyword">'.$buf.'</span></div>';
+}
+
+1;