Result:
found more than 356 distributions - search limited to the first 2001 files matching your query
( run in 1.840 )
App-Plog
view release on metacpan or search on metacpan
lib/App/Plog.pm view on Meta::CPAN
$entry_html = $1 ;
}
$entry_html = <<"EOE" ;
<tr>
<td width="100" valign="top"> <font size="1"> <br> $date_html $version_html </td>
<td></td>
<td width="540">
<a name = '$commit'> </a>
$entry_html
</td>
lib/App/Plog.pm view on Meta::CPAN
$entry_html = <$reader>; close $reader ;
}
$entry_html = <<"EOE" ;
<tr>
<td width="100" valign="top"> <font size="1"> <br> $date_html $version_html </td>
<td></td>
<td width="540">
<a name = '$commit'> </a>
$entry_html
</td>
App-Pod2Epub
view release on metacpan or search on metacpan
bin/pod2epub view on Meta::CPAN
# Get the user supplied or default css file name.
$css_filename = get_css_file( $css_filename );
# Add package content: stylesheet, font, xhtml
$epub->copy_stylesheet( $css_filename, 'styles/style.css' );
$epub->copy_xhtml( $xhtml_filename, 'text/main.xhtml', linear => 'no' );
# Add Pod headings to table of contents.
bin/pod2epub view on Meta::CPAN
}
# If the css file doesn't exist or wasted supplied create a default.
( $css_fh, $css_filename ) = tempfile();
print $css_fh "h1 { font-size: 110%; }\n";
print $css_fh "h2, h3, h4 { font-size: 100%; }\n";
close $css_fh;
return $css_filename;
}
bin/pod2epub view on Meta::CPAN
=item B<-s or --stylesheet>
Specify the CSS stylesheet that the ePub eBook will use. If none is supplied the following minimal stylesheet is used:
h1 { font-size: 110%; }
h2, h3, h4 { font-size: 100%; }
=item B<-c or --cover>
Add an image for use as a book cover.
App-Pods2Site
view release on metacpan or search on metacpan
lib/App/Pods2Site/SiteBuilder/AbstractBasicFrames.pm view on Meta::CPAN
return <<MYCSS;
\@charset "UTF-8";
html
{
font-family: sans-serif;
font-size: small;
}
MYCSS
}
lib/App/Pods2Site/SiteBuilder/AbstractBasicFrames.pm view on Meta::CPAN
my $sysCssName = $self->getSystemCssName();
my ($mainspan, $aboutspan);
if ($mainpage eq ':std')
{
$mainspan = qq(<span style="float:left"><a href="about.html" target="main_frame" style="font-size:250%;font-weight:bold">$title</a></span>);
$aboutspan = '';
}
else
{
$mainspan = qq(<span style="float:left"><a href="$mainpage" target="main_frame" style="font-size:250%;font-weight:bold">$title</a></span>);
$aboutspan = qq(<span style="float:right"><a href="about.html" target="main_frame" style="font-size:125%;font-weight:bold">about</a></span>);
}
my $headerContent = <<HDR;
<!DOCTYPE html>
<html>
App-PrereqGrapher
view release on metacpan or search on metacpan
t/module-path-depth-2.dot view on Meta::CPAN
// Generated by Graph::Easy 0.72 at Wed Dec 5 13:39:42 2012
edge [ arrowhead=open ];
graph [ rankdir=LR ];
node [
fontsize=11,
fillcolor=white,
style=filled,
shape=box ];
"Module::Path" -> "strict" [ color="#000000" ]
App-Prima-REPL
view release on metacpan or search on metacpan
bin/prima-repl view on Meta::CPAN
text => '',
cursorWrap => 1,
wordWrap => 1,
readOnly => 1,
backColor => cl::LightGray,
font => { name => 'courier new'},
);
# Over-ride the defaults for these:
$output->accelTable->insert([
['', '', km::Ctrl | kb::PageUp, \&goto_prev_page ] # previous
bin/prima-repl view on Meta::CPAN
wantTabs => 1,
wantReturns => 1,
wordWrap => 0,
autoIndent => 1,
cursorWrap => 1,
font => { pitch => fp::Fixed, style => fs::Bold, name => 'courier new'},
);
# Update the accelerators.
my $accTable = $widget->accelTable;
bin/prima-repl view on Meta::CPAN
If your project has project-specific notes, you should be able to find them
either here: L<prima-repl.initrc> or here: L<prima-repl.initrc.pl>.
=head1 Fixing Documentation Fonts
If your documentation fonts look bad, you can change them by going to
View->Set Font Encoding.
=head1 Basic Navigation
Before I launch into the tutorial, I want to cover some basic navigation to help
bin/prima-repl view on Meta::CPAN
=item REPL::endow_editor_widget($widget)
Given a normal editor widget, this sets the various options to make the editor
behave like the default multiline buffer editor. For example, it turns on
syntax highlighting, sets a monospace font, and sets the default accelerator
keys. Although not strictly necessary for creating tabs, it may be useful if
you want to create a tab with both an editor and some other sort of widget,
side-by-side, as is done in L<App::Prima::REPL::Talk>.
This function does not set the widget as the tab's default widget, since you
App-ProgUtils
view release on metacpan or search on metacpan
script/proglist view on Meta::CPAN
argv => [],
test => 0,
'x.doc.show_result'=>0,
},
{
summary => 'List all binaries that have "font" in their name',
argv => [qw/font --type=binary/],
test => 0,
'x.doc.show_result'=>0,
},
{
summary => 'List all scripts that have "csv" in their name',
script/proglist view on Meta::CPAN
=head2 List all programs
% proglist
=head2 List all binaries that have "font" in their name
% proglist font '--type=binary'
=head2 List all scripts that have "csv" in their name
% proglist csv '--type=script'
App-RPi-EnvUI
view release on metacpan or search on metacpan
public/css/envui.css view on Meta::CPAN
}
.graph {
width: 100%;
height: 100%;
font-size: 14px;
line-height: 1.2em;
}
.button {
width: 200px;
App-Requirement-Arch
view release on metacpan or search on metacpan
lib/App/Requirement/Arch/HTML/Flat.pm view on Meta::CPAN
margin: 0;
margin-right: 15%;
}
pre {
background-color: #FFFFFF;
font-family: monospace;
font-size: 9pt;
color: #000000;
}
body {
background-color: #FFFFFF;
font-family: verdana,arial,helvetica,sans-serif;
font-size: 10pt;
color: #000000;
}
select {
font-size: 10pt;
font-family: Verdana,sans-serif;
}
h1{
font-size: 14pt;
}
h2{
font-size: 13pt;
}
h3 {
font-size: 12pt;
}
h4 {
font-size: 11pt;
}
h5 {
font-size: 10pt;
}
hr {
color: #003399;
height: 2px;
}
App-RoboBot
view release on metacpan or search on metacpan
lib/App/RoboBot/Plugin/Fun/Figlet.pm view on Meta::CPAN
=head2 figlet
=head3 Description
Given a font name and a string, returns a multi-line string containing the
generated figlet.
=head3 Usage
<font name> <string>
=head3 Examples
:emphasize-lines: 2-6
lib/App/RoboBot/Plugin/Fun/Figlet.pm view on Meta::CPAN
_ _ _
_ _ ___| |__ ___| |__ ___| |_
| '_/ _ \ '_ \/ _ \ '_ \/ _ \ _|
|_| \___/_.__/\___/_.__/\___/\__|
=head2 figlet-fonts
=head3 Description
Returns a list of the figlet fonts available.
=cut
has '+commands' => (
default => sub {{
'figlet' => { method => 'figlet_convert',
description => 'Given a font name and a string, returns a multi-line string containing the generated figlet.',
usage => '<font name> <string>', },
'figlet-fonts' => { method => 'figlet_fonts',
description => 'Returns a list of the figlet fonts available.', },
}},
);
sub figlet_convert {
my ($self, $message, $command, $rpl, $font, @args) = @_;
unless (defined $font) {
$message->response->raise('Must supply a valid font name. See (figlet-fonts) for the available fonts.');
return;
}
my $string = join(' ', @args);
lib/App/RoboBot/Plugin/Fun/Figlet.pm view on Meta::CPAN
}
my @figlet;
my $shortest_ws = 1_000;
open(my $fh, '-|', '/usr/bin/figlet', '-l', '-w', 120, '-f', $font, $string) or return;
while (my $ln = <$fh>) {
chomp($ln);
if ($ln =~ m{^(\s*)}) {
$shortest_ws = length($1) if defined $1 && length($1) < $shortest_ws;
}
lib/App/RoboBot/Plugin/Fun/Figlet.pm view on Meta::CPAN
close($fh);
@figlet = grep { $_ =~ m{\S+} } @figlet;
if (@figlet > 6) {
$message->response->raise('Generated figlet contains too many lines. Please try a shorter string or a different font.');
return;
}
if ($shortest_ws > 0) {
@figlet = map { substr($_, $shortest_ws) } @figlet;
}
if (grep { length($_) > 100 } @figlet) {
$message->response->raise('Generated figlet is too wide. Please try a shorter string or a different font.');
return;
}
return join("\n", @figlet);
}
sub figlet_fonts {
my ($self, $message, $command, $rpl) = @_;
my @fonts;
opendir(my $dirh, '/usr/share/figlet') or return;
while (my $fn = readdir($dirh)) {
if ($fn =~ m{^(.+)\.flf}) {
push(@fonts, $1);
}
}
closedir($dirh);
return sort { $a cmp $b } @fonts;
}
__PACKAGE__->meta->make_immutable;
1;
App-SD
view release on metacpan or search on metacpan
share/web/static/css/main.css view on Meta::CPAN
html {
font-family: Helvetica;
background: url(/static/sd/images/gradient.png) repeat-x;
background-color: #601;
padding: 1em;
}
share/web/static/css/main.css view on Meta::CPAN
left: 0;
padding-left: 70px;
color: #fff;
background-color: #000;
display: inline;
font-weight: bold;
padding-top: 0.25em;
padding-right: 0.5em;
padding-bottom: 0.5em;
-moz-border-radius-topright: 1em;
-moz-border-radius-bottomright: 0em;
share/web/static/css/main.css view on Meta::CPAN
padding-left: 70px;
margin-bottom: 2.5em;
background-color: #666;
color: #fff;
text-decoration: none;
font-size: 1.6em;
border-bottom: 0.25em solid #666;
z-index: 0;
}
h2 {
padding: 0.5em;
text-decoration: none;
font-weight: bold;
font-size: 1.4em;
}
.log h2 {
font-weight: normal;
}
.log h2 a.ticket-summary {
font-weight: normal;
text-decoration: none;
color: #700;
}
.log h2 a:hover {
share/web/static/css/main.css view on Meta::CPAN
ul.actions li a {
text-decoration: none;
color: #1133AA;
padding: 0.5em;
font-size: 0.8em;
}
ul.actions li:hover {
background: #ccc;
}
share/web/static/css/main.css view on Meta::CPAN
}
div.widget label {
display: inline-block;
width: 8em;
font-size: 0.8em;
text-align: right;
padding-right: 0.5em;
color: #666;
background-color: transparent;
font-weight: bold;
margin: 0;
padding: 0;
border: 0;
padding-bottom: 0.8em;
}
div.widget div.value {
display: inline-block;
padding-top: 0.35em;
padding-left: 0.6em;
font-size: 0.95em;
}
div.widget input {
margin-top: 0em;
font-size: 0.95em;
margin-left: 0.2em;
padding: 0.2em;
}
div.comment-form {
share/web/static/css/main.css view on Meta::CPAN
}
div.widget.description textarea {
width: 100%;
font-size: 0.8em;
height: 6em;
padding-left: 0.5em;
padding-top: 0.5em;
padding-bottom: 0.5em;
}
share/web/static/css/main.css view on Meta::CPAN
ul.page-nav {
position: absolute;
top: 0;
right: 1.25em;
font-size: 0.7em;
z-index: 1000;
color: #ccc;
padding: 0;
}
ul.page-nav li, ul.page-nav li a {
font-weight: bold;
border: none;
color: #fff;
}
ul.page-nav li, ul.page-nav li ul li {
share/web/static/css/main.css view on Meta::CPAN
padding-top: 0.5em;
padding-bottom: 0.5em;
color: #666;
width: 100%;
font-size: 0.8em;
}
dl.history dt .source_info {
float: right;
}
share/web/static/css/main.css view on Meta::CPAN
}
dl.history dd {
margin-bottom: 0.5em;
font-size: 0.9em;
margin-right: 0;
}
dl.history dd ul li{
list-style-type: none;
share/web/static/css/main.css view on Meta::CPAN
-moz-border-radius: 0.4em;
}
dl.history span.property {
font-weight: bold;
display: block;
width: 8em;
float: left; /* firefox can't text-align an inline block. nfc why */
padding-right: 0.25em;
text-align: right;
share/web/static/css/main.css view on Meta::CPAN
}
ul.comments li .content {
padding: 1em;
margin-top: 1em;
font-size: 0.9em;
overflow-x: auto;
}
ul.comments li:nth-child(odd) {
share/web/static/css/main.css view on Meta::CPAN
border-bottom: 1px solid #ccc;
}
table.tablesorter tbody td {
color: #555;
font-weight: bold;
height: 4em;
padding-top: 3em;
}
table.tablesorter td.summary a, table.tablesorter td.id a {
font-size: 1.6em;
text-decoration: none;
color: #700;
}
table.tablesorter td.summary a {
share/web/static/css/main.css view on Meta::CPAN
table.tablesorter td.summary {
margin-top: 0em;
padding: 0;
font-weight: normal;
right:1.5em;
overflow: hidden;
margin-top: 0.5em;
height: 1em;
left: 6.75em;
share/web/static/css/main.css view on Meta::CPAN
}
.pagesection li {
font-size: 0.8em;
}
.pagesection li a {
color: #000;
padding-left: 0.1em;
text-decoration: none;
font-weight: bold;
}
div.overview {
share/web/static/css/main.css view on Meta::CPAN
}
div.overview h2 {
padding-bottom: 0;
font-weight: normal;
border-bottom: 1px solid #ddd;
}
.sidebar {
width: 120px;
share/web/static/css/main.css view on Meta::CPAN
padding-right: 10px;
}
.sidebar h2 {
padding-left: 0;
font-size: 1.1em;
font-weight: normal;
border-bottom: 1px solid #ddd;
padding-bottom: 5px;
margin-bottom: 10px;
padding-top: 0.5em;
}
App-SeismicUnixGui
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/big_streams/iSave_picks.pm view on Meta::CPAN
my $var = $get->var();
# Main Window
my $mw = MainWindow->new();
my $arial_14 = $mw->fontCreate(
'arial_14',
-family => 'arial',
-weight => 'bold',
-size => -14
);
lib/App/SeismicUnixGui/big_streams/iSave_picks.pm view on Meta::CPAN
my $iPick_message = message_director->new();
my $message = $iPick_message->iPick(0);
$mw->messageBox(
-title => "iPick geopsy",
-font => $arial_14,
-message => $message,
-background => $var->{_my_yellow},
-default => 'oK',
);
print("iSave_picks,calc, $message\n");
App-ShellCompleter-emacs
view release on metacpan or search on metacpan
} elsif ($opt eq '--color') {
return complete_array_elem(word => $word, array=>[qw/auto never always ansi8/]);
}
# XXX funcall/f -> list of Lisp functions
# XXX name -> list of window names
# XXX font/fn -> list of font names
# XXX fg/bg/bd/... -> list of colors
# XXX display/d -> list of X display names (:0.0 only as default?)
}
return [];
},
'directory|L=s' => $noop,
'name=s' => $noop,
'title|T=s' => $noop,
'reverse-video|r' => $noop, '-rv' => $noop,
'font=s' => $noop, '-fn=s' => $noop,
'xrm=s' => $noop,
'color=s' => $noop,
'border-width=i' => $noop, '-bw=i' => $noop,
'internal-border=i' => $noop, '-ib=i' => $noop,
'geometry|g=s' => $noop,
App-ShellCompleter-mpv
view release on metacpan or search on metacpan
lib/App/ShellCompleter/mpv.pm view on Meta::CPAN
combine_answers(
complete_array_elem(array=>[qw/auto/], word=>$word),
complete_int(min=>0, max=>8190, word=>$word),
);
},
'embeddedfonts!' => undef, # Flag (default: yes)
'end=s' => undef, # Relative time or percent position
'field-dominance=s' => [qw/auto top bottom/], # Choices: auto top bottom (default: auto)
'fixed-vo!' => undef, # Flag (default: yes) [global]
'force-rgba-osd-rendering!' => undef, # Flag (default: no)
'force-window!' => undef, # Flag (default: no) [global]
lib/App/ShellCompleter/mpv.pm view on Meta::CPAN
'osd-blur=f' => _gcfloat(0,20), # Float (0 to 20) (default: 0.000000)
'osd-border-color=s' => undef, # Color
'osd-border-size=f' => _gcfloat(0,10), # Float (0 to 10) (default: 2.500000)
'osd-color=s' => undef, # Color
'osd-duration=i' => _gcint(0,3600000), # Integer (0 to 3600000) (default: 1000)
'osd-font=s' => undef, # String (default: sans-serif)
'osd-font-size=f' => _gcfloat(1,9000), # Float (1 to 9000) (default: 45.000000)
'osd-fractions!' => undef, # Flag (default: no)
'osd-level=s' => [qw/0 1 2 3/], # Choices: 0 1 2 3 (default: 1)
'osd-margin-x=i' => _gcint(0,300), # Integer (0 to 300) (default: 25)
'osd-margin-y=i' => _gcint(0,600), # Integer (0 to 600) (default: 10)
'osd-msg1=s' => undef, # String (default: )
lib/App/ShellCompleter/mpv.pm view on Meta::CPAN
'sub-text-back-color=s' => undef, # Color
'sub-text-blur=f' => _gcfloat(0,20), # Float (0 to 20) (default: 0.000000)
'sub-text-border-color=s' => undef, # Color
'sub-text-border-size=f' => _gcfloat(0,10), # Float (0 to 10) (default: 2.500000)
'sub-text-color=s' => undef, # Color
'sub-text-font=s' => undef, # String (default: sans-serif)
'sub-text-font-size=f' => _gcfloat(1,9000), # Float (1 to 9000) (default: 45.000000)
'sub-text-margin-x=i' => _gcint(0,300), # Integer (0 to 300) (default: 25)
'sub-text-margin-y=i' => _gcint(0,600), # Integer (0 to 600) (default: 10)
'sub-text-shadow-color=s' => undef, # Color
'sub-text-shadow-offset=f' => _gcfloat(0,10), # Float (0 to 10) (default: 0.000000)
'sub-text-spacing=f' => _gcfloat(-10,10), # Float (-10 to 10) (default: 0.000000)
App-SimplenoteSync
view release on metacpan or search on metacpan
t/utf8_note.txt view on Meta::CPAN
⠺⠊⠇⠇ ⠹⠻⠑⠋⠕⠗⠑ â â »â â Šâ ž â â ‘ â žâ • â —â ‘â â ‘â â žâ ‚ â ‘â â â ™â â žâ Šâ Šâ ⠇⠇⠹⠂ â ¹â â ž
â¡â œâ ‡â ‘â ¹ â ºâ â Ž â â Ž ⠙⠑â â ™ â â Ž â ⠙⠕⠕⠗⠤â â ⠊⠇⠲
(The first couple of paragraphs of "A Christmas Carol" by Dickens)
Compact font selection example text:
ABCDEFGHIJKLMNOPQRSTUVWXYZ /0123456789
abcdefghijklmnopqrstuvwxyz £©µÀÆÖÞßéöÿ
–—‘“â€â€žâ€ •…‰™œŠŸž€ ΑΒΓΔΩαβγδω ÐБВГДабвгд
∀∂∈â„∧∪≡∞ ↑↗↨↻⇣ â”┼╔╘░►☺♀ ï¬ï¿½â‘€â‚‚ἠḂӥẄÉËâŽ×Ô±áƒ
App-Slackeria
view release on metacpan or search on metacpan
share/template.xhtml view on Meta::CPAN
<head>
<title><TMPL_VAR title></title>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8"/>
<style type="text/css">
html {
font-family: Sans-Serif;
text-align: center;
}
a {
text-decoration: none;
share/template.xhtml view on Meta::CPAN
div.slackeria {
position: absolute;
right: 0.5em;
bottom: 0.5em;
font-size: 80%;
color: #777777;
z-index: -1;
}
</style>
App-SlideServer
view release on metacpan or search on metacpan
example/Introduction/slides.md view on Meta::CPAN
<style>
div.slide { min-width: 900px; }
</style>
<h1 style="font-family: monospace; padding-top:2em;">App::SlideServer</span></h1>
<br>
<div style="text-align:left; margin: 2em;">
Follow Along at:<br>
example/Introduction/slides.md view on Meta::CPAN
</body>
```
## Markdown Structure
<div style="padding: 0 20%; font-size: 150%">
<pre><code>
## Heading 2
* Item 1
* Item 2
App-SocialCalc-Multiplayer
view release on metacpan or search on metacpan
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
#
# The following optional values, if present, are mainly used in rendering, overriding defaults:
#
# bt, br, bb, bl: number of border's definition
# layout: layout (vertical alignment, padding) definition number
# font: font definition number
# color: text color definition number
# bgcolor: background color definition number
# cellformat: cell format (horizontal alignment) definition number
# nontextvalueformat: custom format definition number for non-text values, e.g., numbers
# textvalueformat: custom format definition number for text values
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
# defaultcolwidth - number or blank (use system default)
# defaultrowheight - not used
# defaulttextformat:format# - cell format number (alignment) for sheet default for text values
# defaultnontextformat:format# - cell format number for sheet default for non-text values (i.e., numbers)
# defaultlayout:layout# - default cell layout number in cell layout list
# defaultfont:font# - default font number in sheet font list
# defaultnontextvalueformat:valueformat# - default non-text (number) value format number in sheet valueformat list
# defaulttextvalueformat:valueformat# - default text value format number in sheet valueformat list
# defaultcolor:color# - default number for text color in sheet color list
# defaultbgcolor:color# - default number for background color in sheet color list
# circularreferencecell:coord - cell coord with a circular reference
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
#
# Names are stored as:
# $sheet{names}{"name"} = {desc => "description", definition => "definition"}
#
# The lookup value lists are stored as an array of strings and a hash to do reverse lookups.
# The lookup value lists are: layout, font, color, borderstyle, cellformat, and valueformat.
# $sheet{list-name . "s"}[$num] = value
# $sheet{list-name . "hash"}{"value"} = $num
#
# The range this was copied from (for partial saves) is in $sheet{copiedfrom}.
#
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
# more general and easier to extend:
#
our %sheetAttribsLongToShort = (lastcol => "c", lastrow => "r", defaultcolwidth => "w", defaultrowheight => "h",
defaulttextformat => "tf", defaultnontextformat => "ntf", defaulttextvalueformat => "tvf", defaultnontextvalueformat => "ntvf",
defaultlayout => "layout", defaultfont => "font", defaultcolor => "color", defaultbgcolor => "bgcolor",
circularreferencecell => "circularreferencecell", recalc => "recalc", needsrecalc => "needsrecalc");
our %sheetAttribsShortToLong = ("c" => "lastcol", "r" => "lastrow", "w" => "defaultcolwidth",
"h" => "defaultrowheight", "tf" => "defaulttextformat", "ntf" => "defaultnontextformat",
"tvf" => "defaulttextvalueformat", "ntvf" => "defaultnontextvalueformat",
"layout" => "defaultlayout", "font" => "defaultfont", "color" => "defaultcolor",
"bgcolor" => "defaultbgcolor", "circularreferencecell" => "circularreferencecell",
"recalc" => "recalc", "needsrecalc" => "needsrecalc");
our %sheetAttribsStyle = (lastcol => 1, lastrow => 1, defaultcolwidth => 2, defaultrowheight => 1,
defaulttextformat => 1, defaultnontextformat => 1, defaulttextvalueformat => 1, defaultnontextvalueformat => 1,
defaultlayout => 1, defaultfont => 1, defaultcolor => 1, defaultbgcolor => 1,
circularreferencecell => 2, recalc => 2, needsrecalc => 2);
our %cellAttribsStyle = (v => "v", t => "t", vt => "vt", vtf => "vtf", vtc => "vtc",
e => "decode", l => "plain", f => "plain", c => "plain", bg => "plain", cf => "plain", cvf => "plain",
ntvf => "plain", tvf => "plain", colspan => "plain", rowspan => "plain", cssc => "plain",
csss => "decode", mod => "plain", comment => "decode", b => "b");
our %cellAttribTypeLong = (e => "errors", l => "layout", f => "font", c => "color", bg => "bgcolor", cf => "cellformat",
ntvf => "nontextvalueformat", tvf => "textvalueformat", colspan => "colspan", rowspan => "rowspan", cssc => "cssc",
csss => "csss", mod => "mod", comment => "comment");
our %vlistNames = (layout => "layout", font => "font", color => "color", border => "borderstyle",
cellformat => "cellformat", valueformat => "valueformat");
#
# $newsheet = CreateSheet();
#
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
rowattribs => {hide => {}, height => {}},
colattribs => {hide => {}, width => {}},
names => {},
layouts => [],
layouthash => {},
fonts => [],
fonthash => {},
colors => [],
colorhash => {},
borderstyles => [],
borderstylehash => {},
cellformats => [],
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
$str .= ":b:$t:$r:$b:$l";
}
if ($cell->{layout}) {
$str .= ":l:$cell->{layout}";
}
if ($cell->{font}) {
$str .= ":f:$cell->{font}";
}
if ($cell->{color}) {
$str .= ":c:$cell->{color}";
}
if ($cell->{bgcolor}) {
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
hideRowsCols => 0, # pay attention to row/col hide settings (currently ignored)
cellIDprefix => "", # if non-null, each cell will render with an ID starting with this
defaultcolwidth => 80,
defaultlayout => "padding:2px 2px 1px 2px;vertical-align:top;",
globaldefaultfontstyle => "normal normal",
globaldefaultfontsize => "small",
globaldefaultfontfamily => "Verdana,Arial,Helvetica,sans-serif",
explicitStyles => {
skippedcell => "font-size:small;background-color:#CCC",
comment => "background-repeat:no-repeat;background-position:top right;background-image:url(images/sc-commentbg.gif);"
},
classnames => {
skippedcell => "",
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
cellskip => {}, # this-cell => coord of cell covering this cell (only for covered cells)
colwidth => [], # column widths, taking into account defaults
totalwidth => 0, # total table width
maxcol => 0, # max col to display, adding long spans, etc.
maxrow => 0, # max row to display, adding long spans, etc.
defaultfontstyle => "",
defaultfontsize => "",
defaultfontfamily => "",
fonts => [], # for each fontnum, {style: fs, weight: fw, size: fs, family: ff}
layouts => [], # for each layout, "padding:Tpx Rpx Bpx Lpx;vertical-align:va;"
};
}
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
#
# PrecomputeSheetFontsAndLayouts($context, $options)
#
# Fills out the fonts and layouts arrays in the context.
#
sub PrecomputeSheetFontsAndLayouts {
my ($context, $options) = @_;
my $sheet = $context->{sheet};
my $attribs = $sheet->{attribs};
if ($attribs->{defaultfont}) {
my $defaultfont = $sheet->{fonts}->[$attribs->{defaultfont}];
$defaultfont =~ s/^\*/$context->{globaldefaultfontstyle}/e;
$defaultfont =~ s/(.+)\*(.+)/$1.$context->{globaldefaultfontsize}.$2/e;
$defaultfont =~ s/\*$/$context->{globaldefaultfontfamily}/e;
$defaultfont =~ m/^(\S+? \S+?) (\S+?) (\S.*)$/;
$context->{defaultfontstyle} = $1;
$context->{defaultfontsize} = $2;
$context->{defaultfontfamily} = $3;
}
else {
$context->{defaultfontstyle} = $context->{globaldefaultfontstyle};
$context->{defaultfontsize} = $context->{globaldefaultfontsize};
$context->{defaultfontfamily} = $context->{globaldefaultfontfamily};
}
for (my $num=1; $num<@{$sheet->{fonts}}; $num++) { # precompute fonts by filling in the *'s
my $s = $sheet->{fonts}->[$num];
$s =~ s/^\*/$context->{defaultfontstyle}/e;
$s =~ s/(.+)\*(.+)/$1.$context->{defaultfontsize}.$2/e;
$s =~ s/\*$/$context->{defaultfontfamily}/e;
$s =~ m/^(\S+?) (\S+?) (\S+?) (\S.*)$/;
$context->{fonts}->[$num] = {style => $1, weight => $2, size => $3, family => $4};
}
my $layoutre = qr/^padding:\s*(\S+)\s+(\S+)\s+(\S+)\s+(\S+);vertical-align:\s*(\S+);/;
my @dparts = ($context->{defaultlayout} =~ m/$layoutre/);
my @sparts;
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
}
else {
$stylestr .= $context->{defaultlayout};
}
$num = $cell->{font} || $sheetattribs->{defaultfont};
if ($num) { # get expanded font strings in context
my $t = $context->{fonts}->[$num]; # do each - plain "font:" style sets all sorts of other values, too (Safari font-stretch problem on cssText)
$stylestr .= "font-style:$t->{style};\nfont-weight:$t->{weight};\nfont-size:$t->{size};\nfont-family:$t->{family};\n";
}
else {
if ($context->{defaultfontsize}) {
$stylestr .= "font-size:$context->{defaultfontsize};\n";
}
if ($context->{defaultfontfamily}) {
$stylestr .= "font-family:$context->{defaultfontfamily};\n";
}
}
$num = $cell->{color} || $sheetattribs->{defaultcolor};
if ($num) {
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
"daynames" => "Sunday Monday Tuesday Wednesday Thursday Friday Saturday",
"daynames3" => "Sun Mon Tue Wed Thu Fri Sat ",
"monthnames3" => "Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec",
"monthnames" => "January February March April May June July August September October November December",
"sheetdefaultlayoutstyle" => "padding:2px 2px 1px 2px;\nvertical-align:top;\n",
"sheetdefaultfontfamily" => "Verdana,Arial,Helvetica,sans-serif",
"linkformatstring" => '<span style="font-size:smaller;text-decoration:none !important;background-color:#66B;color:#FFF;">Link</span>', # you could make this an img tag if desired:
#"linkformatstring" => '<img border="0" src="http://www.domain.com/link.gif">',
"defaultformatdt" => 'd-mmm-yyyy h:mm:ss',
"defaultformatd" => 'd-mmm-yyyy',
"defaultformatt" => '[h]:mm:ss',
"displaytrue" => 'TRUE', # how TRUE shows when rendered
App-SourcePlot
view release on metacpan or search on metacpan
lib/App/SourcePlot.pm view on Meta::CPAN
-wrap => 'none',
-relief => 'flat',
-foreground => 'midnightblue',
-width => 50,
-height => 1,
-font => '-*-Courier-Medium-R-Normal--*-120-*-*-*-*-*-*',
-takefocus => 0,
)->grid(-sticky => 'ew', -row => 0);
my $title = sprintf "%5s %-16s %-12s %-13s %-4s", 'Index', 'Name',
'Ra', 'Dec', 'Epoc';
lib/App/SourcePlot.pm view on Meta::CPAN
-scrollbars => 'e',
-background => '#333333',
-wrap => 'none',
-width => 60,
-height => 15,
-font => '-*-Courier-Medium-R-Normal--*-120-*-*-*-*-*-*',
-setgrid => 1,
)->grid(-sticky => 'nsew', -row => 1);
$T->bindtags(qw/widget_demo/); # remove all bindings but dummy "widget_demo"
$topFrame->gridRowconfigure(1, -weight => 1);
lib/App/SourcePlot.pm view on Meta::CPAN
print " Setting the world coordinate system\n" if $locateBug;
$plotter->worldToPixRatio($xworldRatio, $yworldRatio);
$plotter->worldAtZero($minX, $minY);
# draw the grid lines - x axis
$plotter->fontColor('White');
$plotter->drawColor('dark green');
if (($special == 1) || ($special == 2)) {
# draw the angle grid lines
for (my $z = 0; $z < 360; $z += 15) {
my $tz = (90 - $z) * pi / 180;
lib/App/SourcePlot.pm view on Meta::CPAN
$plotter->drawBox($maxX, $bottom, $east, $top, 'foblack');
# plot the axes and graphs - last to make look neat
print " Plotting the grid border and labels\n" if $locateBug;
$plotter->drawColor('White');
$plotter->fontColor('White');
$plotter->drawLine($minX, $minY, $minX, $maxY, 'lwhite');
$plotter->drawLine($minX, $minY, $maxX, $minY, 'lwhite');
$plotter->drawLine($maxX, $minY, $maxX, $maxY, 'lwhite');
$plotter->drawLine($minX, $maxY, $maxX, $maxY, 'lwhite');
$plotter->raiseAbove('lwhite', 'foblack');
lib/App/SourcePlot.pm view on Meta::CPAN
my ($h, $m) = split /\./, $time;
$m = ('.' . $m) * 60;
$m = '0' . $m if $m < 10;
$h = '0' . $h if $h < 10;
$time = sprintf "%2s:%2s", $h, $m;
$plotter->fontColor('#ffff00');
$plotter->drawText($x, $y + 3, "$time", 'time' . $source->name());
$plotter->drawFillOval($x - 1, $y - 1, $x + 1, $y + 1, 'fo' . $source->name());
}
elsif ($r < 60 && defined $prevr && $prevr > 60) {
my $time = $timeH - 12 + int($i / 2) * (24 / ($NUM_POINTS - 1));
lib/App/SourcePlot.pm view on Meta::CPAN
$m = '0' . $m if $m < 10;
$h = '0' . $h if $h < 10;
$time = sprintf "%2s:%2s", $h, $m;
my $x2 = 90 + $prevr * cos $prevt;
my $y2 = 90 + $prevr * sin $prevt;
$plotter->fontColor('#ffff00');
$plotter->drawText($x2, $y2 + 3, "$time", 'time' . $source->name());
$plotter->drawFillOval($x2 - 1, $y2 - 1, $x2 + 1, $y2 + 1, 'fo' . $source->name());
}
$plotter->drawFillOval($x - .5, $y - .5, $x + .5, $y + .5, 'fo' . $source->name());
push @newpoints, $x;
lib/App/SourcePlot.pm view on Meta::CPAN
my $dr = $r - 90;
my $pdr = 90 - $prevr;
my $nt = $dr / ($dr + $pdr) * ($prevt - $theta) + $theta;
$x = 90 + 90 * cos $nt;
$y = 90 + 90 * sin $nt;
$plotter->fontColor($source->color());
$plotter->drawTextFromLeft($x + 5, $y, $source->name(), 't' . $source->name());
push @newpoints, $x;
push @newpoints, $y;
$plotter->drawSmoothLine(@newpoints, 'l' . $source->name());
@newpoints = ();
lib/App/SourcePlot.pm view on Meta::CPAN
$max = $points[$i];
$xm = $points[$i - 1];
}
}
my $ya = $plotter->toWy(5) - $plotter->toWy(0);
$plotter->fontColor($source->color());
$plotter->drawTextFromLeft($xm, $max - $ya, $source->name(), 't' . $source->name());
my @second = ();
my $prevx = $points[0];
my $prevy = $points[1];
lib/App/SourcePlot.pm view on Meta::CPAN
'<Any-Enter>' => sub {
$plotter->drawColor($source->color());
$plotter->drawFillOval($x2 - $sX, $y2 - $sY, $x2 + $sX, $y2 + $sY, 'ltimeDot' . $source->name());
# draw AZ-EL pointers
$plotter->drawColor('red');
$plotter->fontColor('red');
$plotter->penWidth(2);
$plotter->drawLine($x2 - $elex, $y2 - $eley, $x2, $y2, 'ltimeDot' . $source->name());
$plotter->drawLine($x2 - $azx, $y2 - $azy, $x2, $y2, 'ltimeDot' . $source->name());
$plotter->penWidth(1);
my ($xoff, $yoff) = $plotter->toW(7, 7);
lib/App/SourcePlot.pm view on Meta::CPAN
$plotter->drawLine($x2 + $bx, $y2 - $by, $x2 - $bx, $y2 - $by, 'ltimeDot' . $source->name());
$plotter->drawText($x2, $y2 - 1.2 * $by, 'R.A.', 'ltimeDot' . $source->name());
$plotter->drawText($x2 - 1.12 * $bx, $y2 + 0.2 * $by, 'D', 'ltimeDot' . $source->name());
$plotter->drawText($x2 - 1.1 * $bx, $y2, 'e', 'ltimeDot' . $source->name());
$plotter->drawText($x2 - 1.1 * $bx, $y2 - 0.2 * $by, 'c', 'ltimeDot' . $source->name());
$plotter->fontColor($source->color());
},
);
$plotter->bindTag(
'ltimeDot' . $source->name(),
'<Any-Leave>' => sub {
App-SpamcupNG
view release on metacpan or search on metacpan
lib/App/SpamcupNG/HTMLParse.pm view on Meta::CPAN
}
}
if ($parent) {
$parent->parent(undef);
@nodes = $parent->findnodes('//font');
if ( ( scalar(@nodes) != 1 )
or ( ref( $nodes[0] ) ne 'HTML::Element' ) )
{
confess 'Unexpected content of SPAM header: ' . Dumper(@nodes);
App-SpreadRevolutionaryDate
view release on metacpan or search on metacpan
lib/App/SpreadRevolutionaryDate/MsgMaker/RevolutionaryDate/Locale/fr.pm view on Meta::CPAN
},
2 => {
'alisier' => 'Sorbus_torminalis',
'macre' => 'Mâcre_nageante',
'chervi' => 'Chervis',
'cresson' => 'Cresson_de_fontaine',
'grenade' => 'Grenade_(fruit)',
'herse' => 'Herse_(agriculture)',
'bacchante' => 'Baccharis_halimifolia',
'garance' => 'Garance_des_teinturiers',
'orange' => 'Orange_(fruit)',
App-Standby
view release on metacpan or search on metacpan
share/res/css/bootstrap-responsive.css view on Meta::CPAN
.clearfix:after {
clear: both;
}
.hide-text {
font: 0/0 a;
color: transparent;
text-shadow: none;
background-color: transparent;
border: 0;
}
share/res/css/bootstrap-responsive.css view on Meta::CPAN
text-shadow: none;
}
.nav-collapse .nav > li > a,
.nav-collapse .dropdown-menu a {
padding: 9px 15px;
font-weight: bold;
color: #777777;
-webkit-border-radius: 3px;
-moz-border-radius: 3px;
border-radius: 3px;
}
.nav-collapse .btn {
padding: 4px 10px 4px;
font-weight: normal;
-webkit-border-radius: 4px;
-moz-border-radius: 4px;
border-radius: 4px;
}
.nav-collapse .dropdown-menu li + li a {
App-Tacochan
view release on metacpan or search on metacpan
bin/tacochan view on Meta::CPAN
background: #3b4653 !important;
}
table td.name {
width: 150px;
font-weight: bold;
}
div.docs {
margin: 2% auto 0 auto;
padding: 20px 0 5%;
App-Templer
view release on metacpan or search on metacpan
examples/complex/input/jquery.min.js view on Meta::CPAN
/*! jQuery v1.8.3 jquery.com | jquery.org/license */
(function(e,t){function _(e){var t=M[e]={};return v.each(e.split(y),function(e,n){t[n]=!0}),t}function H(e,n,r){if(r===t&&e.nodeType===1){var i="data-"+n.replace(P,"-$1").toLowerCase();r=e.getAttribute(i);if(typeof r=="string"){try{r=r==="true"?!0:r=...
App-Term2HTML
view release on metacpan or search on metacpan
t/02_basic.t view on Meta::CPAN
{
open my $IN, '<', \"\e[31mfoo\033[1;32mbar\033[0m";
local *STDIN = *$IN;
stdout_is {
App::Term2HTML->run('--inline-style');
} qq|<pre><span style="color: #f33;">foo</span><span style="font-weight: bold; color: #2c2;">bar</span></pre>\n|;
close $IN;
}
done_testing;
App-Test-Generator
view release on metacpan or search on metacpan
bin/test-generator-index view on Meta::CPAN
<!DOCTYPE html>
<html>
<head>
<title>$config{package_name} Coverage Report</title>
<style>
body { font-family: sans-serif; }
table { border-collapse: collapse; width: 100%; }
th, td { border: 1px solid #ccc; padding: 8px; text-align: left; }
th { background-color: #f2f2f2; }
.low { background-color: #fdd; }
.med { background-color: #ffd; }
bin/test-generator-index view on Meta::CPAN
cursor: pointer;
}
.coverage-badge {
padding: 2px 6px;
border-radius: 4px;
font-weight: bold;
color: white;
font-size: 0.9em;
}
.badge-good { background-color: #4CAF50; }
.badge-warn { background-color: #FFC107; }
.badge-bad { background-color: #F44336; }
.summary-row {
font-weight: bold;
background-color: #f0f0f0;
}
td.positive { color: green; font-weight: bold; }
td.negative { color: red; font-weight: bold; }
td.neutral { color: gray; }
/* Show cursor points on the headers to show that they are clickable */
th { background-color: #f2f2f2; cursor: pointer; }
th.sortable {
cursor: pointer;
user-select: none;
white-space: nowrap;
}
th .arrow {
color: #aaa; /* dimmed for inactive */
font-weight: normal;
}
th .arrow.active {
color: #000; /* dark for active */
font-weight: bold;
}
.sparkline {
display: inline-block;
vertical-align: middle;
}
bin/test-generator-index view on Meta::CPAN
color: #666;
}
.new-failure {
background: #c00;
color: #fff;
font-weight: bold;
padding: 2px 6px;
border-radius: 4px;
font-size: 0.85em;
}
.notice {
padding: 8px 12px;
margin: 10px 0;
border-radius: 4px;
font-size: 0.95em;
}
.notice strong {
font-weight: bold;
}
.notice.perl-version-cliff {
background-color: #fff3cd; /* soft amber */
border: 1px solid #ffeeba;
color: #856404;
bin/test-generator-index view on Meta::CPAN
display: true,
position: 'top', // You can also use 'bottom', 'left', or 'right'
labels: {
boxWidth: 12,
padding: 10,
font: {
size: 12,
weight: 'bold'
}
}
}, tooltip: {
bin/test-generator-index view on Meta::CPAN
}
push @html, '<footer>',
"\t<p>Project: <a href=\"https://github.com/$config{github_user}/$config{github_repo}\">$config{github_repo}</a></p>",
"\t<p><em>Last updated: $timestamp - <a href=\"$commit_url\">commit <code>$short_sha</code></a></em></p>",
"\t<p style=\"float: right; font-size: 0.85em; color: #999;\">Powered by <a href=\"https://metacpan.org/dist/App-Test-Generator\">App::Test::Generator $atg_version</a></p>",
'</footer>';
push @html, '</body>', '</html>';
# Write to index.html
bin/test-generator-index view on Meta::CPAN
/* --------------------------------------------------
Global Styles
-------------------------------------------------- */
body {
font-family: sans-serif;
background: var(--bg);
color: var(--text);
}
table {
bin/test-generator-index view on Meta::CPAN
.legend {
border: 1px solid #ccc;
background: #fafafa;
padding: 10px;
margin: 15px 0;
font-size: 0.9em;
}
.legend pre {
background: #f4f4f4;
padding: 5px;
bin/test-generator-index view on Meta::CPAN
border: 1px solid var(--border);
}
/* Label styling */
.suggest-label {
font-weight: bold;
margin-bottom: 4px;
}
/* Ensure the test code block inherits readable colors */
.suggested-test pre {
background: transparent; /* Prevent nested dark blocks */
color: inherit; /* Match theme text color */
margin: 0;
font-family: monospace;
}
pre { line-height: 1.4; }
pre > details {
bin/test-generator-index view on Meta::CPAN
color: var(--table-header-text);
padding: 6px 10px;
white-space: normal;
max-width: 300px;
min-width: 30ch;
font-size: 12px;
border-radius: 6px;
z-index: 1000;
margin-left: 10ch; /* move tooltip ~10 characters to the right */
}
.mutant-details {
margin-left: 2em;
font-size: 0.9em;
}
/* Indent the list of mutations that displays when expanding by 8 characters */
pre details.mutant-details ul {
padding-left: 8ch;
margin: 0.2em 0;
}
.mutant-details summary {
cursor: pointer;
font-weight: bold;
}
.lcsaj-dot {
color: #5555ff;
font-size: 10px;
margin-right: 3px;
}
.lcsaj-dot-uncovered {
color: #cc4444;
font-size: 10px;
margin-right: 3px;
}
.lcsaj-tip {
position: relative;
bin/test-generator-index view on Meta::CPAN
visibility: hidden;
background-color: #333;
color: #fff;
padding: 4px 8px;
border-radius: 4px;
font-size: 11px;
white-space: nowrap;
position: fixed;
z-index: 9999;
pointer-events: none;
}
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>
App-Tk-Deparse
view release on metacpan or search on metacpan
lib/App/Tk/Deparse.pm view on Meta::CPAN
use Tk::HyperText;
use Tk::BrowseEntry;
our $VERSION = '0.02';
# TODO: make fonts more readable
# TODO: Clear the output when we change the input (or maybe rerun the deparse process?)
# TODO: use nice temporary filename as we can see the name of the file with the -l flags
# TODO: Save window size upon exit; restore window size upon start
# TODO: If there is a syntax error in the code B::Deparse will fail. We sould display this.
lib/App/Tk/Deparse.pm view on Meta::CPAN
sub create_app {
my ($self) = @_;
$self->{incode} = $self->{top}->Text(
-state => 'normal',
-font => ['fixed', 12],
-bg => 'white',
);
$self->{incode}->bindtags([$self->{incode}, 'Tk::Text', $self->{top}, 'all']);
#$self->{incode}->bind('<<Modified>>' => sub { I could not get this working
$self->{incode}->bind('<Any-KeyPress>' => sub { $self->changed(shift); });
lib/App/Tk/Deparse.pm view on Meta::CPAN
$self->{"${flag}_flag"} = 0;
$self->{"${flag}_flag_checkbox"} = $self->{flags}->Checkbutton(
-text => "-$flag",
-variable => \$self->{"${flag}_flag"},
-font => ['fixed', 10],
-command => sub { $self->deparse },
);
$self->{"${flag}_flag_checkbox"}->pack(-side => 'left');
}
# $self->{"s_flag"} = '';
lib/App/Tk/Deparse.pm view on Meta::CPAN
# }
# $self->{"s_flag_widget"}->pack;
$self->{outcode} = $self->{top}->Text(
-state => 'disabled',
-font => ['fixed', 12],
);
$self->{outcode}->pack(-fill => 'both', -expand => 1);
$self->{deparse} = $self->{top}->Button(
App-USBKeyCopyCon
view release on metacpan or search on metacpan
lib/App/USBKeyCopyCon.pm view on Meta::CPAN
$dialog->set_default_size (90, 80);
my $panel = Gtk2::VBox->new(FALSE, 12);
my $title = Gtk2::Label->new;
$title->set_markup("<span font_desc='sans 20'> USB Key Copy Console </span>");
$title->set_selectable(TRUE);
$panel->pack_start($title, FALSE, FALSE, 10);
my $version = Gtk2::Label->new;
$version->set_markup("<span font_desc='sans 16'>Version: $VERSION</span>");
$version->set_selectable(TRUE);
$panel->pack_start($version, FALSE, FALSE, 0);
my $author = Gtk2::Label->new;
my $detail = '(c) 2009 Grant McLean <grantm@cpan.org>';
$author->set_markup(" <span font_desc='sans 10'>$detail</span> ");
$author->set_selectable(TRUE);
$panel->pack_start($author, FALSE, FALSE, 10);
$dialog->vbox->pack_start($panel, FALSE, FALSE, 4);
$dialog->show_all;
( run in 1.840 second using v1.01-cache-2.11-cpan-ceb78f64989 )