memoプラグインで名前を書けるようにした。

diff --git a/takezoe/plugin/book/Memo.pm b/takezoe/plugin/book/Memo.pm
index 427b872..1af70ee 100644 (file)
--- a/takezoe/plugin/book/Memo.pm
+++ b/takezoe/plugin/book/Memo.pm
@@ -27,12 +27,26 @@ sub new {
 sub inline {
        my $self = shift;
        my $wiki = shift;
 sub inline {
        my $self = shift;
        my $wiki = shift;

+       my $name = shift;

        my $text = shift;
        
        my $text = shift;
        

-       push(@{$self->{'memolist'}}, "[comment]".$text);
+       if($text eq ''){
+               $text = $name;
+               $name = '';
+       }
+       
+       if($name ne ''){
+               push(@{$self->{'memolist'}}, "[comment]".$name." - ".$text);
+       } else {
+               push(@{$self->{'memolist'}}, "[comment]".$text);
+       }

        my @list = @{$self->{'memolist'}};
        
        my @list = @{$self->{'memolist'}};
        

-       return '<span class="memo"><a name="todo-'.($#list + 1).'"></a>'.Util::escapeHTML($text).'</span>';
+       if($name ne ''){
+               return '<span class="memo '.Util::escapeHTML($name).'"><a name="todo-'.($#list + 1).'"></a><b>'.Util::escapeHTML($name).'</b> - '.Util::escapeHTML($text).'</span>';
+       } else {
+               return '<span class="memo"><a name="todo-'.($#list + 1).'"></a>'.Util::escapeHTML($text).'</span>';
+       }

 }
 
 1;
 }
 
 1;