view release on metacpan or search on metacpan
docs/index.html view on Meta::CPAN
.alias-item code {
font-family: 'Monaco', 'Menlo', monospace;
background: rgba(102, 126, 234, 0.2);
padding: 0.8rem 1.2rem;
border-radius: 10px;
font-weight: bold;
color: #667eea;
font-size: 1.2rem;
text-shadow: 0 0 10px rgba(102, 126, 234, 0.5);
}
docs/index.html view on Meta::CPAN
font-style: italic;
}
.code-block .prompt {
color: #569cd6;
font-weight: bold;
}
.code-block .command {
color: #dcdcaa;
font-weight: bold;
}
.code-block .url {
color: #4fc1ff;
text-decoration: underline;
docs/index.html view on Meta::CPAN
color: #ce9178;
}
.code-block .alias {
color: #c586c0;
font-weight: bold;
}
.code-block .string {
color: #ce9178;
}
view release on metacpan or search on metacpan
lib/App/Greple/md.pm view on Meta::CPAN
=head1 DESCRIPTION
B<App::Greple::md> is a L<greple|App::Greple> module for viewing
Markdown files in the terminal with syntax highlighting.
It colorizes headings, bold, italic, strikethrough, inline code,
fenced code blocks, HTML comments, blockquotes, horizontal rules,
links, and images. Tables are formatted with aligned columns and
optional Unicode box-drawing borders. Long lines in list items can
be folded with proper indentation. Links become clickable via OSC 8
terminal hyperlinks in supported terminals.
lib/App/Greple/md.pm view on Meta::CPAN
greple -Mmd -m dark -- file.md
=head2 B<-B> I<COLOR>, B<--base-color>=I<COLOR>
Override the base color used for headings, bold, links, and other
elements. Accepts a named color (e.g., C<Crimson>, C<DarkCyan>) or a
L<Term::ANSIColor::Concise> color spec.
greple -Mmd -B Crimson -- file.md
lib/App/Greple/md.pm view on Meta::CPAN
the color labels listed in L</COLOR LABELS>. I<SPEC> follows
L<Term::ANSIColor::Concise> format and supports C<sub{...}>
function specs via L<Getopt::EX::Colormap>.
greple -Mmd --cm h1=RD -- file.md
greple -Mmd --cm bold='${base}D' -- file.md
=head2 B<--heading-markup>[=I<STEPS>], B<--hm>[=I<STEPS>]
Control inline markup processing inside headings. By default,
headings are rendered with uniform heading color without processing
bold, italic, strikethrough, or inline code inside them. Links
are always processed as OSC 8 hyperlinks regardless of this option.
Without an argument, all inline formatting becomes visible within
headings using cumulative coloring. With an argument, only the
specified steps are processed inside headings. Steps are separated
by colons.
Available steps: C<inline_code>, C<horizontal_rules>, C<bold>,
C<italic>, C<strike>.
greple -Mmd --hm -- file.md # all markup
greple -Mmd --hm=bold -- file.md # bold only
greple -Mmd --hm=bold:italic -- file.md # bold and italic
=head2 B<--hashed> I<LEVEL>=I<VALUE>
Append closing hashes to headings. For example, C<### Title>
becomes C<### Title ###>. Set per heading level:
lib/App/Greple/md.pm view on Meta::CPAN
=head2 B<--show> I<LABEL>[=I<VALUE>]
Control which elements are highlighted. This is useful for
focusing on specific elements or disabling unwanted highlighting.
greple -Mmd --show bold=0 -- file.md # disable bold
greple -Mmd --show all= --show h1 -- file.md # only h1
C<--show LABEL=0> or C<--show LABEL=> disables the label.
C<--show LABEL> or C<--show LABEL=1> enables it.
C<all> is a special key that sets all labels at once.
lib/App/Greple/md.pm view on Meta::CPAN
h6 ${base} ${base}
=head2 Inline Formatting
LABEL LIGHT / DARK
bold D
italic I
strike X
=head2 Code
lib/App/Greple/md.pm view on Meta::CPAN
h2 => 'L25D/${base}+y20;E',
h3 => 'L25DN/${base}+y30',
h4 => '${base}UD',
h5 => '${base}U',
h6 => '${base}',
bold => 'D',
italic => 'I',
strike => 'X',
blockquote => '${base}D',
horizontal_rule => 'L15',
);
lib/App/Greple/md.pm view on Meta::CPAN
}
},
horizontal_rules => sub {
s/^([ ]{0,3}(?:[-*_][ ]*){3,})$/protect(md_color('horizontal_rule', $1))/mge;
},
bold => sub {
s/(?<![\\`])\*\*.*?(?<!\\)\*\*/md_color('bold', $&)/ge;
s/(?<![\\`\w])__.*?(?<!\\)__(?!\w)/md_color('bold', $&)/ge;
},
italic => sub {
s/(?<![\\`\w])_(?:(?!_).)+(?<!\\)_(?!\w)/md_color('italic', $&)/ge;
s/(?<![\\`\*])\*(?:(?!\*).)+(?<!\\)\*(?!\*)/md_color('italic', $&)/ge;
},
lib/App/Greple/md.pm view on Meta::CPAN
# Always before headings (protection + links)
my @protect_steps = qw(code_blocks comments image_links images links);
# Inline steps controlled by heading_markup
my @inline_steps = qw(inline_code horizontal_rules bold italic strike);
# Always last
my @final_steps = qw(blockquotes);
# Step-to-label mapping for active() check (unmapped = always active)
my %step_label = (
headings => 'header',
horizontal_rules => 'horizontal_rule',
bold => 'bold',
italic => 'italic',
strike => 'strike',
blockquotes => 'blockquote',
);
lib/App/Greple/md.pm view on Meta::CPAN
# "all" or "1": all inline steps before headings
my %before;
if ($hm eq '1' || $hm =~ /^all$/i) {
%before = map { $_ => 1 } @inline_steps;
} else {
# "bold:italic" → collect word tokens, filter to valid inline steps
my %valid = map { $_ => 1 } @inline_steps;
%before = map { $_ => 1 } grep { $valid{$_} } ($hm =~ /(\w+)/g);
}
my @before_h = grep { $before{$_} } @inline_steps;
view release on metacpan or search on metacpan
lib/App/Greple/wordle/NYT.pm view on Meta::CPAN
bluer blues bluet bluey bluff bluid blume blunk blunt blurb blurs blurt blush
blype boabs boaks board boars boart boast boats boaty bobac bobak bobas bobby
bobol bobos bocca bocce bocci boche bocks boded bodes bodge bodgy bodhi bodle
bodoh boeps boers boeti boets boeuf boffo boffs bogan bogey boggy bogie bogle
bogue bogus bohea bohos boils boing boink boite boked bokeh bokes bokos bolar
bolas boldo bolds boles bolet bolix bolks bolls bolos bolts bolus bomas bombe
bombo bombs bomoh bomor bonce bonds boned boner bones boney bongo bongs bonie
bonks bonne bonny bonum bonus bonza bonze booai booay boobs booby boody booed
boofy boogy boohs books booky bools booms boomy boong boons boord boors boose
boost booth boots booty booze boozy boppy borak boral boras borax borde bords
bored boree borek borel borer bores borgo boric borks borms borna borne boron
view release on metacpan or search on metacpan
with other special effects:
N None
Z 0 Zero (reset)
D 1 Double strike (boldface)
P 2 Pale (dark)
I 3 Italic
U 4 Underline
F 5 Flash (blink: slow)
Q 6 Quick (blink: rapid)
view release on metacpan or search on metacpan
if ($self->{'_opts'}->{'c'}) {
print Term::ANSIColor::color('green').$seg->getName.
Term::ANSIColor::color('reset').'-'.
Term::ANSIColor::color('red').$index.
Term::ANSIColor::color('reset').':'.
Term::ANSIColor::color('bold white').
$print_val.Term::ANSIColor::color('reset')."\n";
} else {
print $seg->getName.'-'.$index.':'.$print_val."\n";
}
}
view release on metacpan or search on metacpan
lib/App/Hack/Exe.pm view on Meta::CPAN
my $pause_for = DOTS_DURATION / $num_dots;
while ($num_dots --> 0) {
print '.';
$self->_sleep($pause_for);
}
say '[', colored('COMPLETE', 'bold green'), ']';
$self->_sleep(0.6);
return;
}
sub _get_ip {
view release on metacpan or search on metacpan
share/static/app.css view on Meta::CPAN
background: #ded;
color: #666;
}
textarea:focus,
input:focus { background: #99CCD2;color: #333; font-weight: bold; }
.msgid { width: 300px; float: left; padding:6px; }
.msgstr { width: 400px; float: left; padding:6px; }
.msgid textarea,
view release on metacpan or search on metacpan
printf( $format, 'Service', $d->{service_description} );
}
printf( $format,
'Start',
$d->{is_in_effect}
? with_colour( pretty_date( $d->{start_time} ), 'bold' )
: pretty_date( $d->{start_time} ) );
printf( $format,
'End',
$d->{is_in_effect}
? with_colour( pretty_date( $d->{end_time} ), 'bold' )
: pretty_date( $d->{end_time} ) );
printf( $format,
'Duration',
$d->{fixed} ? 'Fixed' : pretty_duration_abs( $d->{duration} ) );
if ( $v > 3 ) {
pretty_date( $d->{'entry_time'} ),
$d->{'author'}, );
}
if ( $d->{is_in_effect} ) {
printf( ' %-28s %-28s',
with_colour( pretty_date( $d->{'start_time'} ), 'bold' ),
with_colour( pretty_date( $d->{'end_time'} ), 'bold' ),
);
}
else {
printf(
' %-20.20s %-20.20s',
{
$flags .= '!';
}
$flags = sprintf( ' %-3s', $flags );
print with_colour( $flags, 'bold' );
}
printf( ' %s', service_state($s) );
if ( $v >= 2 ) {
view release on metacpan or search on metacpan
inc/Pod/Markdown.pm view on Meta::CPAN
if $seq_command eq 'L' && $self->_private->{InsideLink};
my $i = 2;
my %interiors = (
'I' => sub { return '_' . $_[$i] . '_' }, # italic
'B' => sub { return '__' . $_[$i] . '__' }, # bold
'C' => sub { return '`' . $_[$i] . '`' }, # monospace
'F' => sub { return '`' . $_[$i] . '`' }, # system path
# non-breaking space
'S' => sub {
(my $s = $_[$i]) =~ s/ / /g;
view release on metacpan or search on metacpan
"BorderStyle::BoxChar::SingleLineVerticalOnly" : "0.006",
"BorderStyle::BoxChar::Space" : "0.006",
"BorderStyle::BoxChar::SpaceInnerOnly" : "0.006",
"BorderStyle::Test::CustomChar" : "0.009",
"BorderStyle::Test::Labeled" : "0.009",
"BorderStyle::Text::ANSITable::OldCompat::Default::bold" : "0.604",
"BorderStyle::Text::ANSITable::OldCompat::Default::brick" : "0.604",
"BorderStyle::Text::ANSITable::OldCompat::Default::bricko" : "0.604",
"BorderStyle::Text::ANSITable::OldCompat::Default::csingle" : "0.604",
"BorderStyle::Text::ANSITable::OldCompat::Default::double" : "0.604",
"BorderStyle::Text::ANSITable::OldCompat::Default::none_ascii" : "0.604",
view release on metacpan or search on metacpan
scripts/inspect view on Meta::CPAN
use List::Util qw/max/;
use Term::ANSIColor qw/color/;
my $normal = color('reset');
my $red = color('bold red');
my $grn = color('bold green');
my $blu = color('blue');
my $ylw = color('yellow');
run(@ARGV) unless $^C || caller;
view release on metacpan or search on metacpan
lib/App/InvestSim/GUI.pm view on Meta::CPAN
$icon->read(catfile($res_dir, 'sources', 'icon_32.png'));
# We could pass several images of different sizes here.
$root->g_wm_iconphoto($icon);
}
# We're copying the font used by the TreeView style and adding an 'bold'
# option to it, it will be used by the 'total' line.
my $default_treeview_font = Tkx::ttk__style('lookup', 'TreeView', '-font');
my $treeview_total_font = Tkx::font('create');
Tkx::font('configure', $treeview_total_font, Tkx::SplitList(Tkx::font('configure', $default_treeview_font)));
Tkx::font('configure', $treeview_total_font, -weight => 'bold');
# Build the left bar with various parameters.
{
my $frame = $root->new_ttk__frame(-padding => 3);
$frame->g_grid(-column => 0, -row => 0, -rowspan => 3, -sticky => "we");
view release on metacpan or search on metacpan
lib/App/JESP.pm view on Meta::CPAN
my $applied_patches = $self->_applied_patches();
foreach my $plan_patch ( @$plan_patches ){
if( my $applied_patch = delete $applied_patches->{$plan_patch->id()} ){
$plan_patch->applied_datetime( $applied_patch->{applied_datetime} );
$log->info( $self->colorizer->colored('✔︎', "bold green")." ".sprintf('%-52s', "'".$plan_patch->id()."'" )." Applied on ".$plan_patch->applied_datetime() );
}else{
$log->info( $self->colorizer->colored('âš ', "bold yellow")." ".sprintf('%-52s', "'".$plan_patch->id()."'" )." Not applied (yet?)" );
}
}
my $meta_prefix = $self->prefix().'meta';
my $plan_orphans = [ grep{ $_ !~ /^$meta_prefix/ } keys %$applied_patches ];
if( @$plan_orphans ){
$log->warn($self->colorizer()->colored('⚠︎', "bold red")." Got orphan patches (patches in meta table but not in plan): ".join(', ' , map{ "'$_'" } @$plan_orphans ) );
}
return {
plan_patches => $plan_patches,
plan_orphans => $plan_orphans,
lib/App/JESP.pm view on Meta::CPAN
$db->commit();
};
if( my $err = $@ ){
$log->error("Got error $err. ROLLING BACK");
$db->rollback();
die "ERROR APPLYING PATCH ".$patch->id().": $err. ".$self->colorizer()->colored("ABORTING", "bold red")."\n";
};
$log->info($self->colorizer()->colored("Patch '".$patch->id()."' applied successfully", "green"));
$applied++;
}
$log->info($self->colorizer()->colored("DONE Deploying DB Patches", "green"));
view release on metacpan or search on metacpan
lib/App/KGB/Client.pm view on Meta::CPAN
Used for modified paths. Default: teal.
=item deletion
Used for deleted paths. Default: bold red.
=item replacement
Used for replaced paths (a Subversion concept). Default: brown.
=item prop_change
view release on metacpan or search on metacpan
src/css/style.css view on Meta::CPAN
li.new-link::before {
content: 'New! ';
color: red;
font-variant: small-caps;
font-weight: bold;
}
#links h3 {
font-style: italic;
}
view release on metacpan or search on metacpan
share/css/qunit-2.4.0.css view on Meta::CPAN
color: inherit;
text-decoration: none;
}
#qunit-modulefilter-dropdown .clickable.checked {
font-weight: bold;
color: #000;
background-color: #D2E0E6;
}
#qunit-modulefilter-dropdown .clickable:hover {
view release on metacpan or search on metacpan
share/public_html/index.html view on Meta::CPAN
font-size: 2em;
margin-block-start: 0.67em;
margin-block-end: 0.67em;
margin-inline-start: 0px;
margin-inline-end: 0px;
font-weight: bold;
}
</style>
</head>
view release on metacpan or search on metacpan
lib/App/MaMGal/Formatter.pm view on Meta::CPAN
sub stylesheet
{
my $t = <<END;
table.index { width: 100% }
.entry_cell { text-align: center }
.slide_desc { font-weight: bold }
.slide_filename { font-family: monospace }
.filename { font-family: monospace }
.curdir { font-size: xx-large; font-weight: normal }
.date { font-size: small }
.time { font-size: small }
view release on metacpan or search on metacpan
lib/App/MatrixClient/RoomTab.pm view on Meta::CPAN
my $formatted_body = parse_formatted_message( $content );
my $msgtype = $content->{msgtype};
# Convert $body into something Tickit::Widget::Scoller will understand
my $body = String::Tagged->clone( $formatted_body,
only_tags => [qw( bold under italic reverse fg bg )],
convert_tags => {
bold => "b",
under => "u",
italic => "i",
reverse => "rv",
fg => sub { fg => $_[1]->as_xterm->index },
bg => sub { bg => $_[1]->as_xterm->index },
view release on metacpan or search on metacpan
lib/App/MechaCPAN.pm view on Meta::CPAN
$color = eval { Term::ANSIColor::color($color) } // $RESET;
state @last_key;
# Undo the last line that is bold
if ( @last_key && !$VERBOSE && $last_key[0] ne $key )
{
_show_line(@last_key);
}
view release on metacpan or search on metacpan
root/css/error.css view on Meta::CPAN
font-size: 10px;
}
span.key {
color: #449;
font-weight: bold;
width: 120px;
display: inline;
}
span.value {
root/css/error.css view on Meta::CPAN
div.title {
font-family: "lucida console","monaco","andale mono","bitstream vera sans mono","consolas",monospace;
font-size: 12px;
background-color: #aaa;
color: #444;
font-weight: bold;
padding: 3px;
padding-left: 10px;
}
pre.content span.nu {
view release on metacpan or search on metacpan
lib/App/MiseEnPlace.pm view on Meta::CPAN
if( -e -d $dir ) {
$msg = colored('exists ','green') if $self->verbose();
}
elsif( -e $dir and ! -l $dir ) {
$msg = colored('ERROR: blocked by non-dirctory','bold white on_red');
}
else {
path( $dir )->mkpath();
$msg = colored('created','bold black on_green');
}
my $home = $self->homedir();
if ( $msg ) {
$dir =~ s/^$home/~/;
lib/App/MiseEnPlace.pm view on Meta::CPAN
my( $src , $target ) = @$linkpair;
my $msg;
if ( ! -e $src ) {
$msg = colored( 'ERROR: src does not exist' , 'bold white on_red' )
}
elsif( -e -l $target ) {
if ( readlink $target eq $src ) {
$msg = colored('exists ','green') if $self->verbose;
}
else {
unlink $target;
symlink $src , $target;
$msg = colored( 'fixed' , 'bold black on_yellow' ) . ' ';
}
}
elsif ( -e $target ) {
$msg = colored( 'ERROR: blocked by existing file' , 'bold white on_red' );
}
else {
symlink $src , $target;
$msg = colored( 'created' , 'bold black on_green' );
}
my $home = $self->homedir();
if ( $msg ) {
$src =~ s/^$home/~/;
view release on metacpan or search on metacpan
lib/App/MojoSlides/files/public/bootstrap.min.css view on Meta::CPAN
* Copyright 2013 Twitter, Inc
* Licensed under the Apache License v2.0
* http://www.apache.org/licenses/LICENSE-2.0
*
* Designed and built with all the love in the world by @mdo and @fat.
*//*! normalize.css v2.1.0 | MIT License | git.io/normalize */article,aside,details,figcaption,figure,footer,header,hgroup,main,nav,section,summary{display:block}audio,canvas,video{display:inline-block}audio:not([controls]){display:none;height:0}[hi...
view release on metacpan or search on metacpan
The standard CSS classes are:
.synComment { color: #0000FF }
.synConstant { color: #FF00FF }
.synIdentifier { color: #008B8B }
.synStatement { color: #A52A2A ; font-weight: bold }
.synPreProc { color: #A020F0 }
.synType { color: #2E8B57 ; font-weight: bold }
.synSpecial { color: #6A5ACD }
.synUnderlined { color: #000000 ; text-decoration: underline }
.synError { color: #FFFFFF ; background: #FF0000 none }
.synTodo { color: #0000FF ; background: #FFFF00 none }
view release on metacpan or search on metacpan
lib/ChordPro/Config/Data.pm view on Meta::CPAN
sub config {
state $pp = JSON::XS->new->utf8
->boolean_values( $JSON::Boolean::false, $JSON::Boolean::true );
$pp->decode( <<'EndOfJSON' );
{"$schema":"https://chordpro.org/beta/resources/config.schema","a2crd":{"classifier":"pct_chords","infer-titles":true,"tabstop":"8"},"assets":{},"chord-formats":{"common":"%{root|%{}%{qual|%{}}%{ext|%{}}%{bass|/%{}}|%{name}}","nashville":"%{root|%{}%...
EndOfJSON
}
1;
view release on metacpan or search on metacpan
lib/App/Music/PlayTab/Output/PDF.pm view on Meta::CPAN
file => 'ArialMT.ttf',
size => 12 },
chord_n => { name => 'Helvetica',
file => 'ArialMT.ttf',
size => 17 },
chord_cn => { name => 'Myriad-CnSemibold',
file => 'Myriad-CnSemibold.ttf',
size => 20 },
barno => { file => 'Helvetica',
file => 'ArialMT.ttf',
size => 8 },
msyms => { file => 'MSyms.ttf',
view release on metacpan or search on metacpan
public/css/error.css view on Meta::CPAN
font-size: 10px;
}
span.key {
color: #449;
font-weight: bold;
width: 120px;
display: inline;
}
span.value {
public/css/error.css view on Meta::CPAN
div.title {
font-family: "lucida console","monaco","andale mono","bitstream vera sans mono","consolas",monospace;
font-size: 12px;
background-color: #aaa;
color: #444;
font-weight: bold;
padding: 3px;
padding-left: 10px;
}
table.context {
view release on metacpan or search on metacpan
lib/App/NDTools/NDDiff.pm view on Meta::CPAN
# resolve colors
while (my ($k, $v) = each %{$self->{OPTS}->{term}->{line}}) {
if ($self->{OPTS}->{colors}) {
$COLOR{$k} = color($v);
$COLOR{"B$k"} = color("bold $v");
} else {
$COLOR{$k} = $COLOR{"B$k"} = '';
}
}
view release on metacpan or search on metacpan
lib/App/Nag.pm view on Meta::CPAN
version="1.1">
<g id="layer1">
<rect style="fill:#$fill;fill-rule:evenodd;stroke:#$stroke;stroke-width:3px;stroke-linecap:butt;stroke-linejoin:round;stroke-opacity:1"
id="rect2993" width="62" height="62" x="1" y="1" />
<text xml:space="preserve"
style="font-size:${font_size}px;font-style:normal;font-weight:bold;line-height:125%;letter-spacing:0px;word-spacing:0px;fill:#$stroke;fill-opacity:1;stroke:none;font-family:Monospace;opacity:1"
x="12.525171" y="28.595528" id="text3763">
<tspan id="tspan3765" x="$x" y="$y">$phrase</tspan>
</text>
</g>
</svg>
view release on metacpan or search on metacpan
examples/headers view on Meta::CPAN
desc(headersDesc)
##
sub headersDesc {
return "<br>Change headers content only. H1 content is processed by toupper function, H2 by tobold and H3 by toitalic as defined in application's DSL.<br><pre>
cginame(./headers)
formtitle(Process Headers)
proc(id)
proctags(h1=>uc,h2=>tobold,h3=>toitalic)
desc(headersDesc)
</pre>
Good example to test: <a href='http://nrc.homelinux.org/headers.html'>http://nrc.homelinux.org/headers.html</a><br>Example's source: <pre>
<body>
<h1>This is header 1</h1>