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
|
package Data::Printer::Theme::Material;
# inspired by Mattia Astorino's Material theme:
# https://github.com/material-theme/vsc-material-theme
use strict;
use warnings;
sub colors {
my %code_for = (
'very_light_gray' => '#EEFFFF',
'light_gray' => '#A1BBC5',
'gray' => '#4f5a61',
'green' => '#90B55A', #'#C3E88D',
'teal' => '#009688',
'light_teal' => '#73d1c8',
'cyan' => '#66D9EF',
'blue' => '#82AAFF',
'indigo' => '#7986CB',
'purple' => '#C792EA',
'pink' => '#FF5370',
'red' => '#F07178',
'strong_orange' => '#F78C6A',
'orange' => '#FFCB6B',
'light_orange' => '#FFE082',
);
return {
array => $code_for{light_gray}, # array index numbers
number => $code_for{strong_orange}, # numbers
string => $code_for{green}, # (or 'very_light_gray'?) # strings
class => $code_for{purple}, # class names
method => $code_for{blue}, # method names
undef => $code_for{pink}, # the 'undef' value
hash => $code_for{indigo}, # hash keys
regex => $code_for{orange}, # regular expressions
code => $code_for{gray}, # code references
glob => $code_for{strong_orange}, # globs (usually file handles)
vstring => $code_for{strong_orange}, # version strings (v5.16.0, etc)
lvalue => $code_for{strong_orange}, # lvalue label
format => $code_for{strong_orange}, # format type
true => $code_for{blue}, # boolean type (true)
false => $code_for{blue}, # boolean type (false)
repeated => $code_for{red}, # references to seen values
caller_info => $code_for{gray}, # details on what's being printed
weak => $code_for{green}, # weak references flag
tainted => $code_for{light_orange}, # tainted flag
unicode => $code_for{light_orange}, # utf8 flag
escaped => $code_for{teal}, # escaped characters (\t, \n, etc)
brackets => $code_for{cyan}, # (), {}, []
separator => $code_for{cyan}, # the "," between hash pairs, array elements, etc
quotes => $code_for{cyan},
unknown => $code_for{red}, # any (potential) data type unknown to Data::Printer
};
}
1;
__END__
=head1 NAME
Data::Printer::Theme::Material - Material theme for DDP
=head1 SYNOPSIS
In your C<.dataprinter> file:
theme = Material
Or during runtime:
use DDP theme => 'Material';
=head1 DESCRIPTION
This module implements the Material theme for Data::Printer, inspired by
L<Mattia Astorino's original work|https://github.com/equinusocio/vsc-material-theme>.
=for html <a href="https://metacpan.org/pod/Data::Printer::Theme::Material"><img src="https://raw.githubusercontent.com/garu/Data-Printer/master/examples/theme-material.png" alt="Material Theme" /></a>
=head1 SEE ALSO
L<Data::Printer>
L<Data::Printer::Theme>
|
