view release on metacpan or search on metacpan
root/src/menu/home.tt2 view on Meta::CPAN
<div id="about">
<p><b>What is</b>
</p>
<p>
Welcome to JandC.CO.CC. This website is designed to demo how to use
<span style="font-weight: bold;">Catalyst</span> and <span style="font-weight: bold;">
Moose</span> to build a
secured web application with less SQL, HTML, and JavaScript but more
flexibility and efficiency. <br><br>You can start from
<a href="[% Catalyst.uri_for('/menu/howto') %]">
How-To</a>
view release on metacpan or search on metacpan
lib/App/CmdDirs/Traverser/Base.pm view on Meta::CPAN
next if ! -d $dir;
next if ! $self->test($dir);
# Tell the user what command is going to be run
unless ($quiet) {
print color 'bold green';
print "Performing `$command` in <$dir>\n";
print color 'reset';
}
# Descend into the directory & run the command
view release on metacpan or search on metacpan
lib/App/Codit/Plugins/Exporter.pm view on Meta::CPAN
#converting data
my $art = $self->extGet('Art');
my $l = $self->Label(-font => $options{'font'});
my $f = $l->cget('-font');
my $fntnorm = $widg->fontCompose($f, -slant => 'roman', -weight => 'normal');
my $fntbold = $widg->fontCompose($f, -slant => 'roman', -weight => 'bold');
my $fntbolditalic = $widg->fontCompose($f, -slant => 'italic', -weight => 'bold');
my $fntitalic = $widg->fontCompose($f, -slant => 'italic', -weight => 'normal');
my $linespace = $self->fontMetrics($f, '-linespace');
my $desc = $self->fontMetrics($f, '-descent');
lib/App/Codit/Plugins/Exporter.pm view on Meta::CPAN
my %tags = ();
for ($theme->tagList) {
my $tag = $_;
# print "tag: $tag\n";
my %options = ();
my $bold = $theme->getItem($tag, '-weight');
$bold = 0 unless defined $bold;
my $slant = $theme->getItem($tag, '-slant');
$slant = 0 unless defined $slant;
if ($bold and $slant) {
# print " setting font bold/italic\n";
$options{'-font'} = $fntbolditalic
} elsif ($bold) {
# print " setting font bold\n";
$options{'-font'} = $fntbold
} elsif ($slant) {
# print " setting font italic\n";
$options{'-font'} = $fntitalic
} else {
# print " normal font remains\n";
view release on metacpan or search on metacpan
--------------
```
## Text
Text elements may be formatted as well. Here are some examples of bold,
italics, code, links, and blockquotes:
Markdown | Result
----------------------------------------|----------------------------------
This is a normal paragraph. | This is a normal paragraph.
This text is `**bold**.` | This text is **bold**.
This text is also `__bold__.` | This text is also **bold**.
This text is `*italicized*.` | This text is *italicized*.
This text is also `_italicized_.` | This text is also _italicized_.
`` `This is some code.` `` | `This is some code.`
Link to `[Mark Benson Portfolio](http://markbenson.io).` | Link to [Mark Benson Portfolio](http://markbenson.io/).
Link to `[Mark Benson Portfolio][ln1].` | Link to [Mark Benson][ln1].
view release on metacpan or search on metacpan
scripts/dex view on Meta::CPAN
}
my %ansicolors = (
ANCHOR => [qw/ green /],
ALIAS => [qw/ bold green /],
TAG => [qw/ bold blue /],
INDENT => [qw/ white on_grey3 /],
COMMENT => [qw/ grey12 /],
COLON => [qw/ bold magenta /],
DASH => [qw/ bold magenta /],
QUESTION => [qw/ bold magenta /],
YAML_DIRECTIVE => [qw/ cyan /],
TAG_DIRECTIVE => [qw/ bold cyan /],
SINGLEQUOTE => [qw/ bold green /],
SINGLEQUOTED => [qw/ green /],
SINGLEQUOTED_LINE => [qw/ green /],
DOUBLEQUOTE => [qw/ bold green /],
DOUBLEQUOTED => [qw/ green /],
DOUBLEQUOTED_LINE => [qw/ green /],
LITERAL => [qw/ bold yellow /],
FOLDED => [qw/ bold yellow /],
DOC_START => [qw/ bold /],
DOC_END => [qw/ bold /],
BLOCK_SCALAR_CONTENT => [qw/ yellow /],
TAB => [qw/ on_blue /],
ERROR => [qw/ bold red /],
EOL => [qw/ grey12 /],
TRAILING_SPACE => [qw/ on_grey6 /],
FLOWSEQ_START => [qw/ bold magenta /],
FLOWSEQ_END => [qw/ bold magenta /],
FLOWMAP_START => [qw/ bold magenta /],
FLOWMAP_END => [qw/ bold magenta /],
FLOW_COMMA => [qw/ bold magenta /],
PLAINKEY => [qw/ bright_blue /],
);
sub ansicolored {
my ($class, $tokens, %args) = @_;
view release on metacpan or search on metacpan
script/diff-xls-text view on Meta::CPAN
Use like you would use the Unix command B<diff>:
% diff-xls-text [options] <FILE>...
Sample F<old.xlsx> (C<*foo*> marks bolded text):
# sheet 1: en_id
| english | indonesian |
|-----------+----------------|
| boy | anak laki-laki |
view release on metacpan or search on metacpan
lib/App/DocKnot/Spin/Text.pm view on Meta::CPAN
# Turns *some text* into <strong>some text</strong>, while trying to be
# careful to avoid other uses of wildcards.
#
# $string - Text to format
#
# Returns: Text with bold replaced with HTML markup.
sub _format_bold {
my ($text) = @_;
$text =~ s{
(^|\s) [*] ( \w .*? \S ) [*] ([,.!?;\s])
}{$1<strong>$2</strong>$3}xmsg;
return $text;
lib/App/DocKnot/Spin/Text.pm view on Meta::CPAN
for (@lines) {
next unless /\S/;
if (_is_bullet $_) {
if (defined $last) {
$self->_output(start($INDENT, 'ul'));
$self->_output(li($INDENT, _format_bold($last)));
}
$last = _remove_bullet($_);
$INDENT = indent $last;
} else {
$last .= "\n$_";
}
}
if (defined $last) {
$self->_output(start($INDENT, 'ul'));
$self->_output(li($INDENT, _format_bold($last)));
}
next;
}
# Check for paragraphs that are entirely numbered lines, and turn them
lib/App/DocKnot/Spin/Text.pm view on Meta::CPAN
next unless /\S/;
my ($number) = /^(\d+)/;
$_ = _remove_number($_);
$INDENT = indent $_;
$self->_output(start($INDENT, 'ol'));
$self->_output(li($INDENT, _format_bold($_), $number));
}
next;
}
# Check for bulletted paragraphs and turn them into lists.
if (_is_bullet $_) {
$_ = _remove_bullet($_);
$INDENT = indent $_;
$self->_output(start($INDENT, 'ul'));
$self->_output(li($INDENT, p(_format_bold($_))));
next;
}
# Check for paragraphs quoted with some character and turn them into
# blockquotes provided they don't have inconsistent indentation.
my $quote = _is_quoted ($_);
if ($quote && !$broken) {
$_ = _remove_prefix($_, $quote);
$INDENT = indent $_;
$self->_output(start($INDENT, 'blockquote', p(_format_bold($_))));
next;
}
# Check for numbered paragraphs and turn them into lists.
my $number = _is_numbered ($_);
lib/App/DocKnot/Spin/Text.pm view on Meta::CPAN
my $contents = _is_contents ($_);
$_ = _remove_number($_);
$INDENT = indent $_;
s%(\n\s*\S)%<br />$1%g if ($broken || $contents);
$self->_output(start($INDENT, 'ol'));
$self->_output(li($INDENT, p(_format_bold($_)), $number));
next;
}
# Check for things that look like description lists and handle them.
# Note that we don't allow indented description lists, because they're
lib/App/DocKnot/Spin/Text.pm view on Meta::CPAN
my $title;
($title, $body) = split ("\n", $body, 2);
push (@title, $title);
}
if ($indent == $INDENT || indent ($body) == $INDENT) {
@title = map { _format_bold($_) } @title;
my $title = join ("<br />\n", @title) . "\n";
$INDENT = indent $body;
$body =~ s%(\n\s*\S)%<br />$1%g if _is_broken $body;
$self->_output(start($indent, 'dl', dt($title)));
$self->_output(start($INDENT, 'dd', p(_format_bold($body))));
next;
}
}
# If the paragraph has inconsistent indentation, we should output it
lib/App/DocKnot/Spin/Text.pm view on Meta::CPAN
if ($broken || (lines ($_) == 1 && !_is_sentence $_)) {
$self->_output(pre(strip_indent($_, $INDENT)));
$self->{pre} = 1;
} else {
$INDENT = $indent;
my $paragraph = p(_format_bold($_));
$self->_output(start($INDENT, 'blockquote', $paragraph));
}
next;
}
lib/App/DocKnot/Spin/Text.pm view on Meta::CPAN
if (!defined $self->{baseline} && !$INDENT) {
$self->{baseline} = $indent;
}
$INDENT = $indent;
s%(\n\s*\S)%<br />$1%g if $broken;
$self->_output(p(_format_bold($_)));
} continue {
$self->{whitespace} = $space;
}
lib/App/DocKnot/Spin/Text.pm view on Meta::CPAN
header) and the last modified time and revision (from the RCS C<Id> string) if
there are no subheadings already. If there's a subheading that contains RCS
identifiers, it will be replaced by a nicely formatted heading generated from
the RCS C<Id> information in the HTML output.
Text marked as C<*bold*> using the standard asterisk notation will be
surrounded by C<< <strong> >> tags, if the asterisks appear to be marking bold
text rather than serving as wildcards or some other function.
App::DocKnot::Spin::Text produces output (at least in the absence of any
lurking bugs) which complies with the XHTML 1.0 Transitional standard. The
input and output character set is assumed to be UTF-8.
view release on metacpan or search on metacpan
share/js/dochazka-www/svg-lib.js view on Meta::CPAN
// scheduled intervals in obj; how is a boolean value "holiday or
// weekend"
var r = '',
fill, i, intvl, begin, bo, end, eo, color;
if (how) {
fill = 'font-weight="bold" fill="transparent"';
} else {
fill = 'fill="black"';
}
r += '<svg width="' + absWidth + '" height="30" ' + svgBoilerPlate + '>';
// draw base rectangle
view release on metacpan or search on metacpan
bin/dual-lived view on Meta::CPAN
my (@matches) = grep( ( $_ eq $d ), @mods );
if (@matches) {
for $d ( CPAN::Shell->expand( "Module", "$d" ) ) {
$print->bold_black( "\n\tmodule: ", $d->id ),
$print->dark_blue( "\tauthor: ", $d->cpan_userid ),
$print->dark_blue( "\tcurrent version: ", $d->cpan_version ),
$print->dark_red( "\tinstalled version: ", $d->inst_version ),
$print->dark_red( "\t", $d->inst_file );
}
$print->dark_magenta("\t@matches is core and is Dual-Lived");
}
else {
for $d ( CPAN::Shell->expand( "Module", $d ) ) {
$print->bold_black( "\n\tmodule: ", $d->id ),
$print->dark_blue( "\tauthor: ", $d->cpan_userid ),
$print->dark_blue( "\tcurrent version is: ", $d->cpan_version ),
$print->dark_red( "\tinstalled version: ", $d->inst_version ),
$print->dark_red( "\t", $d->inst_file ),
;
bin/dual-lived view on Meta::CPAN
sub list {
print "module: ", "\n";
foreach my $mod (@mods) {
for $mod ( CPAN::Shell->expand( "Module", $mod ) ) {
$print->bold_black( $mod->id );
}
}
}
sub update {
view release on metacpan or search on metacpan
lib/App/DuckPAN.pm view on Meta::CPAN
}
sub emit_error {
my ($self, @msg) = @_;
state $prefix = $self->_output_prefix('ERROR', 'red bold');
$self->_print_msg(*STDERR, $prefix, @msg);
}
sub emit_and_exit {
my ($self, $exit_code, @msg) = @_;
state $prefix = $self->_output_prefix('FATAL', 'bright_red bold');
if ($exit_code == 0) { # This is just an info message.
$self->emit_info(@msg);
}
else { # But if it's an unhappy exit
lib/App/DuckPAN.pm view on Meta::CPAN
}
sub emit_notice {
my ($self, @msg) = @_;
state $prefix = $self->_output_prefix('NOTICE', 'yellow bold');
$self->_print_msg(*STDOUT, $prefix, @msg);
}
sub _print_msg {
view release on metacpan or search on metacpan
lib/App/DeDuppy.pm view on Meta::CPAN
Emmanuel "BHS_error" Peroumalnaik
=item *
Fabrice "pokki" Gabolde
=back
=head1 COPYRIGHT AND LICENSE
view release on metacpan or search on metacpan
share/circos.conf.tt2 view on Meta::CPAN
fill_color = black
# fractional radius position of chromosome ideogram within image
radius = 0.85r
show_label = no
label_font = condensedbold
label_radius = dims(ideogram,radius) + 0.05r
label_size = 36
label_parallel = yes
view release on metacpan or search on metacpan
share/status/app/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/FQStat/Colors.pm view on Meta::CPAN
our $DefaultColors = {
initializing => 'black on green',
reverse_indicator => 'blue on white',
header_highlight => 'bold white on red',
header_warning => 'bold red on black',
header_normal => 'bold white on black',
status_running => 'black on green',
status_error => 'black on red',
status_hold => 'black on yellow',
status_queued => 'blue on white',
status_fallback => 'black on yellow',
scrollbar_fg => 'black on white',
scrollbar_bg => 'white on black',
user_highlight => 'bold white on blue',
menu_normal => 'bold white on blue',
menu_selected => 'bold white on red',
user_input => "bold red on black",
user_instructions => "bold red on white",
selected_job => "blue on white",
selected_cursor => "black on red",
summary => "bold white on blue",
warning => "red",
};
our $DefaultColorSchemes = {
default => {%$DefaultColors},
contrast => {
header_highlight => 'bold white on red',
header_normal => 'bold white on black',
header_warning => 'bold red on black',
initializing => 'black on green',
menu_normal => 'black on cyan',
menu_selected => 'bold white on red',
reverse_indicator => 'blue on white',
scrollbar_bg => 'red on black',
scrollbar_fg => 'black on red',
selected_cursor => 'black on red',
selected_job => 'black on cyan',
status_error => 'black on red',
status_fallback => 'black on yellow',
status_hold => 'black on yellow',
status_queued => 'bold white on blue',
status_running => 'black on green',
summary => 'bold red on blue',
user_highlight => 'bold red on blue',
user_input => 'bold red on black',
user_instructions => 'bold white on red',
warning => 'red',
},
};
sub get_color {
view release on metacpan or search on metacpan
lib/App/FargateStack/Constants.pm view on Meta::CPAN
log4perl.appender.Screen.layout.ConversionPattern = [%d] %m%n
log4perl.appender.Screen.color.DEBUG=magenta
log4perl.appender.Screen.color.INFO=green
log4perl.appender.Screen.color.WARN=yellow
log4perl.appender.Screen.color.ERROR=red
log4perl.appender.Screen.color.FATAL=bold red
log4perl.appender.Screen.color.TRACE=bold white
END_OF_CONF
our @EXPORT = (
######################################################################
# chars
view release on metacpan or search on metacpan
lib/App/Fasops/Command/xlsx.pm view on Meta::CPAN
for my $bg ( keys %{$bg_of} ) {
$format_of->{indel}->{$bg} = $workbook->add_format(
font => 'Courier New',
size => 10,
bold => 1,
align => 'center',
valign => 'vcenter',
%{ $bg_of->{$bg} },
);
}
view release on metacpan or search on metacpan
lib/App/File/Grepper.pm view on Meta::CPAN
? $ignorecase ? qr/$1/i : qr/$1/
: $ignorecase ? qr/\Q$pat\E/i : qr/\Q$pat\E/;
warn("PAT: $pat\n") if $opts->{debug};
*hilite = ( !$edit && -t STDOUT )
? sub { color('red bold').$_[0].color('reset') }
: sub { $_[0] };
my $filter;
if ( defined $opts->{filter} ) {
$filter = $opts->{filter};
view release on metacpan or search on metacpan
share/clean.pl view on Meta::CPAN
pattern will be copied as many times as were matched in the correpsonding set
of parentheses in the match pattern.
The format is probably best explained by example:
# Replace strong tags by bold
<strong>*</strong> -> <b>*</b>
# Replace center tags
<center>*</center> -> <div class="centered">*</div>
# Remove font tags
<font>*</font> -> *
view release on metacpan or search on metacpan
bin/git-ribbon view on Meta::CPAN
sub save { print `git tag --force _ribbon origin/master` }
sub ribbon {
my $option = shift;
my @logs = `git log --pretty=format:'git difftool -r %p -r %h --no-prompt %n%C(bold white)%an %cr %h%n%s%Creset' --stat --no-merges --reverse --topo-order _ribbon..origin/master`;
my $i = 0;
while ($i < $#logs) {
my $cmd = $logs[$i];
$i++;
view release on metacpan or search on metacpan
lib/App/GitGot/Outputter/dark.pm view on Meta::CPAN
use namespace::autoclean;
has color_error => (
is => 'ro' ,
isa => Str ,
default => 'bold white on_red'
);
has color_major_change => (
is => 'ro' ,
isa => Str ,
default => 'bold black on_green'
);
has color_minor_change => (
is => 'ro' ,
isa => Str ,
lib/App/GitGot/Outputter/dark.pm view on Meta::CPAN
);
has color_warning => (
is => 'ro' ,
isa => Str ,
default => 'bold black on_yellow'
);
1;
view release on metacpan or search on metacpan
lib/App/GitGrepPerlStatement.pm view on Meta::CPAN
my @found = $finder->search($file);
for (@found) {
if (-t STDOUT) {
say colored(
['bold'],
"@{[ $file ]}:@{[ $_->line_number ]}"
);
say $finder->highlight($_);
} else {
say "@{[ $file ]}:@{[ $_->line_number ]}";
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/wordle/word_all.pm view on Meta::CPAN
bokeh
bokes
bokos
bolar
bolas
bolds
boles
bolix
bolls
bolos
bolts
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",