OSDN Git Service

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