misc/plugins/SW09toTeX.wps

Name:
        SW09toTeX
FullName:
        SuikaWiki/0.9 to TeX converter
URI:
        IW:SuikaWiki:SuikaWiki
Require:
        SuikaWiki::Plugin::SuikaWiki09XML
Initialize:
        my $NS_XHTML1 = 'http://www.w3.org/1999/xhtml';
        my $NS_SW09 = 'urn:x-suika-fam-cx:markup:suikawiki:0:9:';

{
Name:
        wikiformat/SuikaWiki/0.9-to-TeX
FullName:
        SuikaWiki/0.9 wiki syntax -> TeX
URI:
        IW:SuikaWiki:SuikaWiki
Format:
        $r = xml2tex (SuikaWiki::Plugin::SuikaWiki09XML::wiki2xml ($o->{content}, %$o), $o);
}

MODULE:
        my %_x2t;
        %_x2t = (
          $NS_SW09.'anchor-end' => sub {
            my $x = shift;
            &{$_x2t{_escape}} (q( [).$x->inner_text . q(] ));
          },
          $NS_SW09.'body' => sub {
            my ($x, $opt) = @_;
            qq(\\documentclass{jarticle}
        \\usepackage{txfonts}
        \\title{@{[&{$_x2t{_escape}} ($opt->{page})]}}
        \\author{SuikaWiki}
        \\date{@{[do {#my $d = $opt->get_data (lastmodified
                      #                        => split (m#//#, $opt->{page}));
                      my $d = $opt->_database->mtime ($opt->{page});
                      sprintf '%d-%02d-%02d', (gmtime $d)[5]+1900,
                                              (gmtime $d)[4] + 1,
                                              (gmtime $d)[3]}]}}
        \\begin{document}
        \\maketitle\n)
            .&{$_x2t{_children}} ($x, $opt)
            .qq(\\end{document}\n);
          },
          $NS_XHTML1.'h1' => sub {
            my ($x, $opt) = @_;
            qq(\\section{).&{$_x2t{_escape}} ($x->inner_text).qq(}\n);
          },
          $NS_XHTML1.'h2' => sub {
            my ($x, $opt) = @_;
            qq(\\subsection{).&{$_x2t{_escape}} ($x->inner_text).qq(}\n);
          },
          $NS_XHTML1.'h3' => sub {
            my ($x, $opt) = @_;
            qq(\\subsubsection{).&{$_x2t{_escape}} ($x->inner_text).qq(}\n);
          },
          $NS_XHTML1.'h4' => sub {
            my ($x, $opt) = @_;
            qq(\\subsubsubsection{).&{$_x2t{_escape}} ($x->inner_text).qq(}\n);
          },
          $NS_XHTML1.'h5' => sub {
            my ($x, $opt) = @_;
            qq(\\subsubsubsubsection{).&{$_x2t{_escape}} ($x->inner_text).qq(}\n);
          },
          $NS_XHTML1.'p' => sub {
            my ($x, $opt) = @_;
             qq(\n)
            .&{$_x2t{_children}} ($x, $opt)
            .qq(\n);
          },
          $NS_XHTML1.'pre' => sub {
            my ($x, $opt) = @_;
             qq(\\begin{verbatim}\n)
            #.&{$_x2t{_children}} ($x, $opt)
            .$x->inner_text
            .qq(\\end{verbatim}\n);
          },
          $NS_XHTML1.'ul' => sub {
            my ($x, $opt) = @_;
             qq(\\begin{itemize}\n)
            .&{$_x2t{_children}} ($x, $opt)
            .qq(\\end{itemize}\n);
          },
          $NS_XHTML1.'li' => sub {
            my ($x, $opt) = @_;
            qq(\\item ).&{$_x2t{_children}} ($x, $opt) . qq(\n);
          },
          $NS_SW09.'dr' => sub {
            my ($x, $opt) = @_;
            qq(\\item ).&{$_x2t{_children}} ($x, $opt) . qq(\n);
          },
          $NS_XHTML1.'dt' => sub {
            my ($x, $opt) = @_;
            qq([).&{$_x2t{_children}} ($x, $opt).qq(] );
          },
          $NS_XHTML1.'em' => sub {
            my ($x, $opt) = @_;
            qq(\\sf{).&{$_x2t{_children}} ($x, $opt).qq(});
          },
          $NS_XHTML1.'strong' => sub {
            my ($x, $opt) = @_;
            qq(\\bf{\\sf{).&{$_x2t{_children}} ($x, $opt).qq(}});
          },
          $NS_SW09.'uri' => sub {
            my ($x, $opt) = @_;
            q($<$).&{$_x2t{_children}} ($x, $opt).q($>$);
          },
          $NS_SW09.'fragment' => sub {
            my ($x, $opt) = @_;
            q($ >>$).&{$_x2t{_children}} ($x, $opt).q( );
          },
          _children => sub {
            my ($x, $opt) = @_;
            my $r = '';
            for (@{$x->child_nodes}) {
              my $en = $_->expanded_name;
              if ($_x2t{$en}) {
                $r .= &{$_x2t{$en}} ($_, $opt);
              } elsif ($_->node_type eq '#element') {
                $r .= &{$_x2t{_children}} ($_, $opt);
              } elsif ($_->node_type ne '#attribute') {
                $r .= &{$_x2t{_escape}} ($_->inner_text);
              }
            }
            $r;
          },    
          _escape => sub {
            my $s = shift;
            $s =~ s{([\\{}\@!?\[\]<>%_\#\$])}{
              {'','',
                qw{\\ $\\$  ! $!$  ? $?$  [ $[$  ] $]$
                   < $<$  > $>$  % \\%  _ \\_  # \\#  $ \\$  & \\&
                   @ \\verb,@,  ^ \\verb,^,  ~ \\verb,~,
                   { \{  } \}}
              }->{$1}
            }ge;
            $s;
          },
        );
        sub xml2tex ($$) {
          my ($x, $opt) = @_;
          &{$_x2t{_children}} ($x, $opt);
        }
        
        SuikaWiki::View->definition (sw09t__tex => {
                media => {type => 'text/plain', expires => 240*3600,
                          charset => 1},
                check => sub { ($_->[0]->{magic}||'SuikaWiki/0.9') =~ m!SuikaWiki/0\.9! ? 1 : 0 },
                template => '%read(to=>TeX);'});
        

POD:LICENSE:
        Copyright 2003 Wakaba <w@suika.fam.cx>
        
        %%GNUGPL2%%
1	Name:
2	SW09toTeX
3	FullName:
4	SuikaWiki/0.9 to TeX converter
5	URI:
6	IW:SuikaWiki:SuikaWiki
7	Require:
8	SuikaWiki::Plugin::SuikaWiki09XML
9	Initialize:
10	my $NS_XHTML1 = 'http://www.w3.org/1999/xhtml';
11	my $NS_SW09 = 'urn:x-suika-fam-cx:markup:suikawiki:0:9:';
12
13	{
14	Name:
15	wikiformat/SuikaWiki/0.9-to-TeX
16	FullName:
17	SuikaWiki/0.9 wiki syntax -> TeX
18	URI:
19	IW:SuikaWiki:SuikaWiki
20	Format:
21	$r = xml2tex (SuikaWiki::Plugin::SuikaWiki09XML::wiki2xml ($o->{content}, %$o), $o);
22	}
23
24	MODULE:
25	my %_x2t;
26	%_x2t = (
27	$NS_SW09.'anchor-end' => sub {
28	my $x = shift;
29	&{$_x2t{_escape}} (q( [).$x->inner_text . q(] ));
30	},
31	$NS_SW09.'body' => sub {
32	my ($x, $opt) = @_;
33	qq(\\documentclass{jarticle}
34	\\usepackage{txfonts}
35	\\title{@{[&{$_x2t{_escape}} ($opt->{page})]}}
36	\\author{SuikaWiki}
37	\\date{@{[do {#my $d = $opt->get_data (lastmodified
38	# => split (m#//#, $opt->{page}));
39	my $d = $opt->_database->mtime ($opt->{page});
40	sprintf '%d-%02d-%02d', (gmtime $d)[5]+1900,
41	(gmtime $d)[4] + 1,
42	(gmtime $d)[3]}]}}
43	\\begin{document}
44	\\maketitle\n)
45	.&{$_x2t{_children}} ($x, $opt)
46	.qq(\\end{document}\n);
47	},
48	$NS_XHTML1.'h1' => sub {
49	my ($x, $opt) = @_;
50	qq(\\section{).&{$_x2t{_escape}} ($x->inner_text).qq(}\n);
51	},
52	$NS_XHTML1.'h2' => sub {
53	my ($x, $opt) = @_;
54	qq(\\subsection{).&{$_x2t{_escape}} ($x->inner_text).qq(}\n);
55	},
56	$NS_XHTML1.'h3' => sub {
57	my ($x, $opt) = @_;
58	qq(\\subsubsection{).&{$_x2t{_escape}} ($x->inner_text).qq(}\n);
59	},
60	$NS_XHTML1.'h4' => sub {
61	my ($x, $opt) = @_;
62	qq(\\subsubsubsection{).&{$_x2t{_escape}} ($x->inner_text).qq(}\n);
63	},
64	$NS_XHTML1.'h5' => sub {
65	my ($x, $opt) = @_;
66	qq(\\subsubsubsubsection{).&{$_x2t{_escape}} ($x->inner_text).qq(}\n);
67	},
68	$NS_XHTML1.'p' => sub {
69	my ($x, $opt) = @_;
70	qq(\n)
71	.&{$_x2t{_children}} ($x, $opt)
72	.qq(\n);
73	},
74	$NS_XHTML1.'pre' => sub {
75	my ($x, $opt) = @_;
76	qq(\\begin{verbatim}\n)
77	#.&{$_x2t{_children}} ($x, $opt)
78	.$x->inner_text
79	.qq(\\end{verbatim}\n);
80	},
81	$NS_XHTML1.'ul' => sub {
82	my ($x, $opt) = @_;
83	qq(\\begin{itemize}\n)
84	.&{$_x2t{_children}} ($x, $opt)
85	.qq(\\end{itemize}\n);
86	},
87	$NS_XHTML1.'li' => sub {
88	my ($x, $opt) = @_;
89	qq(\\item ).&{$_x2t{_children}} ($x, $opt) . qq(\n);
90	},
91	$NS_SW09.'dr' => sub {
92	my ($x, $opt) = @_;
93	qq(\\item ).&{$_x2t{_children}} ($x, $opt) . qq(\n);
94	},
95	$NS_XHTML1.'dt' => sub {
96	my ($x, $opt) = @_;
97	qq([).&{$_x2t{_children}} ($x, $opt).qq(] );
98	},
99	$NS_XHTML1.'em' => sub {
100	my ($x, $opt) = @_;
101	qq(\\sf{).&{$_x2t{_children}} ($x, $opt).qq(});
102	},
103	$NS_XHTML1.'strong' => sub {
104	my ($x, $opt) = @_;
105	qq(\\bf{\\sf{).&{$_x2t{_children}} ($x, $opt).qq(}});
106	},
107	$NS_SW09.'uri' => sub {
108	my ($x, $opt) = @_;
109	q($<$).&{$_x2t{_children}} ($x, $opt).q($>$);
110	},
111	$NS_SW09.'fragment' => sub {
112	my ($x, $opt) = @_;
113	q($ >>$).&{$_x2t{_children}} ($x, $opt).q( );
114	},
115	_children => sub {
116	my ($x, $opt) = @_;
117	my $r = '';
118	for (@{$x->child_nodes}) {
119	my $en = $_->expanded_name;
120	if ($_x2t{$en}) {
121	$r .= &{$_x2t{$en}} ($_, $opt);
122	} elsif ($_->node_type eq '#element') {
123	$r .= &{$_x2t{_children}} ($_, $opt);
124	} elsif ($_->node_type ne '#attribute') {
125	$r .= &{$_x2t{_escape}} ($_->inner_text);
126	}
127	}
128	$r;
129	},
130	_escape => sub {
131	my $s = shift;
132	$s =~ s{([\\{}\@!?\[\]<>%_\#\$])}{
133	{'','',
134	qw{\\ $\\$ ! $!$ ? $?$ [ $[$ ] $]$
135	< $<$ > $>$ % \\% _ \\_ # \\# $ \\$ & \\&
136	@ \\verb,@, ^ \\verb,^, ~ \\verb,~,
137	{ \{ } \}}
138	}->{$1}
139	}ge;
140	$s;
141	},
142	);
143	sub xml2tex ($$) {
144	my ($x, $opt) = @_;
145	&{$_x2t{_children}} ($x, $opt);
146	}
147
148	SuikaWiki::View->definition (sw09t__tex => {
149	media => {type => 'text/plain', expires => 240*3600,
150	charset => 1},
151	check => sub { ($_->[0]->{magic}\|\|'SuikaWiki/0.9') =~ m!SuikaWiki/0\.9! ? 1 : 0 },
152	template => '%read(to=>TeX);'});
153
154
155	POD:LICENSE:
156	Copyright 2003 Wakaba <w@suika.fam.cx>
157
158	%%GNUGPL2%%