view release on metacpan or search on metacpan
configuration/configuration_template/elements/sco.css view on Meta::CPAN
padding: 1px;
}
.menubar A {
padding: 0.8ex;
font: bold 10pt Arial,Helvetica,sans-serif;
}
.menubar A:link, .menubar A:visited {
color: white;
text-decoration: none;
configuration/configuration_template/elements/sco.css view on Meta::CPAN
padding: 0 1ex;
vertical-align: top;
}
.l1 {
font-weight: bold;
}
.l2 {
font-weight: normal;
}
configuration/configuration_template/elements/sco.css view on Meta::CPAN
margin: 0;
}
.t1 {
font-size: 1.4em;
font-weight: bold;
text-align: center;
}
.t2 {
font-size: 1.0em;
font-weight: bold;
text-align: left;
}
.t3 {
font-size: 1.0em;
configuration/configuration_template/elements/sco.css view on Meta::CPAN
}
.label {
background: #aaaaaa;
color: black;
font-weight: bold;
padding: 0.2ex 1ex;
text-align: right;
white-space: nowrap;
vertical-align: baseline;
}
configuration/configuration_template/elements/sco.css view on Meta::CPAN
}
.path A {
background: transparent;
color: #006699;
font-weight: bold;
}
.pages {
background: #dddddd;
color: #006699;
configuration/configuration_template/elements/sco.css view on Meta::CPAN
}
A.m:link, A.m:visited {
background: #006699;
color: white;
font: bold 10pt Arial,Helvetica,sans-serif;
text-decoration: none;
}
A.o:link, A.o:visited {
background: #006699;
color: #ccffcc;
font: bold 10pt Arial,Helvetica,sans-serif;
text-decoration: none;
}
A.o:hover {
background: transparent;
configuration/configuration_template/elements/sco.css view on Meta::CPAN
/*margin-top: "1cm";*/
}
.faq DT {
font-size: 1.4em;
font-weight: bold;
}
.chmenu {
background: black;
color: red;
font: bold 1.1em Arial,Helvetica,sans-serif;
margin: 1ex auto;
padding: 0.5ex;
}
.chmenu TD {
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
# Avoid git flow
/.github/workflows/
# Legacy
\bold/
view release on metacpan or search on metacpan
lib/App/Pods2Site/SiteBuilder/AbstractBasicFrames.pm view on Meta::CPAN
my $sysCssName = $self->getSystemCssName();
my ($mainspan, $aboutspan);
if ($mainpage eq ':std')
{
$mainspan = qq(<span style="float:left"><a href="about.html" target="main_frame" style="font-size:250%;font-weight:bold">$title</a></span>);
$aboutspan = '';
}
else
{
$mainspan = qq(<span style="float:left"><a href="$mainpage" target="main_frame" style="font-size:250%;font-weight:bold">$title</a></span>);
$aboutspan = qq(<span style="float:right"><a href="about.html" target="main_frame" style="font-size:125%;font-weight:bold">about</a></span>);
}
my $headerContent = <<HDR;
<!DOCTYPE html>
<html>
view release on metacpan or search on metacpan
lib/App/ape/plan.pm view on Meta::CPAN
use Getopt::Long qw{GetOptionsFromArray};
use App::Prove::Elasticsearch::Utils;
use App::Prove::State;
use Pod::Usage;
use IO::Prompter [ -yesno, -single, -stdio, -style => 'bold' ];
use List::Util qw{shuffle};
use File::Basename qw{basename};
use POSIX qw{strftime};
sub new {
view release on metacpan or search on metacpan
lib/App/Prove/Plugin/TraceUse.pm view on Meta::CPAN
my $v = $dep_hash->{$mod};
if ( not $v ) {
print "# ";
print colored ['bold red'], sprintf "%-${n}s => '%s',\n", "'".$_->[0]."'", $_->[1];
$hash_fails = 1;
}
elsif ( $v and qv($v) < qv($ver) ) {
print "# ";
print colored ['bold yellow'], sprintf "%-${n}s => '%s',\n", "'".$_->[0]."'", $_->[1];
$hash_fails = 1;
}
}
view release on metacpan or search on metacpan
public/css/flipswitch.css view on Meta::CPAN
html .ui-body-a .ui-bar-inherit,
html body .ui-group-theme-a .ui-bar-inherit {
background-color: #e9e9e9 /*{a-bar-background-color}*/;
border-color: #ddd /*{a-bar-border}*/;
color: #333 /*{a-bar-color}*/;
font-weight: bold;
}
/* Button up */
.ui-page-theme-a .ui-btn,
html .ui-bar-a .ui-btn,
view release on metacpan or search on metacpan
lib/App/RedisTop/Perform.pm view on Meta::CPAN
sub separator { colored("|", "blue") }
sub build_title {
my @lines;
push @lines, "\033[2J\n";
push @lines, colored(sprintf("redis-top v%s\n\n", $version), "bold");
return @lines;
}
sub build_header {
my ($self) = @_;
lib/App/RedisTop/Perform.pm view on Meta::CPAN
}
sub build_sub_header {
my ($self) = @_;
my $format = "%" . $self->{width} . "s%s";
my $out_str = colored(sprintf($format, 'INSTANCE', $self->separator), "bold");
for my $group (@{$self->{groups}}) {
$out_str .= $group->sub_header;
}
return ("$out_str\n");
}
lib/App/RedisTop/Perform.pm view on Meta::CPAN
sub build_average {
my ($self) = @_;
my $instance_count = scalar @{$self->{instances}};
my $format = "%" . $self->{width} . "s%s";
my $out_str = colored(sprintf($format, 'AVERAGE', $self->separator), "bold");
for my $group (@{$self->{groups}}) {
my $key = $group->{group};
$out_str .= $group->average($self->{summary}->{$key}, $instance_count);
}
return ("$out_str\n");
}
sub build_total {
my ($self) = @_;
my $format = "%" . $self->{width} . "s%s";
my $out_str = colored(sprintf($format, 'TOTAL', $self->separator), "bold");
for my $group (@{$self->{groups}}) {
my $key = $group->{group};
$out_str .= $group->total($self->{summary}->{$key});
}
return ("$out_str\n");
view release on metacpan or search on metacpan
lib/App/Regather/Logg.pm view on Meta::CPAN
use Sys::Hostname;
use Data::Printer caller_info => 1, class => { expand => 2 };
# https://upload.wikimedia.org/wikipedia/commons/1/15/Xterm_256color_chart.svg
use constant dpc => { info => 'ansi113',
err => 'bold ansi255 on_ansi196',
debug => 'ansi195', #grey18', #bright_yellow',
# warning => 'bold ansi237 on_ansi214', #bright_yellow',
warning => 'ansi214', #bright_yellow',
};
=pod
lib/App/Regather/Logg.pm view on Meta::CPAN
=over 4
info => 'ansi113'
err => 'bold ansi255 on_ansi196'
debug => 'ansi195'
warning => 'bold ansi237 on_ansi214'
=back
for reference look at L<Term::ANSIColor>
view release on metacpan or search on metacpan
t/tmp/stash-test4/.list-filter/filters.yaml view on Meta::CPAN
search_terms:
- '~$'
- /\#
- ',v$'
- \.elc$
- \bold
- \bOld
- \bOLD
- bak$
- Bak$
- BAK$
view release on metacpan or search on metacpan
inc/Pod/Markdown.pm view on Meta::CPAN
sub interior_sequence {
my ($seq_command, $seq_argument, $pod_seq) = @_[1..3];
my %interiors = (
'I' => sub { return '_' . $_[1] . '_' }, # italic
'B' => sub { return '__' . $_[1] . '__' }, # bold
'C' => sub { return '`' . $_[1] . '`' }, # monospace
'F' => sub { return '`' . $_[1] . '`' }, # system path
'S' => sub { return '`' . $_[1] . '`' }, # code
'E' => sub {
my $charname = $_[1];
view release on metacpan or search on metacpan
lib/App/RoboBot/Plugin/Bot/Logging.pm view on Meta::CPAN
use Moose;
use MooseX::SetOnce;
use Number::Format;
use Term::ExtendedColor qw( fg bold );
extends 'App::RoboBot::Plugin';
=head1 bot.logging
view release on metacpan or search on metacpan
lib/App/SD/CLI/Command/Help/ticket_summary_format.pm view on Meta::CPAN
will not affect the summary format.
Here is an example:
[ticket]
summary-format = %5.5s },\$luid | %8.8s,status,bold green | %-52.52s,summary
Let's deconstruct this example. It consists of three groups. The first group is
'%5.5s },\$luid'. The first item of the group should look somewhat familiar to
anyone who's programmed in Perl or C before. It consists of a format string,
like that used in Perl's and C's printf function, and can be prefixed or
lib/App/SD/CLI/Command/Help/ticket_summary_format.pm view on Meta::CPAN
"<modifier> <foreground color> <background color>" and drawing from the
options:
modifiers:
bold, dark, underline, underscore, reverse, concealed
foreground colors:
black, red, green, yellow, blue, magenta, cyan, white
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/big_streams/iSave_picks.pm view on Meta::CPAN
my $mw = MainWindow->new();
my $arial_14 = $mw->fontCreate(
'arial_14',
-family => 'arial',
-weight => 'bold',
-size => -14
);
$mw->configure( -background => $var->{_my_purple} );
view release on metacpan or search on metacpan
lib/App/ShellCheckWiki.pm view on Meta::CPAN
use WWW::Mechanize;
our $VERSION = '0.03';
my $formats = {
'# ' => 'bold green', # H1
'## ' => 'bold magenta', # H2
'### ' => 'bold red', # H3
'```' => 'yellow', # Code Block
};
my $wiki_url = 'https://raw.githubusercontent.com/wiki/koalaman/shellcheck';
my $wiki_toc = 'https://github.com/koalaman/shellcheck/wiki';
lib/App/ShellCheckWiki.pm view on Meta::CPAN
return unless $start eq $format;
return $line;
}
sub show_topics {
print colored(['bold magenta'], "Checking for Available Topics: ");
print colored(['green'], "SCxxxx\n");
$mech->get($wiki_toc);
my $topics = {};
if ($mech->success()) {
for my $link ($mech->links()) {
view release on metacpan or search on metacpan
local/lib/perl5/Test/Deep.pm view on Meta::CPAN
=back
=head1 CONTRIBUTORS
=for stopwords Alexander Karelas Belden Lyman Daniel Böhmer David Steinbrunner Denis Ibaev Ed Adjei Fabrice Gabolde Felipe Gasper Fergal Daly George Hartzell Graham Knop Ivan Bessarabov José JoaquÃn Atria Karen Etheridge Kent Fredric Lance Wicks M...
=over 4
=item *
local/lib/perl5/Test/Deep.pm view on Meta::CPAN
Ed Adjei <edmund@cpan.org>
=item *
Fabrice Gabolde <fabrice.gabolde@gmail.com>
=item *
Felipe Gasper <felipe@felipegasper.com>
view release on metacpan or search on metacpan
share/public/highlight/highlight.min.js view on Meta::CPAN
begin:"\\b("+e.join("|")+")\\b",relevance:0},{className:"selector-pseudo",
begin:":("+s.join("|")+")"},{className:"selector-pseudo",
begin:":(:)?("+l.join("|")+")"},c,{begin:/\(/,end:/\)/,
contains:[a.CSS_NUMBER_MODE]},a.CSS_VARIABLE,{className:"attribute",
begin:"\\b("+o.join("|")+")\\b"},{
begin:"\\b(whitespace|wait|w-resize|visible|vertical-text|vertical-ideographic|uppercase|upper-roman|upper-alpha|underline|transparent|top|thin|thick|text|text-top|text-bottom|tb-rl|table-header-group|table-footer-group|sw-resize|super|strict|static|...
},{begin:/:/,end:/[;}{]/,relevance:0,
contains:[a.BLOCK_COMMENT,c,a.HEXCOLOR,a.CSS_NUMBER_MODE,n.QUOTE_STRING_MODE,n.APOS_STRING_MODE,a.IMPORTANT,a.FUNCTION_DISPATCH]
},{begin:"@(page|font-face)",keywords:{$pattern:d,keyword:"@page @font-face"}},{
begin:"@",end:"[{;]",returnBegin:!0,keywords:{$pattern:/[a-z-]+/,
keyword:"and or not only",attribute:r.join(" ")},contains:[{begin:d,
view release on metacpan or search on metacpan
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
}
$estring = $str;
}
$estring =~ s/\n/<br>/g; # Line breaks are preserved
$estring =~ s/('*)'''(.*?)'''/$1<b>$2<\/b>/gs; # Wiki-style bold/italics
$estring =~ s/''(.*?)''/<i>$1<\/i>/gs;
$estring =~ s/\[b:(.+?)\:b]/<b>$1<\/b>/gs; # [b:text:b] for bold
$estring =~ s/\[i:(.+?)\:i]/<i>$1<\/i>/gs; # [i:text:i] for italic
$estring =~ s/\[quote:(.+?)\:quote]/<blockquote>$1<\/blockquote>/gs; # [quote:text:quote] to indent
$estring =~ s/\{\{amp}}/&/gs; # {{amp}} for ampersand
$estring =~ s/\{\{lt}}/</gs; # {{lt}} for less than
$estring =~ s/\{\{gt}}/>/gs; # {{gt}} for greater than
view release on metacpan or search on metacpan
lib/App/SourcePlot.pm view on Meta::CPAN
Fills a Text box with the list of current sources.
=cut
sub fillWithSourceList {
my (@bold, @normal);
my $Window = shift;
my $T = $Window->{'Text'};
my $selected = $Window->{'Selected'};
my $arrayOfSources = $Window->{'Sources'};
my $task = shift;
lib/App/SourcePlot.pm view on Meta::CPAN
}
}
# Set up display styles
if ($T->depth > 1) {
@bold = ('-background' => '#eeeeee', '-relief' => 'raised', '-borderwidth' => 1);
@normal = ('-background' => undef, '-relief' => 'flat');
}
else {
@bold = ('-foreground' => 'white', '-background' => 'black');
@normal = ('-foreground' => undef, '-background' => undef);
}
$T->tag(configure => 'normal', '-foreground' => 'blue');
$T->tag(configure => 'inactive', '-foreground' => 'black');
$T->tag(configure => 'selected', '-foreground' => 'red');
lib/App/SourcePlot.pm view on Meta::CPAN
for ($itag = 0; $itag < $len; $itag ++) {
my $dtag = "d$itag";
$T->tag(
'bind', $dtag,
'<Any-Enter>' => sub {
shift->tag('configure', $dtag, @bold);
if ($Window->{'Changeable'} && $sources[substr($dtag, 1, 99)]->active()) {
$plotter->configureTag(
'l' . $sources[substr($dtag, 1, 99)]->name(),
-width => 3);
}
lib/App/SourcePlot.pm view on Meta::CPAN
}
my $len2 = @points;
$plotter->drawSmoothLine(@points, 'l' . $source->name())
if ($len2 > 0);
my @bold = (
'-background' => "#bbbbbb",
'-foreground' => 'black',
'-relief' => 'raised',
'-borderwidth' => 1,
);
lib/App/SourcePlot.pm view on Meta::CPAN
$plotter->bindTag(
'l' . $source->name(),
'<Any-Enter>' => sub {
my $s = $source;
if ($s->active()) {
$EditWin->{'Text'}->tag('configure', 'd' . $s->index(), @bold)
if $EDIT_OPEN;
$plotter->configureTag('l' . $s->name(), -width => 3);
}
},
);
view release on metacpan or search on metacpan
lib/App/Spec.pm view on Meta::CPAN
my $appname = $self->name;
my $abstract = $self->abstract // '';
my $title = $self->title;
my ($options, $parameters, $subcmds) = $self->_gather_options_parameters($cmds);
my $header = $colored->(['bold'], "$appname - $title");
my $usage = <<"EOM";
$header
$abstract
EOM
my $body = '';
my $usage_header = $colored->([qw/ bold /], "Usage:");
$usage .= "$usage_header $appname";
$usage .= " @$cmds" if @$cmds;
if (keys %$subcmds) {
my $maxlength = 0;
my @table;
my $usage_string = "<subcommands>";
my $header = "Subcommands:";
if ($highlights{subcommands}) {
$colored->([qw/ bold red /], $usage_string);
$colored->([qw/ bold red /], $header);
}
else {
$colored->([qw/ bold /], $header);
}
$usage .= " $usage_string";
$body .= "$header\n";
my %keys;
lib/App/Spec.pm view on Meta::CPAN
my $highlight = $highlights{parameters}->{ $name };
push @highlights, $highlight ? 1 : 0;
my $summary = $param->summary;
my $param_usage_header = $param->to_usage_header;
if ($highlight) {
$colored->([qw/ bold red /], $param_usage_header);
}
$usage .= " " . $param_usage_header;
my ($req, $multi) = (' ', ' ');
if ($param->required) {
$req = "*";
lib/App/Spec.pm view on Meta::CPAN
push @table, ['', ' ', ' ', $_] for map { s/^ +//; $_ } @lines[1 .. $#lines];
if (length $name > $maxlength) {
$maxlength = length $name;
}
}
my $parameters_string = $colored->([qw/ bold /], "Parameters:");
$body .= "$parameters_string\n";
my @lines = $self->_output_table(\@table, [$maxlength]);
my $lines = $self->_colorize_lines(\@lines, \@highlights, $colored);
$body .= $lines;
}
lib/App/Spec.pm view on Meta::CPAN
my @lines = split m/\n/, $summary;
push @table, [$string, $req, $multi, ($lines[0] // '') . $flags];
push @table, ['', ' ', ' ', $_ ] for map { s/^ +//; $_ } @lines[1 .. $#lines];
}
my $options_string = $colored->([qw/ bold /], "Options:");
$body .= "\n$options_string\n";
my @lines = $self->_output_table(\@table, [$maxlength]);
my $lines = $self->_colorize_lines(\@lines, \@highlights, $colored);
$body .= $lines;
}
lib/App/Spec.pm view on Meta::CPAN
my ($self, $lines, $highlights, $colored) = @_;
my $output = '';
for my $i (0 .. $#$lines) {
my $line = $lines->[ $i ];
if ($highlights->[ $i ]) {
$colored->([qw/ bold red /], $line);
}
$output .= $line;
}
return $output;
}
view release on metacpan or search on metacpan
bin/spoor_installer view on Meta::CPAN
use v5.10;
use Term::ANSIColor;
use App::Spoor::Installer;
print color('bold blue');
print "Welcome to the Spoor installer\n";
print color('reset');
my ($login_log_path, $access_log_path, $error_log_path, $api_identifier, $api_secret);
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
share/res/css/bootstrap-responsive.css view on Meta::CPAN
text-shadow: none;
}
.nav-collapse .nav > li > a,
.nav-collapse .dropdown-menu a {
padding: 9px 15px;
font-weight: bold;
color: #777777;
-webkit-border-radius: 3px;
-moz-border-radius: 3px;
border-radius: 3px;
}
view release on metacpan or search on metacpan
lib/App/Syndicator/Message.pm view on Meta::CPAN
}
}
# should really be in a view.
method render_title {
return ($self->is_read ? '' : '<bold>[NEW] </bold>')
. ($self->star ? '<bold>[*] </bold>' : '')
. $self->title;
}
}
view release on metacpan or search on metacpan
lib/App/Sysadmin/Log/Simple/UDP.pm view on Meta::CPAN
carp "Couldn't get a socket: $!" unless $sock;
if ($self->{udp}->{irc}) {
my %irc = (
normal => "\x0F",
bold => "\x02",
underline => "\x1F",
white => "\x0300",
black => "\x0301",
blue => "\x0302",
green => "\x0303",
lib/App/Sysadmin/Log/Simple/UDP.pm view on Meta::CPAN
lightpurple => "\x0313",
grey => "\x0314",
lightgrey => "\x0315",
);
my $ircline = $irc{bold} . $irc{green} . '(LOG)' . $irc{normal}
. ' ' . $irc{underline} . $irc{lightblue} . $self->{user} . $irc{normal}
. ': ' . $logentry . "\r\n";
print $sock $ircline;
}
else {
view release on metacpan or search on metacpan
bin/tacochan view on Meta::CPAN
background: #3b4653 !important;
}
table td.name {
width: 150px;
font-weight: bold;
}
div.docs {
margin: 2% auto 0 auto;
padding: 20px 0 5%;
view release on metacpan or search on metacpan
lib/App/Tarotplane/UI.pm view on Meta::CPAN
sub draw_card {
my $self = shift;
my $str = shift;
my $bold = shift;
# Make room for the box borders and a single whitespace on each side.
my $linemax = getmaxx($self->{CardWin}) - 4;
$self->{CardStr} = $str if defined $str;
$columns = $linemax;
my $text = wrap('', '', $self->{CardStr});
if (defined $bold) {
attrset($self->{CardWin}, $bold ? A_BOLD : A_NORMAL);
}
erase($self->{CardWin});
box($self->{CardWin}, 0, 0);
lib/App/Tarotplane/UI.pm view on Meta::CPAN
=head2 $ui->update()
Updates screen with any new drawings. Should be called to display the results
of any draw method.
=head2 $ui->draw_card([$str, $bold])
Draws a new card displaying $str, automatically performing any text wrapping
necessary to fit in the card. If $bold is supplied and true, the drawn card
will be bold.
update() needs to be called to push the drawing to the screen.
If $str and/or $bold are not supplied, draw_card()
will use whatever was used on a previous call to draw_card().
=head2 $ui->draw_info([$str])
Draws an info bar at the bottom of the screen containing $str.
view release on metacpan or search on metacpan
A standard input page-file might look like this:
Title: My page title.
Format: textile
----
This is a textile page. It has **bold** text!
When this page is rendered the Textile plugin is created and it is then called
like so:
if ( $plugin->available() )
view release on metacpan or search on metacpan
t/02_basic.t view on Meta::CPAN
{
open my $IN, '<', \"\e[31mfoo\033[1;32mbar\033[0m";
local *STDIN = *$IN;
stdout_like {
App::Term2HTML->run;
} qr|<style>[^<]+</style>\n<pre><span class="red">foo</span><span class="bold green">bar</span></pre>|;
close $IN;
}
{
open my $IN, '<', \"\e[31mfoo\033[1;32mbar\033[0m";
local *STDIN = *$IN;
stdout_is {
App::Term2HTML->run('--inline-style');
} qq|<pre><span style="color: #f33;">foo</span><span style="font-weight: bold; color: #2c2;">bar</span></pre>\n|;
close $IN;
}
done_testing;
view release on metacpan or search on metacpan
script/term-terminfo view on Meta::CPAN
{ type => "str", value => "\e[P", var => "delete_character" },
{ type => "str", value => "\e[M", var => "delete_line" },
{ type => "str", value => "\e(0", var => "enter_alt_charset_mode" },
{ type => "str", value => "\e[?7h", var => "enter_am_mode" },
{ type => "str", value => "\e[5m", var => "enter_blink_mode" },
{ type => "str", value => "\e[1m", var => "enter_bold_mode" },
{ type => "str", value => "\e[?1049h", var => "enter_ca_mode" },
{ type => "str", value => "\e[2m", var => "enter_dim_mode" },
{ type => "str", value => "\e[4h", var => "enter_insert_mode" },
{ type => "str", value => "\e[3m", var => "enter_italics_mode" },
{ type => "str", value => "\e[7m", var => "enter_reverse_mode" },