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'}}, "[comment]".$text);
  33         my @list = @{$self->{'memolist'}};
  34
  35         return '<span class="memo"><a name="todo-'.($#list + 1).'"></a>'.Util::escapeHTML($text).'</span>';
  36 }
  37
  38 1;