OSDN Git Service

書籍執筆用のプラグインをsandboxにコミットしておきます。
[fswiki/sandbox.git] / takezoe / plugin / book / Memo.pm
1 ################################################################################
2 #
3 # <p>¥Ú¡¼¥¸¤Ë¥á¥â¤òµ­½Ò¤¹¤ë¤¿¤á¤Î¥¤¥ó¥é¥¤¥ó¥×¥é¥°¥¤¥ó¤Ç¤¹¡£</p>
4 # <pre>
5 # {{memo ¤³¤³¤Ë¥á¥â¤òµ­½Ò¤·¤Þ¤¹¡£}}
6 # </pre>
7 # <p>
8 #   µ­½Ò¤·¤¿¥á¥â¤Ï¶¯Ä´¤µ¤ì¤Æɽ¼¨¤µ¤ì¤Þ¤¹¡£
9 #   ¤Þ¤¿¡¢memolist¥×¥é¥°¥¤¥ó¤ò»ÈÍѤ·¤Æ°ìÍ÷ɽ¼¨¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
10 # </p>
11 #
12 ################################################################################
13 package plugin::book::Memo;
14 #==============================================================================
15 # ¥³¥ó¥¹¥È¥é¥¯¥¿
16 #==============================================================================
17 sub new {
18         my $class = shift;
19         my $self = {};
20         $self->{'todo'} = [];
21         return bless $self,$class;
22 }
23
24 #==============================================================================
25 # ¥Ñ¥é¥°¥é¥Õ¥á¥½¥Ã¥É
26 #==============================================================================
27 sub inline {
28         my $self = shift;
29         my $wiki = shift;
30         my $text = shift;
31         
32         push(@{$self->{'memolist'}}, $text);
33         my @list = @{$self->{'memolist'}};
34         
35         return '<span class="memo"><a name="todo-'.($#list + 1).'">'.Util::escapeHTML($text).'</a></span>';
36 }
37
38 1;