view release on metacpan or  search on metacpan

lib/Prima/CodeManager/hilite/hilite_html.pl  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
$main::hilite{case_html} = 0;
$main::hilite{rexp_html} = [
#       '(\/\/.*$)',                    { color => 0xaaaaaa,},
        '(<\/*\w+>|<\w+|>)',                        { color => 0xcc0000,},
        '(\$_.+?\})',                   { color => 0xff00ff,},
        '(\$[A-Z]+\{.*?\})',    { color => 0x0077ff,},
#       '((alt|class|href|id|name|ondblclick|onclick|onfocus|onblur|readonly|READONLY|title|src|style|type|value)="[^\$<>]*?")',  { color => 0x00aa55,},
        '((alt|class|href|id|name|ondblclick|onclick|onblur|readonly|READONLY|title|src|style|type|value)(?=\s*=\s*"[^<>]*?"))',  { color => 0x00aa55,},
#       '((?<=onclick)\s*=\s*"[^\$<>]*?")',    { color => 0xff00aa,},
#       '((?<=ondblclick)\s*=\s*"[^\$<>]*?")',{ color => 0xff00aa,},
#       '((?<=onblur)\s*=\s*"[^\$<>]*?")',     { color => 0xff00aa,},
#       '((?<=onfocus)\s*=\s*"[^\$<>]*?")',    { color => 0xff00aa,},
#       '((alt|class|href||id|name|ondblclick|onclick|onblur|readonly|READONLY|title|src|style|type|value)="[^<>]*?")',           { color => 0x00aa55,},
        '(\&S_.+?\))',                      { color => 0x7777ff,},
        '(http:[\/\w\.]+)',             { color => 0xcccc00,},
        '(&[\w^;]+?;)',                     { color => 0x0000ff,},

lib/Prima/CodeManager/hilite/hilite_tt.pl  view on Meta::CPAN

3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
$main::hilite{rexp_html} = [
#       '(\/\/.*$)',                    { color => 0xaaaaaa,},
        '(<\/*\w+>)',                     { color => 0xcc0000,},
        '(<\w+)',                            { color => 0xcc0000,},
        '(>)',                                       { color => 0xcc0000,},
        '(\$_.+?\})',                   { color => 0xff00ff,},
        '(\&S_.+?\))',                      { color => 0x7777ff,},
        '(http:[\/\w\.]+)',             { color => 0xcccc00,},
        '(&[\w^;]+?;)',                     { color => 0x0000ff,},
        '(="[^\$<>]*?")',         { color => 0x00aa33,},
        '(\$[A-Z]+\{.*?\})',    { color => 0x0077ff,},
        '(<!--output.*?-->)',     { color => 0x0066bb,style => fs::Bold,},
        '(<!--.*?-->)',                   { color => 0xaaaaaa,},
        '(<!--perl)',                        { color => 0x007777,backColor => 0xaaffff,},
        '(perl-->)',                 { color => 0x007777,backColor => 0xaaffff,},
];
 
$main::hilite{blok_html} = [
#       '(^<!--perl.*$)','(^perl-->)',1,0x00aaaa
];

lib/Prima/CodeManager/hilite/hilite_tt2.pl  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
$main::hilite{case_tt2} = 0;
$main::hilite{rexp_tt2} = [
        '(<\/*\w+>|<\w+|>)',                        { color => 0xcc0000,},
        '(\$_.+?\})',                   { color => 0xff00ff,},
        '(\&S_.+?\))',                      { color => 0x7777ff,},
        '(http:[\/\w\.]+)',                                             { color => 0xcccc00,},
        '(&[\w^;]+?;)',                                                     { color => 0x0000ff,},
        '((class|src|href|style|id)="[^\$<>]*?")',                { color => 0x00aa55,},
        '(\$[A-Z]+\{.*?\})',                                    { color => 0x0077ff,},
        '(<!--output.*?-->)',                                     { color => 0x0066bb,style => fs::Bold,},
        '(<!--.*?-->)',                                                   { color => 0xaaaaaa,},
        '(\[\%-?\s*#.*?\%\])',                                  { color => 0xaaaaaa,},
        '(\[\%.*(FOREACH|META|END).*?\%\])',    { color => 0x0055ff,style => fs::Bold,},
        '(\[\%\s*[^#].*?\%\])',                                 { color => 0x008844,},
];
 
$main::hilite{blok_tt2} = [
#       '(^<!--perl.*$)','(^perl-->)',1,0x00aaaa
];