bold results from the CPAN

App-TimeClock

view release on metacpan or search on metacpan

lib/App/TimeClock/Daily/HtmlPrinter.pm view on Meta::CPAN

table { border-collapse: collapse; width: 80ex; }
th, td { margin:0; border:1px solid #000;padding:0.2em; }
caption { margin-top: 1em; }
tr, caption { text-align:left; }
.totals { border: 2px solid #000; background: #9cf; width: 40ex; padding: 0.5em;}
.totals, caption { font-size: 110%; font-weight: bold; }
th { background: #58b; color: #fff; }
tr:nth-child(even) td { background: #dfe; }
tr:nth-child(odd) td { background: #def; }
th.N, td.N { width: 10%; text-align: right; }
</style></head><body><h1>$title</h1>

view all matches for this distribution

App-TimeTracker

1 match

view release on metacpan or search on metacpan

lib/App/TimeTracker/Utils.pm view on Meta::CPAN

our @EXPORT      = qw();
our @EXPORT_OK   = qw(pretty_date now error_message warning_message);
our %EXPORT_TAGS = ( all => \@EXPORT_OK );

sub error_message {
    _message( 'bold red', @_ );
}

sub warning_message {
    _message( 'bold yellow', @_ );
}

sub _message {
    my ( $color, $message, @params ) = @_;

view all matches for this distribution

App-Todo

1 match

view release on metacpan or search on metacpan

bin/todo.pl view on Meta::CPAN

    return $primap{$pri} || $pri;
}

sub priority_to_color {
    my $pri = priority_from_string(shift);
    my @colormap = ('blue', 'blue', 'green', 'red', 'red bold');
    return $colormap[$pri - 1];
}

=head2 args_to_task

view all matches for this distribution

App-WIoZ

5 results

view release on metacpan or search on metacpan

ex/wioz.pl view on Meta::CPAN

&usage if !$File ;

my $wioz = App::WIoZ->new( 
   font_min => 18, font_max => 64,
   filename => "testoutput",
   #set_font => 'DejaVuSans,normal,bold',
   basecolor => '226666'); # violet
   #basecolor => '084A93'); # bleu
   #basecolor => '29872F'); # vert

if (-f $File) {

view all matches for this distribution

App-Web-VPKBuilder

1 match

view release on metacpan or search on metacpan

static/index.css view on Meta::CPAN

.level1 > span.name {
	font-size: 150%;
}

.level2 > span.name {
	font-weight: bold;
	display: block;
}

.level2 {
	display: inline-block;

view all matches for this distribution

App-Widget-ChartDirector

1 match

view release on metacpan or search on metacpan

lib/App/Widget/ChartDirector.pm view on Meta::CPAN


sub sym {
    &App::sub_entry if ($App::trace);
    my ($self, $series, $symbols) = @_;
    my $idx = $series % ($#$symbols + 1);
    my $symboldef = $symbols->[$idx];
    &App::sub_exit($symboldef->{symbol}, $symboldef->{size}) if ($App::trace);
    return($symboldef->{symbol}, $symboldef->{size});
}

##Add a legend box at (400, 100)
#$c->addLegend(400, 100);
##Add a stacked bar layer and set the layer 3D depth to 8 pixels

view all matches for this distribution

App-Wx-PodEditor

2 results

view release on metacpan or search on metacpan

lib/App/Wx/PodEditor/Actions/Format.pm view on Meta::CPAN


sub format_Bold {
    my ($self,$event) = @_;
    
    my $edit = $self->_editor;
    $edit->bold;
}

sub format_Italic {
    my ($self,$event) = @_;

view all matches for this distribution

App-XUL

1 match

view release on metacpan or search on metacpan

lib/App/XUL.pm view on Meta::CPAN

=begin html

<pre>
  MyApp.app/
    Contents/
      <span style="color:blue;font-weight:bold">Info.plist</span>
      Frameworks/
        XUL.framework/
          <i>The XUL Mac framework</i>
      MacOS
        <span style="color:blue;font-weight:bold">start.pl</span> (Perl-Script)
      Resources
        <span style="color:blue;font-weight:bold">application.ini</span>
        <span style="color:blue;font-weight:bold">MyApp.icns</span>
        chrome/
          <span style="color:blue;font-weight:bold">chrome.manifest</span>
          content/
            <span style="color:blue;font-weight:bold">AppXUL.js</span>
            <span style="color:blue;font-weight:bold">myapp.xul</span>
        defaults/
          preferences/
            <span style="color:blue;font-weight:bold">prefs.js</span>
        perl/
          server/
            <span style="color:blue;font-weight:bold">server.pl</span>
          modules/
            <i>All Perl modules the server depends on</i>
        extensions/
        updates/
          0/

view all matches for this distribution

App-ZFSCurses

2 results

view release on metacpan or search on metacpan

lib/App/ZFSCurses/UI/Datasets.pm view on Meta::CPAN


    my $header = $main->add(
        'header', 'Label',
        -text          => $text->title_datasets(),
        -textalignment => 'left',
        -bold          => 1,
        -fg            => 'white',
        -bg            => 'blue',
        -y             => 0,
        -width         => -1,
        -paddingspaces => 1,

lib/App/ZFSCurses/UI/Datasets.pm view on Meta::CPAN


    $footer = $main->add(
        'footer', 'Label',
        -text          => $text->footer(),
        -textalignment => 'left',
        -bold          => 1,
        -bg            => 'black',
        -fg            => 'white',
        -y             => -1,
        -width         => -1,
        -paddingspaces => 1,

view all matches for this distribution

App-ZofCMS

5 results

view release on metacpan or search on metacpan

lib/App/ZofCMS.pm view on Meta::CPAN


=head1 AUTHOR

=for html  <div style="display: table; height: 91px; background: url(http://zoffix.com/CPAN/Dist-Zilla-Plugin-Pod-Spiffy/icons/section-author.png) no-repeat left; padding-left: 120px;" ><div style="display: table-cell; vertical-align: middle;">

=for html   <span style="display: inline-block; text-align: center;"> <a href="http://metacpan.org/author/ZOFFIX"> <img src="http://www.gravatar.com/avatar/328e658ab6b08dfb5c106266a4a5d065?d=http%3A%2F%2Fwww.gravatar.com%2Favatar%2F627d83ef9879f31bda...

=for html  </div></div>

=head1 LICENSE

view all matches for this distribution

App-ansiecho

2 results

view release on metacpan or search on metacpan

README.md view on Meta::CPAN

        ansiecho Follow the -CYS -F ' %s ' Yellow Brick Road

    Option **-C** and **-F** can be used repeatedly, and they will take
    effect in the reverse order of their appearance.

    Next command show argument `A` in underline/bold with blinking red
    arrow.

        ansiecho -cRF -f'->%s' -cUD A B C

    Next one does the same thing for all arguments.

README.md view on Meta::CPAN


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 all matches for this distribution

App-ccdiff

4 results

view release on metacpan or search on metacpan

lib/App/ccdiff.pm view on Meta::CPAN

    exit 0;
    } # pod_nroff

# Color initialization
for ($old_color, $new_color, $rev_color) {
    s/^(.*)[ _]bold$/bold $1/i;
    s/^bold_/bold /i;
    }
my %clr = map { $_ => color (s{^(.*)[ _]bold$}{bold $1}ir =~
                             s{^bold[ _]}{bold }ir) }
	  map {( $_, "on_$_", "bold $_" )}
    qw( red green blue black white cyan magenta yellow );
$clr{$_} //= color ($_) for tac_colors ();
$no_colors and $clr{$_} = "" for keys %clr;
$clr{none} = $clr{on_none} = "";

lib/App/ccdiff.pm view on Meta::CPAN

    $clr_grn = $clr{$new_color};
    $clr_rev = $clr{$rev_color};
    $clr_dbg = $opt_r && exists $clr{"on_$rc{verbose}"} ? $clr{"on_$rc{verbose}"} : $clr{$rc{verbose}};
    $reset   = $no_colors ? "" : RESET;

    $bg_old = $clr{$rc{bg_old} || ($opt_r ? "on_$old_color" =~ s/bold //ir :
					       "on_$rev_color" =~ s/bold //ir)};
    $bg_new = $clr{$rc{bg_new} || ($opt_r ? "on_$new_color" =~ s/bold //ir :
					       "on_$rev_color" =~ s/bold //ir)};
    $clr_old = $opt_r ? $clr_rev . $bg_old : $clr_red . $bg_old;
    $clr_new = $opt_r ? $clr_rev . $bg_new : $clr_grn . $bg_new;
    $opt_s and ($clr_new, $clr_old) = ($clr_old, $clr_new);
    # Indicators
    if ($opt_a) {

lib/App/ccdiff.pm view on Meta::CPAN


=item --reverse -r

Reverse/invert the foreground and background for the colored indicators.

If the foreground color has C<bold>, it will be stripped from the new background
color.

=item --swap -s

Swap the colors for new and old.

lib/App/ccdiff.pm view on Meta::CPAN

Defines the color to be used for added text. The default is C<green>.

The color C<none> is also accepted and disables this color.

Any color accepted by L<Term::ANSIColor> is allowed. Any other color will
result in a warning. This option can include C<bold> either as prefix or
as suffix.

This option may also be specified as

 new-color

lib/App/ccdiff.pm view on Meta::CPAN

Defines the color to be used for deleted text. The default is C<red>.

The color C<none> is also accepted and disables this color.

Any color accepted by L<Term::ANSIColor> is allowed. Any other color will
result in a warning. This option can include C<bold> either as prefix or
as suffix.

This option may also be specified as

 old-color

lib/App/ccdiff.pm view on Meta::CPAN

C<white>.

The color C<none> is also accepted and disables this color.

Any color accepted by L<Term::ANSIColor> is allowed. Any other color will
result in a warning. The C<bold> attribute is not allowed.

This option may also be specified as

 bg-color
 bg_color

view all matches for this distribution

App-chalk

2 results

view release on metacpan or search on metacpan

devscripts/bench view on Meta::CPAN

    undef,
    {
        'perl (--help)' => [$^X, "$Bin/../bin/chalk", "--help"],
        'node (--help)' => [$node_chalk, "--help"],

        'perl (red bold str)' => [$^X, "$Bin/../bin/chalk", "red","bold","str"],
        'node (red bold str)' => [$node_chalk, "red", "bold", "str"],

        'perl (100_000 lines)' => sub {
            open my($fh), "| $^X $Bin/../bin/chalk red bold" or die $!;
            for (1..100_000) {
                print $fh "foo\n";
            }
            close $fh or die $!;
        },

        'node (100_000 lines)' => sub {
            open my($fh), "| $node_chalk red bold" or die $!;
            for (1..100_000) {
                print $fh "foo\n";
            }
            close $fh or die $!;
        },

view all matches for this distribution

App-cloc

1 match

view release on metacpan or search on metacpan

bin/cloc view on Meta::CPAN

    }
}

my $NN     = chr(27) . "[0m";  # normal
   $NN     = "" if $ON_WINDOWS or !(-t STDERR); # -t STDERR:  is it a terminal?
my $BB     = chr(27) . "[1m";  # bold
   $BB     = "" if $ON_WINDOWS or !(-t STDERR);
my $script = basename $0;
my $brief_usage  = "
                       cloc -- Count Lines of Code

bin/cloc view on Meta::CPAN

    my $n_modified  = 0;
    my $n_added     = 0;
    my $n_deleted   = 0;
    my @min_sdiff   = ();
my $NN = chr(27) . "[0m";  # normal
my $BB = chr(27) . "[1m";  # bold

    my @sdiffs = sdiff( \@lines_1, \@lines_2 );
    foreach my $entry (@sdiffs) {
        my ($out_1, $out_2) = ('', '');
        if ($entry->[0] eq 'u') {

view all matches for this distribution

App-colorxform

3 results

view release on metacpan or search on metacpan

lib/App/colorxform.pm view on Meta::CPAN

    elsif ($name eq 'yellow'      ) { return 33 }
    elsif ($name eq 'blue'        ) { return 34 }
    elsif ($name eq 'magenta'     ) { return 35 }
    elsif ($name eq 'cyan'        ) { return 36 }
    elsif ($name eq 'white' || $name eq 'grey' || $name eq 'gray') { return 37 }
    elsif ($name =~ /\A(bold|bright) black\z/   ) { return 90 }
    elsif ($name =~ /\A(bold|bright) red\z/     ) { return 91 }
    elsif ($name =~ /\A(bold|bright) green\z/   ) { return 92 }
    elsif ($name =~ /\A(bold|bright) yellow\z/  ) { return 93 }
    elsif ($name =~ /\A(bold|bright) blue\z/    ) { return 94 }
    elsif ($name =~ /\A(bold|bright) magenta\z/ ) { return 95 }
    elsif ($name =~ /\A(bold|bright) cyan\z/    ) { return 96 }
    elsif ($name =~ /\A(bold|bright) white\z/   ) { return 97 }
    undef;
}

sub _color_name_to_bg_code {
    my $code = _color_name_to_fg_code(@_);

lib/App/colorxform.pm view on Meta::CPAN

replace some colors with another, per your specification.

An example, put this in your `~/.config/colorxform.conf`:

    [profile=ledger]
    fg_transforms = {"blue":"#18b2b2", "red":"bold red"}

then:

    % ledger -f myledger.dat --color --force-color balance | colorxform -P ledger

lib/App/colorxform.pm view on Meta::CPAN

            default => {},
            description => <<'_',

List of foreground colors to replace with other colors. You can specify color
code using RGB code (e.g. `#123456`) or color names like those recognized by
<pm:Term::ANSIColor> (e.g. `blue` or `bold blue`).

_
        },
        bg_transforms => {
            schema => 'hash*',
            default => {},
            description => <<'_',

List of background colors to replace with other colors. You can specify color
using RGB code (e.g. `#123456`) or color names like those recognized by
<pm:Term::ANSIColor> (e.g. `blue` or `bold blue`).

_
        },
    },
};

lib/App/colorxform.pm view on Meta::CPAN

replace some colors with another, per your specification.

An example, put this in your C<~/.config/colorxform.conf>:

 [profile=ledger]
 fg_transforms = {"blue":"#18b2b2", "red":"bold red"}

then:

 % ledger -f myledger.dat --color --force-color balance | colorxform -P ledger

lib/App/colorxform.pm view on Meta::CPAN


=item * B<bg_transforms> => I<hash> (default: {})

List of background colors to replace with other colors. You can specify color
using RGB code (e.g. C<#123456>) or color names like those recognized by
L<Term::ANSIColor> (e.g. C<blue> or C<bold blue>).

=item * B<fg_transforms> => I<hash> (default: {})

List of foreground colors to replace with other colors. You can specify color
code using RGB code (e.g. C<#123456>) or color names like those recognized by
L<Term::ANSIColor> (e.g. C<blue> or C<bold blue>).

=back

Returns an enveloped result (an array).

view all matches for this distribution

App-colourhexdump

1 match

view release on metacpan or search on metacpan

lib/App/colourhexdump/DefaultColourProfile.pm view on Meta::CPAN

=head1 SYNOPSIS

This is the default colour profile.

    \r           => black on red               '_'
    \n           => bold bright blue           '_'
    " "          => blue                       '_'
    \t           => bold bright blue on yellow '_'
    alphanumeric => white                      $char
    nonprintable => red                        '.'
    everything else => yellow                  $char

Invocation:

view all matches for this distribution

App-cpanbaker

1 match

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 all matches for this distribution

App-cpanmw

1 match

view release on metacpan or search on metacpan

script/cpanmw view on Meta::CPAN

        goto &{ $org_m->{_diag} }
            unless $caller =~ s/^App::cpanminus::script:://;
### $caller
        my @arg = @_;
        if ( $caller eq 'diag_ok' ) {
            $arg[1] = colored( $arg[1], 'bold green' );
        }
        elsif ( $caller eq 'diag_fail' ) {
            $arg[1] = colored( $arg[1], 'bold red' );
        }
        elsif ( $caller eq 'diag_progress' ) {
            $arg[1]
                =~ s/^(Fetching|Configuring|Building(?: and testing)?)/colored($1,'cyan')/e;
        }
        elsif ( $arg[1] =~ /^-->/ ) {
            $arg[1]
                =~ s/(?<=--> Working on )(\S+)/colored( $1, 'bold yellow' )/e;
        }
        elsif ( $arg[1] =~ /^==>/ ) {
            $arg[1] =~ s/(Found dependencies)/colored($1,'bold magenta')/e;
        }
        elsif ( $arg[1] =~ s/^(Successfully \S+)(\s+\S+)/colored($1,'bold green') . colored($2, 'bold yellow')/e )
        {
        }
        elsif ( $_[0]->{verbose} ) {
            $arg[1] = colored( $arg[1], 'cyan' );
        }

view all matches for this distribution

App-denomfind

1 match

view release on metacpan or search on metacpan

bin/denomfind view on Meta::CPAN

& main () ; 
END{
  exit unless $count ; # 1å€‹ã‚‚åˆ†æ¯ã‚’æŽ¢ç´¢ã—ã¦ã„ãªã„ãªã‚‰ã€ã™ãçµ‚äº†ã€‚
  exit if 0 eq ($o{2}//'') ;
  my $sum = 0 ; $sum = "$sum" + "$_" for @nums ; 
  my $bf = color 'bold faint white' ;
  print STDERR $bf . scalar @nums . " ratios are given (sum=" . color('reset bold yellow').($sum) . $bf .")." if @nums > 1 ; 
  my $ud = [ 'down to','from','up to' ] -> [ ( $o{g} <=> 0 ) + 1 ] ; # 'from' ã¯ã‹ãªã‚Šç„¡ç†çŸ¢ç†ã§ã‚ã‚‹ã€‚æ£å¸¸ãªä½¿ç”¨ã®æƒ³å®šå¤–ã€‚
  $denom += $o{g} > 0 ? -1 : $o{g} < 0 ? 1 : 0 ; # 1å€‹æˆ»ã™ã€‚
  say STDERR BOLD FAINT " $count denominators have found $ud $denom. ($Script)" ; 
}
exit 0 ;

view all matches for this distribution

App-devmode

1 match

view release on metacpan or search on metacpan

bin/devmode view on Meta::CPAN

termcap  vt100* ms:AL=\E[%dL:DL=\E[%dM:UP=\E[%dA:DO=\E[%dB:LE=\E[%dD:RI=\E[%dC
terminfo vt100* ms:AL=\E[%p1%dL:DL=\E[%p1%dM:UP=\E[%p1%dA:DO=\E[%p1%dB:LE=\E[%p1%dD:RI=\E[%p1%dC

# 256 colour stuff
# terminfo and termcap for nice 256 color terminal
# allow bold colors - necessary for some reason
attrcolor b ".I"
# tell screen how to set colors. AB = background, AF=foreground
termcapinfo xterm 'Co#256:AB=\E[48;5;%dm:AF=\E[38;5;%dm'
# erase background with current bg color
#defbce "on"

view all matches for this distribution

App-diceware

1 match

view release on metacpan or search on metacpan

share/wordlist_de.tsv view on Meta::CPAN

35435	knurrt
35436	knut
35441	knute
35442	ko
35443	kobalt
35444	kobold
35445	koch
35446	kochen
35451	kocher
35452	kocht
35453	kochte

view all matches for this distribution

App-eachperl

1 match

view release on metacpan or search on metacpan

lib/App/eachperl.pm view on Meta::CPAN

            ? String::Tagged->new_tagged( "-OK-", fg => $COL{grey} )
            : String::Tagged->new_tagged( "FAIL", fg => $COL{red} ) ),

         String::Tagged->new
            ->append( "Running " )
            ->append_tagged( $perl, bold => 1 ),

         ( $idx < @perls
            ? String::Tagged->new_tagged( sprintf( "(%d more)", @perls - $idx ), fg => $COL{grey} )
            : () ),
      );

view all matches for this distribution

App-es

1 match

view release on metacpan or search on metacpan

bin/es view on Meta::CPAN

        @{ $result->{hits}{hits} };

    for my $o ( @output ) {
        for my $line ( @{ $o->{lines} } ) {
            $line =~ s/\n/ /g;
            $line =~ s/__STARTCOLOR__/color 'bold red'/eg;
            $line =~ s/__ENDCOLOR__/color 'reset'/eg;
            printf "%s: %s\n", colored ($o->{id}, 'cyan'), $line;
        }
    }
}

view all matches for this distribution

App-expskip

1 match

view release on metacpan or search on metacpan

expskip view on Meta::CPAN

    $cmd = "seq 20 | $0 -p0"       when 'p0' ; # -T p0 ã§ "expskip -p0" ã‚’ã‚·ãƒŸãƒ¥ãƒ¬ãƒ¼ãƒˆ
    $cmd = "$0 <(seq 4) <(seq 10)" when 'm2' ; # -T m2 ã§ã€è¤‡æ•°ã®ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ä¸Žãˆã‚‹ã€‚
    $cmd = "seq 1e6 | $0"          when '1m' ; # -T 1m ã§ "expskip" ã« 100ä¸‡ã¾ã§ã®æ•°ã‚’ä¸Žãˆã‚‹ã€‚
    $cmd = "seq 1e5 | $0 -e0"      when 'e0' ; # -T e0
    $cmd = "seq 1e5 | $0 -f5"      when 'f5' ; # -T f5
    $cmd = "seq 100 | tr 0-9 A-H | $0 -: 'yellow green bold italic'" ; # -T ac ã§ã€æ•°å—ä»¥å¤–ã¨è¡Œç•ªå·ã®è‰²ã¥ã‘ã‚’åŒæ™‚ã«ãƒ†ã‚¹ãƒˆã€‚
    $cmd = "seq 1e7 | $0"          when 'E7' ; # -T E7 ã§ 1000ä¸‡ã¾ã§ã®æ•°ã‚’ä¸Žãˆã‚‹ã€‚ãªãŠã€seq 1e7ãŒ1e7+1ã®æ•°ã‚’ä¸Žãˆã‚‹ã€‚
  } for $arg ; 
  $cmd = join " " , $cmd , @ARGV [ $A0 .. $#ARGV ] ;  # <-- @ARGV ã«'ã‚„"ãŒã‚ã‚‹ã¨æ€ã£ãŸã‚ˆã†ã«å‹•ä½œã—ãªã„ã§ã‚ã‚ã†ã€‚
  say STDERR YELLOW BOLD ">  $cmd" ;
  system $cmd ;

expskip view on Meta::CPAN

   -p 9 : ã‚ãƒªã®è‰¯ã„æ•°ã‚’ ä¸Š1æ¡ä»¥å¤–ãŒå…¨ã¦0ã®æ•°ã¨è¦‹ãªã™(ã€Œ1,2,3,4,5,6,7,8,9ã€ã®1å€,10å€,100å€..)ã€‚
   -p 0 : ä¸Šè¨˜ã®å‹•ä½œã‚’ã—ãªã„ã€‚æ¬¡ã® -e ã§æŒ‡å®šã•ã‚Œã‚‹éƒ¨åˆ†ã®ã¿ã‚’å‡ºåŠ›ã€‚
   -e num : å…¥åŠ›å…¨ä½“ã®æœ€åˆã¨æœ€å¾Œã‚‚ num è¡Œå‡ºåŠ›ã™ã‚‹ã‚ˆã†ã«ã™ã‚‹ã€‚æœªæŒ‡å®šã§ã‚ã‚Œã° num = 2ã€‚0ã‚‚æŒ‡å®šå¯èƒ½ã€‚ (edge)
   -f num : é–‹å§‹è¡Œã®æŒ‡å®š (from)

   -: [0|colorname] : è¡Œç•ªå·ã®ã¿è‰²ã‚’ç€è‰²ã™ã‚‹æŒ‡å®šã€‚blue ã‚„ "bold yellow"ãªã©ã‚’æŒ‡å®šå¯èƒ½ã€‚0 ã‚’æŒ‡å®šã™ã‚‹ã¨è¡Œç•ªå·ã‚’å‡ºåŠ›ã—ãªã„ã€‚
   -B num ãã‚Šã®è‰¯ã„æ•°ã®ä½•è¡Œå‰ã‹ã‚‰è¡¨ç¤ºã™ã‚‹ã‹ã€‚é€£ç¶šè¡¨ç¤ºã«ç”¨ã„ã‚‹ã€‚(grepã‚³ãƒžãƒ³ãƒ‰ã® -B ã¨åŒæ§˜ãªå‹•ä½œ)
   -A num ãã‚Šã®è‰¯ã„æ•°ã®ä½•è¡Œå¾Œã¾ã§è¡¨ç¤ºã™ã‚‹ã‹ã€‚é€£ç¶šè¡¨ç¤ºã«ç”¨ã„ã‚‹ã€‚(grepã‚³ãƒžãƒ³ãƒ‰ã® -A ã¨åŒæ§˜ãªå‹•ä½œ)

   -2 0 : ã€Œä½•è¡Œèªã‚“ã§ä½•è¡Œå‡ºåŠ›ã—ãŸã‹ã€ã‚’æ¨™æº–ã‚¨ãƒ©ãƒ¼å‡ºåŠ›ã«å‡ºã—ã¦ã„ã‚‹ã®ã‚’æŠ‘åˆ¶ã™ã‚‹ã€‚
   -t : å‡ºåŠ›æ™‚ã®æ™‚åˆ»æƒ…å ±ã‚’ è¡Œé ã«ä»˜åŠ ã€‚

view all matches for this distribution

App-gh

2 results

view release on metacpan or search on metacpan

lib/App/gh/Command/Search.pm view on Meta::CPAN

    print_list @ary;

#     my $result = App::gh->api->search($keyword);
#     if( $self->{long} ) {
#         for my $entry ( @{ $result->{repositories} } ) {
#             print color 'white bold';
#             say "*   $entry->{owner}/$entry->{name}";
#             print color 'reset';
#             say "    W/F:      $entry->{watchers}/$entry->{forks}";
#             say "    Url:      " .  $entry->{url} if $entry->{url};
#             say "    Homepage: " .  $entry->{homepage} if $entry->{homepage};

view all matches for this distribution

App-gimpgitbuild

2 results

view release on metacpan or search on metacpan

lib/App/gimpgitbuild/Command/build.pm view on Meta::CPAN

    _ascertain_gjs_presence();

    $worker->_run_the_mode_on_all_repositories();

    use Term::ANSIColor qw/ colored /;
    print colored( [ $ENV{HARNESS_SUMMARY_COLOR_SUCCESS} || 'bold green' ],
        "\n== Success ==\n\n" );
    return;
}

1;

view all matches for this distribution

App-grepurl

1 match

view release on metacpan or search on metacpan

data/index.html view on Meta::CPAN

	border-color:     black;
	border-style:     solid;
	text-align:       center;
	margin-left:      15%;
	margin-right:     15%;
	font-weight:      bold;
	}
p.alert {
	background-color: pink;
	padding:          5pt;
	border-width:     1pt;

data/index.html view on Meta::CPAN

	background-color: red;
	padding:          2pt;
	color:            white;
	padding-bottom:    0pt;
	font-size:        0.7em;
	font-weight:      bold;
	}
font.atom {
	background-color: orange;
	padding:          2pt;
	color:            white;
	padding-bottom:    0pt;
	font-size:        0.7em;
	font-weight:      bold;
	}
.flow {
	margin-bottom:    30pt;
	margin-left:      10%;
	line-height:      1.3em;

view all matches for this distribution

App-highlight

1 match

view release on metacpan or search on metacpan

lib/App/highlight.pm view on Meta::CPAN

try {
    for my $module (sort keys %COLOR_MODULES) {
        load($module, @{ $COLOR_MODULES{$module} });
    }

    @COLORS = map { [ color("bold $_"), color('reset') ] } (
        qw(red green yellow blue magenta cyan)
    );
}
catch {
    $COLOR_SUPPORT = 0;

view all matches for this distribution

App-jupiter

1 match

view release on metacpan or search on metacpan

share/default.css view on Meta::CPAN

#sidebar h2 {
    letter-spacing: 0.15em;
    text-transform: uppercase;
    font-size: .9em;
    color: #222;
    font-weight: bold;
    padding: 3px 0px 2px 4px;
    margin: 15px 0px 5px 10px;
}
@media (prefers-color-scheme: dark) {
    #sidebar h2 { color: #999 }

share/default.css view on Meta::CPAN

    padding-left: 1em;
}

#sidebar dt {
    margin-top: 1em;
    font-weight: bold;
    padding-left: 1.0em;
}

#sidebar dd {
    margin-left: 2.5em;

share/default.css view on Meta::CPAN

    margin-top: 5px;
}
#sidebar .button {
    margin: 0 2px;
    color: white;
    font-weight: bold;
    font-size: 80%;
    padding: 2px 3px;
    border-radius: 3px;
    text-transform: uppercase;
}

view all matches for this distribution

App-lens

1 match

view release on metacpan or search on metacpan

script/lens view on Meta::CPAN

    my $seq = shift;
    $seq =~ s/\e/\\e/g;
    $seq;
}

sub transform_bold {
    if ($_[0] == 1) {
        return @_;
    } else {
        return (1, @_);
    }

script/lens view on Meta::CPAN

    } else {
        return @_;
    }
}

sub transform_nobold {
    if ($_[0] == 1) {
        return ();
    } else {
        return @_;
    }

script/lens view on Meta::CPAN


Usage:
  % command-that-produces-colored-output | lens <transform-name> [transform-option]...

List of available transforms:
  bold    - Set bold to all colors
  mono    - replace all colors with gray
  nobold  - remove bold
  noop    - do no transform
  pastel  - pastelize colors
  ct      - Use a ColorTransform::* module

Some examples:

script/lens view on Meta::CPAN


Available transforms:

=over

=item * bold

Give bold to all colors.

=item * inverse

Inverse all colors.

=item * mono

Replace all colors with gray.

=item * nobold

Remove bold.

=item * noop

Do no transform.

view all matches for this distribution