| リビジョン | 89ed7e8c3ad8f7f89735c14cb7f6d7f0ca104b62 (tree) |
|---|---|
| 日時 | 2011-12-02 00:22:15 |
| 作者 | takezoe <takezoe@871d...> |
| コミッター | takezoe |
memoプラグインで名前を書けるようにした。
takezoe/plugin/book/Memo.pm (diff)| @@ -27,12 +27,26 @@ sub new { | ||
| 27 | 27 | sub inline { |
| 28 | 28 | my $self = shift; |
| 29 | 29 | my $wiki = shift; |
| 30 | + my $name = shift; | |
| 30 | 31 | my $text = shift; |
| 31 | 32 | |
| 32 | - push(@{$self->{'memolist'}}, "[comment]".$text); | |
| 33 | + if($text eq ''){ | |
| 34 | + $text = $name; | |
| 35 | + $name = ''; | |
| 36 | + } | |
| 37 | + | |
| 38 | + if($name ne ''){ | |
| 39 | + push(@{$self->{'memolist'}}, "[comment]".$name." - ".$text); | |
| 40 | + } else { | |
| 41 | + push(@{$self->{'memolist'}}, "[comment]".$text); | |
| 42 | + } | |
| 33 | 43 | my @list = @{$self->{'memolist'}}; |
| 34 | 44 | |
| 35 | - return '<span class="memo"><a name="todo-'.($#list + 1).'"></a>'.Util::escapeHTML($text).'</span>'; | |
| 45 | + if($name ne ''){ | |
| 46 | + return '<span class="memo '.Util::escapeHTML($name).'"><a name="todo-'.($#list + 1).'"></a><b>'.Util::escapeHTML($name).'</b> - '.Util::escapeHTML($text).'</span>'; | |
| 47 | + } else { | |
| 48 | + return '<span class="memo"><a name="todo-'.($#list + 1).'"></a>'.Util::escapeHTML($text).'</span>'; | |
| 49 | + } | |
| 36 | 50 | } |
| 37 | 51 | |
| 38 | 52 | 1; |
Fork