view release on metacpan or search on metacpan
- show cookies not enabled warning message
- alert user when trying to copy, or cut 0 selected files.
- got rid of stringify & destringify functions as well as
MIME::Base64 and Storable libs since they aren't used anymore.
- added confirm dialog to 'go live!' button.
- bold faced path location to make it more noticable.
0.05 Tues Jun 25 08:00:00 2002 Philip Collins
- fixed javascript checkbox array bug occuring when only 0 or 1 files
were in a single directory.
- copy/cut buffer now is erased after pasting files.
view release on metacpan or search on metacpan
t/htdocs/stylesheet.less view on Meta::CPAN
#header {
color: red;
a {
font-weight: bold;
text-decoration: underline;
}
}
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
examples/xml2_test.xml view on Meta::CPAN
<data>
<title test="sax & drags"
test-length="We want a tag that is longer tha 128 bytes"
test-additional="For this we need a bit more nonsense">This is the Cindy Test Page</title>
<content>Hello & Test</content>
<replace>This is NOT bold.</replace>
<?test Prozessing Instruction ?>
<omit>1</omit>
<![CDATA[ >>CData Test<< ]]>
<!-- attributes are done with content -->
<size>+2</size>
view release on metacpan or search on metacpan
docsrc/features.xml view on Meta::CPAN
PageKit Template by using
<CONTENT_VAR> and <CONTENT_LOOP> tags, which contain
XPath queries to the Content XML data.
</para>
<para>
The Content XML file defaults to <filename>Content/<replaceable>page_id</replaceable>.xml</filename> or can be specified using XPath's <emphasis role="bold">document()</emphasis> function.
</para>
</sect2>
</sect1>
<sect1>
<title>Language Localization</title>
docsrc/features.xml view on Meta::CPAN
PerlSetVar ErrorReportHandler display
</programlisting>
</informalexample>
</para>
<para>
If <literal>ErrorReportHandler</literal> is set to <emphasis role="bold">display</emphasis>, errors will be displayed on the screen for easy debugging. This should be
used in a development environment only.
</para>
<para>
If <literal>ErrorReportHandler</literal> is set to <emphasis role="bold">email</emphasis>, errors will be e-mailed to the site adminstrator as specified in the Apache
<literal>ServerAdmin</literal> configuration directive. This should be used on a production site.
</para>
</sect1>
</chapter>
view release on metacpan or search on metacpan
lib/Apache2/PodBrowser/fancy.css view on Meta::CPAN
white-space: pre;
}
CODE {
color: #c00;
font-weight: bold;
}
DT {
color: #06c;
}
lib/Apache2/PodBrowser/fancy.css view on Meta::CPAN
color: #069;
font-size: 80%;
font-family: sans-serif;
font-variant: small-caps;
text-decoration: none;
font-weight: bold;
padding-top: 10px;
border-left: solid #aab 1px;
border-bottom: solid #aab 1px;
text-align: center;
width: 20px;
lib/Apache2/PodBrowser/fancy.css view on Meta::CPAN
color: #069;
font-size: 80%;
font-family: sans-serif;
font-variant: small-caps;
text-decoration: none;
font-weight: bold;
padding: 0.3em;
border: solid #aab 1px;
width: auto;
height: auto;
background-color: #eef;
lib/Apache2/PodBrowser/fancy.css view on Meta::CPAN
color: #069;
font-size: 80%;
font-family: sans-serif;
font-variant: small-caps;
text-decoration: none;
font-weight: bold;
padding-top: 10px;
padding-left: 6px;
padding-right: 6px;
border: solid #aab 1px;
background-color: #eef;
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
#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/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'} ){