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/Apache2/Tail.pm view on Meta::CPAN
}
tr.notice td.loglevel {
color: #00C;
font-weight: bold;
}
tr.debug td.loglevel{
}
tr.warn td.loglevel {
font-weight: bold;
color: #FF803E;
}
tr.error td.loglevel {
color: #F00;
font-weight: bold;
}
.client {
color: #333333;
}
lib/Apache2/Tail.pm view on Meta::CPAN
.message {
padding-left: .5em;
}
tr.error td.message, tr.warn td.message, tr.notice td.message {
font-weight: bold;
}
</style>
EOF
}
view release on metacpan or search on metacpan
lib/Apache2/Translation/Admin/my.css view on Meta::CPAN
h2 {
font-family: Helvetica, Verdana, Arial, sans-serif;
font-size: 12pt;
font-style: normal;
font-variant: small-caps;
font-weight: bold;
}
h1 {
font-family: Helvetica, Verdana, Arial, sans-serif;
font-size: 12pt;
font-style: normal;
font-weight: bold;
}
h2 img {
border: none;
margin-right: 10px;
lib/Apache2/Translation/Admin/my.css view on Meta::CPAN
h3 {
font-family: Helvetica, Verdana, Arial, sans-serif;
font-size: 10pt;
font-style: normal;
font-variant: normal;
font-weight: bold;
background-color: #cccccc;
margin-bottom: 0;
margin-top: 10px;
padding-top: 2px;
padding-bottom: 3px;
lib/Apache2/Translation/Admin/my.css view on Meta::CPAN
div.fetch th {
font-family: Helvetica, Verdana, Arial, sans-serif;
font-size: 9pt;
font-style: normal;
font-variant: normal;
font-weight: bold;
}
div.fetch td {
font-family: Helvetica, Verdana, Arial, sans-serif;
font-size: 9pt;
view release on metacpan or search on metacpan
examples/css/progress_bluebar.css view on Meta::CPAN
.progressmeter table {
}
.progressmeter th {
font-weight: bold;
text-align: right;
}
.progressmeter td {
text-align: left;
examples/css/progress_bluebar.css view on Meta::CPAN
z-index: 1000;
height: 18px;
text-align: center;
font-family: Arial;
font-size: 15px;
font-weight: bold;
}
view release on metacpan or search on metacpan
lib/Apache2/AMFDeviceMonitor.pm view on Meta::CPAN
$f->ctx(1);
}
$f->r->content_type('text/html');
$f->print("<title>Apache Mobile Filter - Device Monitor System V$VERSION</title>");
$f->print('<style type="text/css">body {font: normal 11px auto "Trebuchet MS", Verdana, Arial, Helvetica, sans-serif;color: #4f6b72;background: #E6EAE9}a {color: #c75f3e}caption {padding: 0 0 5px 0;width: 700px; font: italic 11px "Trebuchet MS...
$f->print("<b>Apache Mobile Filter</b><br>Device Monitor System V$VERSION<HR><a href=\"?\">home</a> | <a href=\"?form=1\">detected devices</a> | <a href=\"?form=2\">devices not found</a><hr>");
my $dummy="null";
my $count=0;
my $page_number=30;
my $min=$ArrayQuery{page};
view release on metacpan or search on metacpan
usr/share/webapp-toolkit/extra/htdocs/admin/css/base.css view on Meta::CPAN
border-left: none;
border-right: none;
clear: both;
color: #FF0000;
display: block;
font-weight: bold;
padding: 6px;
position: relative;
text-align: center;
width: 460px;
}
usr/share/webapp-toolkit/extra/htdocs/admin/css/base.css view on Meta::CPAN
#error {
background-color: #FF0000;
border: 1px solid #CCCCCC;
color: #FFFFFF;
font-weight: bold;
padding: 10px;
margin-bottom: 10px;
margin-top: 25px;
}
usr/share/webapp-toolkit/extra/htdocs/admin/css/base.css view on Meta::CPAN
#saved {
background-color: #FFFFFF;
color: #00FF00;
display: block;
font-weight: bold;
margin: 10px;
padding: 6px;
position: relative;
text-align: center;
width: 430px;
view release on metacpan or search on metacpan
lib/App/Adenosine/Plugin/Rainbow.pm view on Meta::CPAN
if $arg->{$_} && exists $old_colormap{$arg->{$_}}
}
$str = Term::ExtendedColor::fg($arg->{fg}, $str ) if $arg->{fg};
$str = Term::ExtendedColor::bg($arg->{bg}, $str ) if $arg->{bg};
$str = Term::ExtendedColor::bold($str ) if $arg->{bold};
$str = Term::ExtendedColor::italic($str ) if $arg->{italic};
$str = Term::ExtendedColor::underline($str ) if $arg->{underline};
return $str;
}
lib/App/Adenosine/Plugin/Rainbow.pm view on Meta::CPAN
string to be colorized. The complete color specification is defined as:
{
fg => $color,
bg => $color,
bold => $is_bold,
italic => $is_italic,
underline => $is_underline,
}
All of the keys in the hash are optional. The values for $color can be found
lib/App/Adenosine/Plugin/Rainbow.pm view on Meta::CPAN
explanded to C<< { fg => $str } >>.
Note that unfortunately support for all the attributes are spotty.
For example on my computer I use tmux 1.6 running within terminator 0.96.
In this situation I can't use any of the non-color attributes. Outside of
tmux C<underline> works, but the others do not. Similarly, C<bold> only
seems to work with some colors. It's pretty frustrating, and experimentation
seems necesary.
=head2 Overriding colors at runtime
view release on metacpan or search on metacpan
share/static/alice-dark.css view on Meta::CPAN
margin: 0;
opacity: 0;
font-size: 12px; }
select#tab_overflow_overlay option.unread {
font-weight: bold; }
li#tab_overflow_button {
background: url(image/sprites.png) 3px -174px no-repeat; }
li#tab_overflow_button.unread {
share/static/alice-dark.css view on Meta::CPAN
color: black; }
tr.input div.editor_toolbar button.selected {
color: yellow; }
.bold {
font-weight: bold; }
.italic {
font-style: italic; }
.underline {
share/static/alice-dark.css view on Meta::CPAN
display: none; }
div.left {
float: left;
width: 95px;
font-weight: bold;
text-align: right;
padding: 4px 0;
padding-right: 4px;
padding-bottom: 0;
text-overflow: ellipsis;
share/static/alice-dark.css view on Meta::CPAN
font-size: 10px;
line-height: 12px;
word-wrap: normal;
white-space: pre-wrap; }
li.monospace div.msg span[style*="bold"] {
letter-spacing: -1px; }
ul.messages li.event {
font-size: 11px;
background: #333333;
share/static/alice-dark.css view on Meta::CPAN
color: yellow;
margin-top: 0;
font-weight: normal; }
div#help dt {
font-weight: bold; }
div#help dd {
font-weight: normal;
margin: 0;
margin-bottom: 10px; }
share/static/alice-dark.css view on Meta::CPAN
height: 18px; }
div.color_picker div.toggle span.blank {
float: right;
color: red;
font-weight: bold;
text-align: center;
width: 20px;
line-height: 9px; }
div.color_picker div.toggle span#fg,
view release on metacpan or search on metacpan
lib/App/AltSQL.pm view on Meta::CPAN
App::AltSQL::View::Plugin::Color:
header_text:
default: red
cell_text:
is_null: blue
is_primary_key: bold
is_number: yellow
App::AltSQL::View::Plugin::UnicodeBox:
style: heavy_header
split_lines: 1
view release on metacpan or search on metacpan
lib/App/AppSpec.pm view on Meta::CPAN
if (@errors) {
print $validator->format_errors(\@errors);
say $run->colored(out => red => "Not valid!");
}
else {
say $run->colored(out => [qw/ bold green /] => "Validated ✓");
}
}
sub cmd_new {
my ($self, $run) = @_;
view release on metacpan or search on metacpan
lib/App/AutoCRUD/View/Xlsx.pm view on Meta::CPAN
# open excel file in memory
my $workbook = Excel::Writer::XLSX->new($fh);
my $worksheet = $workbook->add_worksheet();
# global Excel settings
my $title_fmt = $workbook->add_format(bold => 1, size => 13);
my $sql_fmt = $workbook->add_format(size => 9);
my $colgroup_fmt = $workbook->add_format(bold => 1, align => 'center',
border => 1, border_color => 'blue',
);
$worksheet->outline_settings(1, # visible
0, # symbols_below,
0, # symbols_right,
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/Basis/ConvertText2/UtfTransform.pm view on Meta::CPAN
use 5.10.0 ;
use strict ;
use warnings ;
use App::Basis::ConvertText2::UtfTransform
my $string = "<b>bold text</b>
<i>italic text</i>
<f>flipped upside down text and reversed</f>
<l>Some Leet speak</l>
<o>text in bubbles</o>
<s>script text</s>
lib/App/Basis/ConvertText2/UtfTransform.pm view on Meta::CPAN
say uttf_smilies( $smile ) ;
=head1 DESCRIPTION
A number of popular websites (eg twitter) do not allow the use of HTML to create
bold/italic font effects or perform smily transformations
However we can simulate this with some clever transformations of plain ascii text
into UTF8 codes which are a different font and so effectively create the same effect.
We have transformations for flip (reverses the string and flips upside down,
bold, italic, bubbles and leet.
We can transform A-Z a-z 0-9 and ? ! ,
I have only implemented a small set of smilies, ones that I am likely to use
=head1 Note
You cannot embed one format within another, so you cannot have bold script, or
bold italic.
=head1 See Also
L<http://txtn.us/>
lib/App/Basis/ConvertText2/UtfTransform.pm view on Meta::CPAN
"?" => "\x{00BF}",
"!" => "\x{00A1}",
"," => ",",
);
my %bold = (
"A" => "\x{1D400}",
"B" => "\x{1D401}",
"C" => "\x{1D402}",
"D" => "\x{1D403}",
"E" => "\x{1D404}",
lib/App/Basis/ConvertText2/UtfTransform.pm view on Meta::CPAN
"?" => "?",
"!" => "!",
"," => ",",
);
# mathematical bold script capital and small
# http://www.fileformat.info/info/unicode/category/Lu/list.htm
# http://www.fileformat.info/info/unicode/category/Ll/list.htm
my %script = (
"A" => "\x{1d4d0}",
lib/App/Basis/ConvertText2/UtfTransform.pm view on Meta::CPAN
my $smiles = join( '|', map { quotemeta($_) } keys %smilies );
my %code_map = (
f => \%flip,
b => \%bold,
i => \%italic,
o => \%bubbles,
s => \%script,
);
lib/App/Basis/ConvertText2/UtfTransform.pm view on Meta::CPAN
HTML codes for these
we use the following psuedo HTML elements
flip <f>text</f> upside down and reversed
bold <b>text</b>
italic <i>text</i>
bubbles <o>text</o>
script <s>text</s>
leet <l>text</l> LeetSpeak
view release on metacpan or search on metacpan
#toc {
padding: 0.4em;
page-break-after: always;
}
#toc p {
font-weight: bold;
font-size: 32;
}
#toc h3 {
text-align: center
}
/* tables*/
table { page-break-inside: avoid ;}
table.footer { font-size: 10px; width: 100%;}
table.footer td.commercial {
font-weight: bold;
font-size: 12px;
text-align: center;
}
/* nice markup for source code */
table.sourceCode, tr.sourceCode, td.lineNumbers, td.sourceCode {
margin: 0; padding: 0; vertical-align: baseline; border: none;
}
table.sourceCode { width: 100%; line-height: 100%; }
td.lineNumbers { text-align: right; padding-right: 4px; padding-left: 4px; color: #aaaaaa; border-right: 1px solid #aaaaaa; }
td.sourceCode { padding-left: 5px; }
code > span.kw { color: #007020; font-weight: bold; }
code > span.dt { color: #902000; }
code > span.dv { color: #40a070; }
code > span.bn { color: #40a070; }
code > span.fl { color: #40a070; }
code > span.ch { color: #4070a0; }
code > span.st { color: #4070a0; }
code > span.co { color: #60a0b0; font-style: italic; }
code > span.ot { color: #007020; }
code > span.al { color: #ff0000; font-weight: bold; }
code > span.fu { color: #06287e; }
code > span.er { color: #ff0000; font-weight: bold; }
</style>
</head>
<body>
<h1>%TITLE%</h1>
view release on metacpan or search on metacpan
lib/App/Basis.pm view on Meta::CPAN
# DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH
# THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
# -----------------------------------------------------------------------------
# for *bold* _underline_ ~strike~ (strike on Linux only)
# it works with both double **__~~ or just single *_~
sub _bold_underline_strike
{
my ($txt) = @_ ;
$txt =~ s/(\*{1,2})(?=\S)(.+?)(?<=\S)\1/\x1B[1m$2\x1B[22m/gs ;
$txt =~ s/(\_{1,2})(?=\S)(.+?)(?<=\S)\1/\x1B[4m$2\x1B[24m/gs ;
$txt =~ s/(\~{1,2})(?=\S)(.+?)(?<=\S)\1/\x1B[9m$2\x1B[29m/gs ;
lib/App/Basis.pm view on Meta::CPAN
# preserve inline blocks too
$txt =~ s{(`)(.+?)\1}{$1.($code{$2}=md5_base64($2)).$1}egm ;
# converter everything else
$txt = _horizontal($txt) ;
$txt = _header($txt) ;
$txt = _bold_underline_strike($txt) ;
$txt = _list($txt) ;
$txt = _quote($txt) ;
$txt = _color($txt) ;
# put back inline blocks
$txt =~ s{(`)(.+?)\1}{$1._get_source($2,\%code).$1}egm ;
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;
}
pre.content span.nu {
view release on metacpan or search on metacpan
scripts/resistorcc view on Meta::CPAN
use Getopt::Std ;
getopts '' , \my %o ;
my @givecolor = map { color ( $_ ) }
(
'dark white' , 'faint bold red', # 'dark on_bright_red black', # 0 1
'red ', 'bright_red' , 'yellow' , # 2 3 4
'green', 'bright_blue', 'bold magenta', # 5 6 7
'white', 'bold bright_white' # 8 9
) ;
while ( <> ) {
$_ = decode_utf8 $_ ;
view release on metacpan or search on metacpan
script/block-web-flooders view on Meta::CPAN
{
last unless !$last_update_output_time ||
$last_update_output_time <= $now-2;
print "\e[2J\e[;H"; # clear screen + put cursor at top (0,0)
printf "Blocked IPs: %s%4d%s | Log lines: %s%6d%s | Running for: %s%s%s\n",
color('bold'), (scalar keys %Blocked), color('reset'),
color('bold'), $num_lines, color('reset'),
color('bold'), Time::Duration::concise(Time::Duration::duration($now-$^T, 2)), color('reset');
$last_update_output_time = $now;
printf "Top IPs:\n";
my $i = 0;
for my $ip (sort { scalar(@{ $Ips{$b} }) <=> scalar(@{ $Ips{$a} }) } keys %Ips) {
last if $i++ >= 10;
view release on metacpan or search on metacpan
bin/bootstrap-perl view on Meta::CPAN
'build_dir_reuse' => q[0],
'build_requires_install_policy' => q[yes],
'bzip2' => q[/bin/bzip2],
'cache_metadata' => q[0],
'check_sigs' => q[0],
'colorize_debug' => q[bold cyan],
'colorize_output' => q[1],
'colorize_print' => q[bold blue],
'colorize_warn' => q[bold red],
'commandnumber_in_prompt' => q[0],
'connect_to_internet_ok' => q[0],
'cpan_home' => q[__PREFIXBASE__/cpan],
'dontload_hash' => { },
'ftp' => q[/usr/bin/ftp],
view release on metacpan or search on metacpan
lib/App/BorderStyleUtils.pm view on Meta::CPAN
"BoxChar::Space",
"BoxChar::SpaceInnerOnly",
"Test::CustomChar",
"Test::Labeled",
"Test::Random",
"Text::ANSITable::OldCompat::Default::bold",
"Text::ANSITable::OldCompat::Default::brick",
"Text::ANSITable::OldCompat::Default::bricko",
"Text::ANSITable::OldCompat::Default::csingle",
"Text::ANSITable::OldCompat::Default::double",
"Text::ANSITable::OldCompat::Default::none_ascii",
view release on metacpan or search on metacpan
lib/App/CPAN2Pkg/UI/Tk.pm view on Meta::CPAN
# the tooltip
$self->_set_w('tooltip', $mw->Balloon);
# font used in progression text
$mw->fontCreate( "FNbig", -weight => "bold" );
#
my $ftop = $mw->Frame->pack( top, fillx, pad20 );
$ftop->Label( -text => 'New module wanted:' )->pack( left, pad2 );
my $entry = $ftop->Entry()->pack( left, xfillx, pad2 );
view release on metacpan or search on metacpan
lib/App/CPANTS/Lint.pm view on Meta::CPAN
my $scheme = $self->_colour_scheme;
my $icon = $^O eq 'MSWin32'
? {pass => 'o', fail => 'x'}
: {pass => "\x{2713}", fail => "\x{2717}"};
my $report = Term::ANSIColor::colored("Distribution: ", "bold $scheme->{heading}")
. Term::ANSIColor::colored($self->result->{dist}, "bold $scheme->{title}")
. "\n";
my %failed;
for my $arr (values %{$self->result->{fails}}) {
for my $fail (@$arr) {
lib/App/CPANTS/Lint.pm view on Meta::CPAN
}
}
my $core_fails = 0;
for my $type (qw/ Core Optional Experimental /) {
$report .= Term::ANSIColor::colored("\n$type\n", "bold $scheme->{heading}");
my @inds = $self->{mca}->mck->get_indicators(lc $type);
my @fails;
for my $ind (@inds) {
if ($failed{ $ind->{name} }) {
push @fails, $ind;
lib/App/CPANTS/Lint.pm view on Meta::CPAN
$report .= "\n";
}
for my $fail (@fails) {
$report .= "\n"
. Term::ANSIColor::colored("Name: ", "bold $scheme->{summary}")
. Term::ANSIColor::colored("$fail->{name}\n", $scheme->{summary})
. Term::ANSIColor::colored("Remedy: ", "bold $scheme->{summary}")
. Term::ANSIColor::colored("$fail->{remedy}\n", $scheme->{summary});
}
}
my $scorecolour = $scheme->{pass};
$scorecolour = $scheme->{warn} if keys %failed;
$scorecolour = $scheme->{fail} if $core_fails;
$report .= "\n"
. Term::ANSIColor::colored("Score: ", "bold $scheme->{heading}")
. Term::ANSIColor::colored($self->result->{score}, "bold $scorecolour")
. "\n";
$report;
}
view release on metacpan or search on metacpan
lib/App/CSE/Command/Check.pm view on Meta::CPAN
$l->get_schema();
$l;
};
unless( $lucy ){
my $err = $@;
$LOGGER->error($self->cse->colorizer->colored("The index $index_dir is not a valid lucy index.", 'red bold'));
$LOGGER->debug("Lucy error: $err");
return 1;
}
my $dirty_str = '';
lib/App/CSE/Command/Check.pm view on Meta::CPAN
Check your package manager
On OSX:
brew install shared-mime-info
|, 'yellow bold'));
return 1;
}
# Check some watcher.
if( my $watcher_pid = $self->cse->index_meta()->{'watcher.pid'} ){
view release on metacpan or search on metacpan
lib/App/CSV2Chart/API/ToXLSX.pm view on Meta::CPAN
my $csv = Text::CSV->new;
my $workbook = Excel::Writer::XLSX->new($fn);
my $headings = $csv->getline($fh);
my $worksheet = $workbook->add_worksheet();
my $bold = $workbook->add_format( bold => 1 );
# Add the worksheet data that the charts will refer to.
my $data = [ map { [] } @$headings ];
while ( my $row = $csv->getline($fh) )
{
lib/App/CSV2Chart/API/ToXLSX.pm view on Meta::CPAN
{
push @{ $data->[$i] }, $v;
}
}
$worksheet->write( 'A1', $headings, $bold );
$worksheet->write( 'A2', $data );
my $w = @$headings;
my $h = @{ $data->[0] };
view release on metacpan or search on metacpan
root/src/css/perso.css view on Meta::CPAN
#menu dt {
cursor: pointer;
<!--color: #fff;--!>
text-align: center;
text-decoration: none;
font-weight: bold;
font-size: 15px;
<!--background: #000;--!>
border: 1px solid #B4B079;
}
#menu dd {
root/src/css/perso.css view on Meta::CPAN
a { color: black; }
a:link { text-decoration: none; }
a:visited { text-decoration: none; }
a:hover { text-decoration: none; }
a:active { text-decoration: none; }
a.bold { font-weight: bold; }
a.info:link { cursor:none; border-bottom: 1px dotted #333 }
a.info:visited { cursor:none; border-bottom: 1px dotted #333 }
a.info:hover { cursor:help; text-decoration: none}
a.info:active { cursor:help; text-decoration: none}
root/src/css/perso.css view on Meta::CPAN
#flashMessage, .error, .error_message {
color:#000000;
font-size: 13px;
margin: 8px 0px;
font-weight: bold;
}
.error_message {
clear: both;
}
.error em {
root/src/css/perso.css view on Meta::CPAN
vertical-align: bottom;
}
div.required {
clear: both;
color:#222;
font-weight:bold;
}
div.optional {
clear: both;
color:#555;
}
view release on metacpan or search on metacpan
t/sample/sample.html view on Meta::CPAN
h3{font-weight:normal}
h2 a,h3 a{color:#000}
h4{margin:20px 0 10px;font-size:1.1em}
textarea,input,select{font:12px Arial;padding:1px 0px 1px 0px;vertical-align:middle;margin-bottom:1px}
.c{clear:both;height:0;font:0/0 Arial;}
.b{font-weight:bold}
.tal{text-align:left}
.tac{text-align:center}
.tar{text-align:right}
.fr{float:right}
.fl{float:left}
t/sample/sample.html view on Meta::CPAN
.t2{border-top:#A6CBE7 1px solid;margin:0px auto 5px;}
.t3{margin:auto}
.t4{padding:1px 0 1px 1px}
.h{border-bottom:4px solid #dbecF4;background:#B1D3E0;text-align:left;color:#004c7d;padding:5px 7px 3px 7px;}
.h span{font-weight:normal;}
.h h2{font-weight:bold}
.h a{font-family:Arial;color:#004c7d}
.h span a,.h span{color:#5599bb;}
.h a.a2{margin-left:12px;}
.tr1 th{padding:5px 10px;text-align:left;vertical-align:top;font-weight:normal;}
.tr1 td.td1{border:1px solid #D4EFF7;}
t/sample/sample.html view on Meta::CPAN
.t{padding:1px}
.pages{margin:3px 0;font:11px/12px Tahoma}
.pages *{vertical-align:middle;}
.pages a{padding:1px 4px 1px;border:1px solid #A6CBE7;margin:0 1px 0 0;text-align:center;text-decoration:none;font:normal 12px/14px verdana;}
.pages a:hover{border:#659b28 1px solid;background:#f3f8ef;text-decoration:none;color:#004c7d}
.pages input{margin-bottom:0px;border:1px solid #659b28;height:15px;font:bold 12px/15px Verdana;padding-bottom:1px;padding-left:1px;margin-right:1px;color:#659b28;}
</style>
</head><body>
<div id="header">
<table cellspacing="0" cellpadding="0" align="center" width="100%">
<tr>
t/sample/sample.html view on Meta::CPAN
<b><a href="../../../index.php">²ÝÁñÉç…^</a> » <a href="../../../thread0806.php?fid=15">†ÖÞÓдaÔ„“…^</a> » [MP4/1.09GB]DV-1194 Ãô¸ÐÉíówÖ±¶ßà ÖÐÎ÷Àï²Ë(ÖÐÎÄ×ÖÄ»)</b></td><td align="right">
<b><a href="../../../read.php?fid=15&tid=951593&toread=1">ÞDµ½„Ó‘B¾Wí“</a>
</b></td></tr><tr><td height="5" colspan="2"></td></tr></table></div>
<div class="t3"><table width="100%" align="center" cellspacing="0" cellpadding="0">
<tr><td align="left"><div class="pages"><a href="../../../read.php?tid=951593&page=1" style="font-weight:bold">«</a><b> 1 </b><a href="../../../read.php?tid=951593&page=2">2</a><a href='../../../read.php?tid=951593&page=2' style='font-weight:bo...
</td></tr>
</table></div>
t/sample/sample.html view on Meta::CPAN
<span><a class="s3" title="»Øʹ˘Ç" style="cursor:pointer;" onclick="postreply('»Ø 9˜Ç(b4321)µÄÌû×Ó');">9 ˜Ç</a></span>
</div></th></tr></table></div>
<div class="t3"><table cellspacing="0" cellpadding="0" width="100%" align="center">
<tr><td align="left"><div class="pages"><a href="../../../read.php?tid=951593&page=1" style="font-weight:bold">«</a><b> 1 </b><a href="../../../read.php?tid=951593&page=2">2</a><a href='../../../read.php?tid=951593&page=2' style='font-weight:bo...
<td valign="center" align="right">
</td></tr>
<tr><td align="left"><br />.:. <b><a href="index.php">²ÝÁñÉç…^</a> -> <a href="../../../thread0806.php?fid=15">†ÖÞÓдaÔ„“…^</a></b></td>
</tr></table></div>
view release on metacpan or search on metacpan
bin/changelog2x view on Meta::CPAN
<a href="http://perl.org" class="changelog-html-a">perl.org</a>
The following content (which already has a C<class> attribute):
<xhtml:span class="bold">Bold Span</xhtml:span>
yields:
<span class="bold changelog-html-span">Bold Span</span>
No other foreign XML tags are copied over, at present. Allowance has been
made for future extension with information such as version-control system
specification, hosting information, Dublin Core metadata, etc.
view release on metacpan or search on metacpan
lib/App/Chart/Pango/Ex/ANSItoMarkup.pm view on Meta::CPAN
package App::Chart::Pango::Ex::ANSItoMarkup;
use 5.008;
use strict;
use warnings;
my %shorthand = ('<span weight=bold' => 'b',
'<span style=italic' => 'i',
'<span strikethrough=true' => 's',
'<span underline=single' => 'u');
my @colour = ('black',
lib/App/Chart/Pango/Ex/ANSItoMarkup.pm view on Meta::CPAN
foreach my $num (split /;/, $3) {
if ($num == 0) {
@$attr = ();
} elsif ($num == 1) {
# bold
$attr->[_A_WEIGHT] = 'weight=bold';
} elsif ($num == 2) {
# faint, or dark, or something
$attr->[_A_WEIGHT] = 'weight=light';
lib/App/Chart/Pango/Ex/ANSItoMarkup.pm view on Meta::CPAN
} elsif ($num == 21) {
# double underline
$attr->[_A_UNDERLINE] = 'underline=double';
} elsif ($num == 22) {
# normal colour/intensity, ie. neither bold nor faint
$attr->[_A_WEIGHT] = undef;
} elsif ($num == 23) {
# not italic
$attr->[_A_STYLE] = undef;
view release on metacpan or search on metacpan
GREY='\033[00;37m'
# View color ansi escapes with less (like Vim)
less -R file
# Make xterm text color bold
BOLD='\033[1m'
# Make xterm text color blink
BLINK='\033[5m'
# JQuery Tooltip CSS
#/* ------------------- Tooltip ------------------------- */
#.ui-tooltip {
# padding: 10px 20px;
# border-radius: 20px;
# font: bold 14px"Helvetica Neue", Sans-Serif;
# box-shadow: 0 0 7px black;
# background-color: white;
# width: fit-content;
# position: absolute;
#}
# Excel - Simple: Check for errors openning an excel file and write to a cell
# Also rename the worksheet
perl -MExcel::Writer::XLSX -E "$wb = Excel::Writer::XLSX->new('my.xlsx') or die qq($!\n); $ws = $wb->add_worksheet('my'); $ws->write('A1', 'Hello Excel'); $wb->close"
# Excel - Simple: Add a format to make a cell bold
perl -MExcel::Writer::XLSX -E "$wb = Excel::Writer::XLSX->new('my.xlsx') or die qq($!\n); $ws = $wb->add_worksheet('my'); $format = $wb->add_format; $format->set_bold; $ws->write(0, 0, 'Hello Excel', $format); $wb->close"
# Create a spreadsheet/excel with formulas using perl (only on lnxbr42)
perl -MExcel::Writer::XLSX -le '
$wb=Excel::Writer::XLSX->new("new.xlsx");
$ws=$wb->add_worksheet;
# Notebook example 1. multiple pages/tabs (PTk)
perl -MTk -MTk::NoteBook -le '$nb=MainWindow->new->NoteBook->pack(-fill => "both", -expand => 1); @pgs = map { $nb->add("page$_", -label => "Page $_") } 0..5; $pgs[0]->Button(-text => "Button $_")->pack(-fill => "both") for 1..5; $pgs[1]->Label(-text...
# Notebook example 2. multiple pages/tabs (PTk)
# Command when clicking a page/tab
perl -MTk -MTk::NoteBook -le '$nb=MainWindow->new->NoteBook(-font => "Courier 14 bold")->pack(-fill => "both", -expand => 1); @pgs = map { $nb->add("page$_", -label => "Page $_") } 0..20; $pgs[0]->Button(-text => "Button $_")->pack(-fill => "both") f...
# Notebook example 3. multiple pages/tabs (PTk)
# Page deletion
perl -MTk -MTk::NoteBook -le '$nb=MainWindow->new->NoteBook->pack(-fill => "both", -expand => 1); @pgs = map { $nb->add("page$_", -label => "Page $_") } 0..10; $nb->pagecget("page0", "-state"); $pgs[0]->Button(-text => "Button $_")->pack(-fill => "bo...
#############################################################
## Perl Modules - Tk (Tags)
#############################################################
# Text tags example (PTk)
perl -MTk -le '$t=tkinit->Text->pack; $t->tagConfigure("bold", -font => "Courier 24 bold"); $t->insert("end", "Normal Text\n"); $t->insert("end", "Bold Text\n", "bold"); MainLoop'
# Make select text bold (PTk)
perl -MTk -le '$w=tkinit; $t=$w->Text->pack; $t->tagConfigure("bold", -font => "bold"); $t->insert("end", "A Bunch of text"); $w->Button(-text => "BOLD", -command => sub{$t->tagAdd("bold", "sel.first", "sel.last")} )->pack; MainLoop'
# Check if a selection exists (PTk)
perl -MTk -le '$w=tkinit; $t=$w->Text->pack; $t->tagConfigure("bold", -font => "bold"); $t->insert("end", "A Bunch of text"); $w->Button(-text => "BOLD", -command => sub{$t->tagAdd("bold", "sel.first", "sel.last") if $t->tagRanges("sel")} )->pack; Ma...
#############################################################
## Perl Modules - Tk (Appendix B)
#############################################################
set number
# Vim resource (vimrc) file. other features.
set nowrap
set cursorline
hi CursorLine term=bold cterm=bold guibg=Grey40
set cursorcolumn
# Do not go past the end of the file when searching (Vim)
set nowrapscan
view release on metacpan or search on metacpan
t/test-archive-links.t view on Meta::CPAN
# Create some data
#
my %data;
my $link = "/some_blog_post.html";
$data{ 'body' } = "This is **bold**";
$data{ 'link' } = Chronicle::URI->new($link);
$data{ 'date' } = scalar( localtime() );