1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
|
package LaTeX::Table::Themes::ThemeI;
use strict;
use warnings;
use Moose::Role;
use version; our $VERSION = qv('1.0.6');
requires '_definition';
around '_definition' => sub {
my $orig = shift;
my $self = shift;
my $ret = $orig->( $self, @_ );
for my $theme ( keys %{$ret} ) {
if ( defined $ret->{$theme}->{BOOKTABS}
&& $ret->{$theme}->{BOOKTABS} )
{
$ret->{$theme}->{RULES_CMD}
= [ '\toprule', '\midrule', '\midrule', '\bottomrule' ];
}
}
return $ret;
};
1;
__END__
=head1 NAME
LaTeX::Table::Themes::ThemeI - Interface for LaTeX table themes.
=head1 SYNOPSIS
package MyThemes::Custom;
use Moose;
with 'LaTeX::Table::Themes::ThemeI';
sub _definition {
return { CENTRALPARK =>
{
'HEADER_FONT_STYLE' => 'bf',
'HEADER_FONT_COLOR' => 'white',
'HEADER_BG_COLOR' => 'latextbl',
'DATA_BG_COLOR_ODD' => 'latextbl!25',
'DATA_BG_COLOR_EVEN' => 'latextbl!10',
'DEFINE_COLORS' => '\definecolor{latextbl}{RGB}{93,127,114}',
'HEADER_CENTERED' => 1,
'VERTICAL_RULES' => [ 1, 0, 0 ],
'HORIZONTAL_RULES' => [ 1, 1, 0 ],
'BOOKTABS' => 0,
'EXTRA_ROW_HEIGHT' => '1pt',
}};
}
1;
=head1 DESCRIPTION
This is the theme interface (or L<Moose> role), that all theme objects must use.
=head1 CREATING THEMES
A theme is defined as an hash reference containing all options:
# a very ugly theme...
my $theme = {
'Duisburg' => {
'HEADER_FONT_STYLE' => 'sc',
'HEADER_FONT_COLOR' => 'white',
'HEADER_BG_COLOR' => 'blue',
'HEADER_CENTERED' => 1,
'DATA_BG_COLOR_ODD' => 'blue!30',
'DATA_BG_COLOR_EVEN' => 'blue!10',
'CAPTION_FONT_STYLE' => 'sc',
'VERTICAL_RULES' => [ 1, 2, 1 ],
'HORIZONTAL_RULES' => [ 1, 2, 0 ],
'EXTRA_ROW_HEIGHT' => '2pt',
'BOOKTABS' => 0,
},
};
=over
=item Fonts
C<HEADER_FONT_STYLE>, C<CAPTION_FONT_STYLE>. Valid values are I<bf> (bold),
I<it> (italics), I<sc> (caps) and I<tt> (typewriter). When this option is
undef, then header (or caption, respectively) is written in normal font.
=item Colors
C<HEADER_FONT_COLOR> can be used to specify a different font color for the
header. Requires the C<xcolor> LaTeX package.
Set C<HEADER_BG_COLOR> to use a background color in the header,
C<DATA_BG_COLOR_EVEN> and C<DATA_BG_COLOR_ODD> for even and odd data rows.
Requires the C<colortbl> and the C<xcolor> LaTeX package.
You can define colors with C<DEFINE_COLORS>, for example:
'DEFINE_COLORS' => '\definecolor{latextbl}{RGB}{78,130,190}',
=item Rules
=over
=item C<VERTICAL_RULES>, C<HORIZONTAL_RULES>
A reference to an array with three integers, e.g. C<[ 1, 2, 0 ]>. The first
integer defines the number of outer rules. The second the number of rules
after the header and after the first column. The third is the number of inner
rules. For example I<Dresden> is defined as:
'Dresden' => {
...
'VERTICAL_RULES' => [ 1, 2, 1 ],
'HORIZONTAL_RULES' => [ 1, 2, 0 ],
}
The first integers define one outer rule - vertical and horizontal. So a box
is drawn around the table. The second integers define two rules between header
and table and two vertical rules between first and second column. And finally
the third integers define that columns are separated by a single vertical
rule whereas rows are not separated by horizontal lines.
=item C<RULES_COLOR_GLOBAL>
If your theme uses the C<colortbl> LaTeX package, this command should handle
the coloring of the rules. See the C<colortbl> documentation.
'RULES_COLOR_GLOBAL' =>
'\arrayrulecolor{white}\doublerulesepcolor{black}',
=item C<RULES_WIDTH_GLOBAL>
Code that controls the width of the rules. See for example the C<colortbl>
documentation.
'RULES_WIDTH_GLOBAL' =>
'\setlength\arrayrulewidth{1pt}\setlength\doublerulesep{0pt}',
=item C<RULES_CMD>
A reference to an array with four LaTeX commands for the top, mid (between header and
data), inner and bottom rules.
RULES_CMD => [ '\toprule', '\midrule', '\midrule', '\bottomrule' ];
=item C<BOOKTABS>
Use the C<booktabs> LaTeX package for "Publication quality tables". Instead of
C<\hline>, C<LaTeX::Table> then uses C<\toprule>, C<\midrule> and
C<\bottomrule>. 0 (don't use this package) or 1 (use it). A shortcut for
RULES_CMD => [ '\toprule', '\midrule', '\midrule', '\bottomrule' ];
=back
=item Misc
=over
=item C<EXTRA_ROW_HEIGHT>
Will set C<\extrarowheight> in the floating environment. Requires the C<array>
LaTeX package.
=item C<STUB_ALIGN>
Defines how the left-hand column, the stub, is aligned. Default is 'l' (left
aligned).
=item C<HEADER_CENTERED>
This controls the alignment of the header columns, excluding the stub when
C<STUB_ALIGN> is defined. Valid values are 0 (not centered) or 1 (centered).
Typically, it is recommended to center headers, but sometimes this does not
look right. In this case, (left) align the header manually.
=back
=back
You can either quickly add themes after initiation of an L<LaTeX::Table>:
$table->set_custom_themes($theme);
Or, you can build a L<"THEME MODULE"> and extend the list of predefined themes.
=head1 THEME MODULE
Now, to build a theme that you can easily load, take the L<"SYNOPSIS">
template, change it and then make it accessible in C<LaTeX::Table> by saving
it under the C<LaTeX::Table::Themes::*> namespace.
Alternatively, you can use the search_path() method to add custom paths. For
example save the L<"SYNOPSIS"> module as C<./MyThemes/Custom.pm> and then add
C<MyThemes> in the script that uses the new theme:
# in ./script.pl
$table->search_path( add => 'MyThemes');
If your theme
looks nice, please contribute it.
=head1 SEE ALSO
L<LaTeX::Table>
=head1 LICENSE AND COPYRIGHT
Copyright (c) 2006-2010 C<< <limaone@cpan.org> >>
This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself. See L<perlartistic>.
=cut
# vim: ft=perl sw=4 ts=4 expandtab
|
