Result:
found more than 356 distributions - search limited to the first 2001 files matching your query ( run in 1.609 )


App-MFILE-WWW

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  dform, or dbrowser is started

0.129  2014-10-13 15:25 CEST
- WWW.pm: work on POD
- core/html.js, css/start.css: rework CSS code in light of
  http://stackoverflow.com/questions/26339186/different-font-sizes-and-justifications-on-a-single-line
  and get rid of several deprecated classes
- mfile-www/lib.js: tweak notices line

0.130  2014-10-13 15:52 CEST
- start.css: fix bug "#result element has fixed height, causing text to

 view all matches for this distribution


App-MHFS

 view release on metacpan or  search on metacpan

share/public_html/index.html  view on Meta::CPAN

<head>
    <style>
    body {
        color: #ababab;
        background: #000;
        font-family: Segoe UI, Helvetica, Arial, Sans-Serif;
    }
    
    h2 {
        display: block;
        font-size: 2em;
        margin-block-start: 0.67em;
        margin-block-end: 0.67em;
        margin-inline-start: 0px;
        margin-inline-end: 0px;
        font-weight: bold;
    }

    </style>
</head>

 view all matches for this distribution


App-MaMGal

 view release on metacpan or  search on metacpan

lib/App/MaMGal/Formatter.pm  view on Meta::CPAN

sub stylesheet
{
	my $t = <<END;
table.index { width: 100% }
.entry_cell { text-align: center }
.slide_desc     { font-weight: bold }
.slide_filename { font-family: monospace }
.filename { font-family: monospace }
.curdir { font-size: xx-large; font-weight: normal }
.date { font-size: small }
.time { font-size: small }
END
	return $t;
}

1;

 view all matches for this distribution



App-Math-Tutor

 view release on metacpan or  search on metacpan

share/onecolmlsol.tt2  view on Meta::CPAN

[%- MACRO Content BLOCK -%]
\documentclass[a4paper,10pt,final]{article}
\usepackage{a4wide}
\usepackage[a4paper,tmargin=1cm,lmargin=2.5cm,rmargin=1cm,includehead,includefoot,headheight=1cm]{geometry}
\usepackage[T1]{fontenc}
\usepackage{layouts} % for layout analyse

%\usepackage[math]{cellspace}
\usepackage{amsfonts}
\usepackage{amssymb}
\usepackage{amsmath}
\usepackage{mathtools}
\usepackage{eurosym}

share/onecolmlsol.tt2  view on Meta::CPAN

		left = 1,
		data = exercises.challenges,
		type = 'longtable',
		coldef = 'p{16cm}',
#		eor = '\\\\[0.8em]',
 		fontsize = 'footnotesize',
	      )
-%]

\newpage

share/onecolmlsol.tt2  view on Meta::CPAN

		left = 1,
		data = solutions,
		type = 'longtable',
		coldef = 'p{16cm}',
#		eor = '\\\\[0.8em]\\hline',
 		fontsize = 'footnotesize',
	      )
-%]

\end{document}
[%- END -%]

 view all matches for this distribution


App-MediaPi

 view release on metacpan or  search on metacpan

script/mediapi  view on Meta::CPAN

my $media_control_frame = $wnd->new_ttk__frame(-borderwidth => 5); # The border is here only to debug
$media_control_frame->g_grid(-column => 0, -row => 0, -sticky => 'nswe');
$wnd->g_grid_columnconfigure(0, -weight => 1);
$wnd->g_grid_rowconfigure(0, -weight => 1);

# The default font does not have the media control glyphs. So let’s create a
# style using Unifont that has almost all glyphs.
# Useful link: https://en.wikipedia.org/wiki/Media_control_symbols
Tkx::ttk__style_configure('Unicode.TButton', -font => 'Unifont 15');

$media_control_frame->g_grid_columnconfigure(0, -weight => 1);
$media_control_frame->g_grid_columnconfigure(1, -weight => 1);
$media_control_frame->g_grid_rowconfigure(0, -weight => 1);
$media_control_frame->g_grid_rowconfigure(1, -weight => 1);

 view all matches for this distribution


App-Mimosa

 view release on metacpan or  search on metacpan

root/css/error.css  view on Meta::CPAN

body {
    font-family: Lucida,sans-serif;
}

h1 {
    color: #AA0000;
    border-bottom: 1px solid #444;
}

h2 { color: #444; }

pre {
    font-family: "lucida console","monaco","andale mono","bitstream vera sans mono","consolas",monospace;
    font-size: 12px;
    border-left: 2px solid #777;
    padding-left: 1em;
}

footer {
    font-size: 10px;
}

span.key {
    color: #449;
    font-weight: bold;
    width: 120px;
    display: inline;
}

span.value {

root/css/error.css  view on Meta::CPAN

    border-top: 0;
    margin-bottom: 1em;
}

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


App-MojoSlides

 view release on metacpan or  search on metacpan

lib/App/MojoSlides/files/public/bootstrap.min.css  view on Meta::CPAN

 * Copyright 2013 Twitter, Inc
 * Licensed under the Apache License v2.0
 * http://www.apache.org/licenses/LICENSE-2.0
 *
 * Designed and built with all the love in the world by @mdo and @fat.
 *//*! normalize.css v2.1.0 | MIT License | git.io/normalize */article,aside,details,figcaption,figure,footer,header,hgroup,main,nav,section,summary{display:block}audio,canvas,video{display:inline-block}audio:not([controls]){display:none;height:0}[hi...

 view all matches for this distribution


App-Mowyw

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN


The standard CSS classes are:
.synComment    { color: #0000FF }
.synConstant   { color: #FF00FF }
.synIdentifier { color: #008B8B }
.synStatement  { color: #A52A2A ; font-weight: bold }
.synPreProc    { color: #A020F0 }
.synType       { color: #2E8B57 ; font-weight: bold }
.synSpecial    { color: #6A5ACD }
.synUnderlined { color: #000000 ; text-decoration: underline }
.synError      { color: #FFFFFF ; background: #FF0000 none }
.synTodo       { color: #0000FF ; background: #FFFF00 none }

 view all matches for this distribution


App-Music-ChordPro-Wx

 view release on metacpan or  search on metacpan

lib/App/Music/ChordPro/Wx/Main.pm  view on Meta::CPAN

    $self;
}

use constant FONTSIZE => 12;

my @fonts =
  ( { name => "Monospace",
      font => Wx::Font->new( FONTSIZE, wxFONTFAMILY_TELETYPE,
			     wxFONTSTYLE_NORMAL,
			     wxFONTWEIGHT_NORMAL ),
    },
    { name => "Serif",
      font => Wx::Font->new( FONTSIZE, wxFONTFAMILY_ROMAN,
			     wxFONTSTYLE_NORMAL,
			     wxFONTWEIGHT_NORMAL ),
    },
    { name => "Sans serif",
      font => Wx::Font->new( FONTSIZE, wxFONTFAMILY_SWISS,
			     wxFONTSTYLE_NORMAL,
			     wxFONTWEIGHT_NORMAL ),
    },
  );

lib/App/Music/ChordPro/Wx/Main.pm  view on Meta::CPAN

       xcode => "",
       notation => "",
       skipstdcfg => 1,
       configfile => "",
       pdfviewer => "",
       editfont => 0,
       editsize => FONTSIZE,
      };

    if ( $^O =~ /^mswin/i ) {
	Wx::ConfigBase::Get->SetPath("/wxchordpro");

lib/App/Music/ChordPro/Wx/Main.pm  view on Meta::CPAN

    $self->{_verbose} = $options->{verbose};
    $self->{_trace}   = $options->{trace};
    $self->{_debug}   = $options->{debug};

    $self->GetPreferences;
    my $font = $fonts[$self->{prefs_editfont}]->{font};
    $font->SetPointSize($self->{prefs_editsize});
    $self->{t_source}->SetFont($font);

    # Disable menu items if we cannot.
    $self->{main_menubar}->FindItem(wxID_UNDO)
      ->Enable($self->{t_source}->CanUndo);
    $self->{main_menubar}->FindItem(wxID_REDO)

lib/App/Music/ChordPro/Wx/Main.pm  view on Meta::CPAN

	}
    }
    return $notationlist;
}

sub fonts { \@fonts }

sub opendialog {
    my ($self) = @_;
    my $fd = Wx::FileDialog->new
      ($self, _T("Choose ChordPro file"),

 view all matches for this distribution


App-Music-ChordPro

 view release on metacpan or  search on metacpan

lib/ChordPro.pm  view on Meta::CPAN

B<Note:> Chordii used the term _grid_ for chord diagrams. It
should not be confused with ChordPro grids.

=over 4

=item B<--text-font=>I<FONT> (short: B<-T>) *

Sets the font used to print lyrics and comments.

I<FONT> can be either a full path name to a TrueType font file, or the
name of one of the standard fonts. See section L</FONTS> for more
details.

=item B<--text-size=>I<N> (short: B<-t>) *

Sets the font size for lyrics and comments.

=item B<--chord-font=>I<FONT> (short: B<-C>) *

Sets the font used to print the chord names.

I<FONT> can be either a full path name to a TrueType font file, or the
name of one of the standard fonts. See section L</FONTS> for more
details.

=item B<--chord-size=>I<N> (short: B<-c>) *

Sets the font size for the chord names.

=item B<--chord-grid-size=>I<N> (short: B<-s>) *

Sets the total width of a chord diagram.

lib/ChordPro.pm  view on Meta::CPAN

The default user config file depends on the operating system and user
environment. Common values are C<$HOME/.config/chordpro/chordpro.json>
and C<$HOME/.chordpro/chordpro.json>, where C<$HOME> indicates the
user home directory.

Here you can put settings for your preferred fonts and other layout
parameters that you want to apply to all B<chordpro> runs.

=item B<--nouserconfig>

Don't use the user specific config file, even if it exists.

lib/ChordPro.pm  view on Meta::CPAN

	  "progress_callback=s",

	  ### Standard Chordii Options ###

          "about|A+" => \$about,        # About...
          "chord-font|C=s",             # Sets chord font
          "chord-grid-size|s=f",        # Sets chord diagram size [30]
          "chord-grids-sorted|S!",      # Prints chord diagrams ordered
          "chord-size|c=i",             # Sets chord size [9]
          "dump-chords|D",              # Dumps chords definitions (PostScript)
          "dump-chords-text|d" => \$dump_chords,  # Dumps chords definitions (Text)

lib/ChordPro.pm  view on Meta::CPAN

          "page-number-logical|n",      # Numbers logical pages, not physical
          "page-size|P=s",              # Specifies page size [letter, a4 (default)]
          "single-space|a!",            # Automatic single space lines without chords
          "start-page-number|p=i",      # Starting page number [1]
          "text-size|t=i",              # Sets text size [12]
          "text-font|T=s",              # Sets text font
          "i" => sub { $clo->{toc} = 1 },
          "toc!",                       # Generates a table of contents
          "transpose|x=s",              # Transposes by N semi-tones
          "transcode|xc=s",             # Transcodes to another notation
          "user-chord-grids!",          # Do[esn't] print diagrams for user defined chords.

lib/ChordPro.pm  view on Meta::CPAN

	$msg .= sprintf( $fmt2, $tag, $_->{dppath} );
	$tag = "";
    }

    $tag = "FONTDIR";
    for ( @{$i{general}{fontdir}//[]} ) {
	next unless defined;
	$msg .= sprintf( $fmt2, $tag, $_->{dppath} );
	$tag = "";
    }

lib/ChordPro.pm  view on Meta::CPAN

	}
    }

    if ( defined $ENV{FONTDIR} ) {
	for ( $cp->path($ENV{FONTDIR}) ) {
	    push( @{$res->{general}{fontdir}},
		  { path   => $_,
		    dppath => $cp->display($_) } );
	}
    }

lib/ChordPro.pm  view on Meta::CPAN

    --transpose=N  -x             Transposes by N semi-tones
    --version  -V                 Prints version and exits

Chordii compatibility.
Options marked with * are better handled in the config file.
    --chord-font=FONT  -C         *Sets chord font
    --chord-grid-size=N  -s       *Sets chord diagram size [30]
    --chord-grids-sorted  -S      *Prints chord diagrams ordered by key
    --chord-size=N  -c            *Sets chord size [9]
    --dump-chords  -D             Dumps chords definitions (PDF)
    --dump-chords-text  -d        Dumps chords definitions (Text)

lib/ChordPro.pm  view on Meta::CPAN

    --no-easy-chord-grids  -g     Not supported
    --page-number-logical  -n     Not supported
    --page-size=FMT  -P           *Specifies page size [letter, a4 (default)]
    --single-space  -a            *Automatic single space lines without chords
    --text-size=N  -t             *Sets text size [12]
    --text-font=FONT  -T          *Sets text font
    --user-chord-grids		  *Prints the user defined chords in the song
    --vertical-space=N  -w        *Extra vertical space between lines
    --2-up  -2                    Not supported
    --4-up  -4                    Not supported

lib/ChordPro.pm  view on Meta::CPAN

    exit $exit if defined $exit;
}

=head1 FONTS

There are two ways to specify fonts: with a font filename, and a
built-in font name.

A font filename must be either and absolute filename, or a relative
filename which is interpreted relative to the I<font path>, which
consists of configuration setting C<fontdir>, the C<fonts> resource
dir, and the contents of environment variable C<FONTDIR>. In any case,
the filename should point to a valid TrueType (C<.ttf>) or OpenType
(C<.otf>) font.

If it is not a filename, it must be the name one of the built-in PDF core fonts:

  Courier                             Symbol
  Courier-Bold                        Times-Bold
  Courier-BoldOblique                 Times-BoldItalic
  Courier-Oblique                     Times-Italic

lib/ChordPro.pm  view on Meta::CPAN


* User defined chords and tuning, not limited to 6 strings.

* Support for Nashville Numbering and Roman Numbering.

* Support for external TrueType and OpenType fonts

* Font kerning (with external TrueType fonts)

* Fully customizable layout, fonts and sizes

* Customizable backends for PDF, ChordPro, LilyPond*, LaTeX* and HTML*.

(* = under development)

 view all matches for this distribution


App-Music-PlayTab

 view release on metacpan or  search on metacpan

lib/App/Music/PlayTab/Output/PDF.pm  view on Meta::CPAN

    marginleft    => 50,
    margintop     => 40,
    marginbottom  => 50,
    marginright   => 45,	# only used for page number!
    lineheight    => 15,
    fonts         => {
		      title    => { name => 'Helvetica',
				    file => 'ArialMT.ttf',
				    size => 16 },
		      subtitle => { name => 'Helvetica',
				    file => 'ArialMT.ttf',

lib/App/Music/PlayTab/Output/PDF.pm  view on Meta::CPAN

# Init the backend.
sub setup {
    my ( $self, $args, $title ) = @_;

    @delta_values = ( 0, 0, 0 );
    $ps->{fonts}->{chord} = $ps->{fonts}->{chord_n};
    @mediabox = ( 0, 0, @{ $ps->{papersize} } );

    if ( $args->{opus}->{globalsettings} ) {
	$self->globalsettings( $args->{opus}->{globalsettings} );
    }

    my $options = { pagedefs_default => { pdf => $ps } };
    $self->pagesettings($options);
    $ps = $self->{ps};

    # Add font dirs.
    for my $fontdir ( $self->{fontdir}, ::findlib("fonts"), $ENV{FONTDIR} ) {
	next unless $fontdir;
	if ( -d $fontdir ) {
	    warn("PDF: Adding fontdir $fontdir\n");
	    PDF::API2::addFontDirs($fontdir);
	}
	else {
	    warn("PDF: Ignoring fontdir $fontdir [$!]\n");
	    undef $fontdir;
	}
    }

    $self->initfonts($options);

    unless ( $pr ) {
	$pr = PDFWriter->new;

	my @tm = gmtime(time);

lib/App/Music/PlayTab/Output/PDF.pm  view on Meta::CPAN

    }

    # newline() is called before setup_line(). Supply standard value.
    $yd = -15;

    $f_chord = $ps->{fonts}->{chord};
    $f_msyms = $ps->{fonts}->{msyms};
}

sub globalsettings {
    my ( $self, $args ) = @_;

lib/App/Music/PlayTab/Output/PDF.pm  view on Meta::CPAN

	    my $media = $1;
	    if ( $media eq "800x1280" ) {
		# 800x1280 Samsung Galaxy Note 10.1 tablet.
		@delta_values = ( -4, 2, 4 );
		$condensed  = 1;
		$ps->{fonts}->{chord} = $ps->{fonts}->{chord_cn};
		@mediabox = map { $_ * (72/150) } 80, 435, 800, 1280;
		$mediabox[2] += $mediabox[0];
		$mediabox[3] += $mediabox[1];
	    }
	    elsif ( $media =~ /^(ipad|960x1280)$/ ) {
		# 768x1024 iPad2.
		@delta_values = ( -7, 2, -10 );
		$condensed = 0;
		$ps->{fonts}->{chord} = $ps->{fonts}->{chord_cn};
		@mediabox = map { $_ * (72/150) } 70, 440, 960, 1280;
		$mediabox[2] += $mediabox[0];
		$mediabox[3] += $mediabox[1];
	    }
	    elsif ( $media eq "768x1024" ) {
		# 768x1024 iPad2.
		@delta_values = ( -12, 3, -10 );
		$ps->{fonts}->{chord} = $ps->{fonts}->{chord_cn};
		@mediabox = map { $_ * (72/150) } 90, 685, 768, 1024;
		$mediabox[2] += $mediabox[0];
		$mediabox[3] += $mediabox[1];
	    }
	    else {

lib/App/Music/PlayTab/Output/PDF.pm  view on Meta::CPAN

	    next;
	}
	if ( $arg eq "narrow" ) { #### IN PROGRESS
	    @delta_values = ( -4, 1, 4 );
	    $condensed = 1;
	    $ps->{fonts}->{chord} = $ps->{fonts}->{chord_cn};
	    @mediabox = map { $_ * (72/150) } 70, 440, 800, 1280;
	    $mediabox[2] += $mediabox[0];
	    $mediabox[3] += $mediabox[1];
	    next;
	}
	if ( $arg eq "condensed" ) {
	    $ps->{fonts}->{chord} = $ps->{fonts}->{chord_cn};
	    next;
	}
    }
}

lib/App/Music/PlayTab/Output/PDF.pm  view on Meta::CPAN


sub bar {
    my ( $self, $first ) = @_;
    $self->checkvspace;
    $pr->vline( $x + $md, $y + 13, 16 );
    $pr->rtext( $x + $md - 2, $y + 9, $barno, $ps->{fonts}->{barno} )
      if $first && defined($barno);
    $x += 4;
}

sub chord {

lib/App/Music/PlayTab/Output/PDF.pm  view on Meta::CPAN

    $y += $yd;
    $y += ($xtra-1)*$yd if defined $xtra;
}

sub text {
    my ( $self, $text, $xxmd, $font ) = @_;
    $font ||= $ps->{fonts}->{subtitle};
    $xxmd ||= 0;
    $self->checkvspace;
    $pr->text( $x + $xxmd, $y, $text, $font );
}

sub postfix {
    my ( $self, $text ) = @_;
    $x += 4;

lib/App/Music/PlayTab/Output/PDF.pm  view on Meta::CPAN

    $x = $ps->{marginleft};
    $y = $ps->{papersize}->[1] - $ps->{margintop};
    $pdf_page = $first ? 1 : $pdf_page+1;

    # Print title header.
    $pr->text( $x, $y, $self->{title} = $title, $ps->{fonts}->{title} );

    # Add page number, if not first (or only) page.
    if ( $pdf_page > 1 ) {
	$pr->rtext( $ps->{papersize}->[0] - $ps->{marginright}, $y,
		    "Page $pdf_page",
		    $ps->{fonts}->{subtitle} );
    }
    $self->newline;

    # Add subtitles, if any,
    foreach ( @$stitles ) {
	$pr->text( $x, $y, $_, $ps->{fonts}->{subtitle} );
	$self->newline;
    }

    # And finally some vertical space.
    $self->newline(2);

lib/App/Music/PlayTab/Output/PDF.pm  view on Meta::CPAN

#
# Copied from GImager.

use JSON::PP ();

# Setup fonts.
sub initfonts {
    my ( $self ) = @_;
}

# API: pagesettings (inheritable)
sub pagesettings {

lib/App/Music/PlayTab/Output/PDF.pm  view on Meta::CPAN

      };

    # Use fallback values, if necessary.
    $ret->{pdf}->{$_} ||= $def->{$_} foreach keys(%$def);

    my $stdfonts =
      { text    => {
		    name => 'Times-Roman',
		    size => 12,
		    fallback => "/home/jv/.fonts/TimesNewRomanPSMT.ttf",
		   },
      };

    # Use fallback fonts, if necessary.
    $ret->{pdf}->{fonts}->{$_} ||= $stdfonts->{$_} foreach keys(%$stdfonts);

    unless ( eval { $ret->{pdf}->{papersize}->[0] } ) {
	require PDF::API2::Resource::PaperSizes;
	my %ps = PDF::API2::Resource::PaperSizes->get_paper_sizes;
	$ret->{pdf}->{papersize} = $ps{lc $ret->{pdf}->{papersize}}

lib/App/Music/PlayTab/Output/PDF.pm  view on Meta::CPAN


################  App::Music::PlayTab::Note ################

package App::Music::PlayTab::Note;

# Glyph mappings of the MSyms font.
use constant MS_SHARP    => "\x{0021}";
use constant MS_FLAT     => "\x{0022}";
use constant MS_NATURAL  => "\x{0023}";

sub render {

lib/App/Music/PlayTab/Output/PDF.pm  view on Meta::CPAN


sub render_small {
    my ($self) = @_;
    my $name = $self->name;

    $chord_small ||= 0.7 * $ps->{fonts}->{chord}->{size};
    $msym_small  ||= 0.7 * 25;
    my $width;

    if ( $name =~ /(.)b/ ) {
	$width = $pr->strwidth( $1, $f_chord, $chord_small );

lib/App/Music/PlayTab/Output/PDF.pm  view on Meta::CPAN


################ App::Music::PlayTab::Chord ################

package App::Music::PlayTab::Chord;

# Glyph mappings of the MSyms font.
use constant MS_SHARP    => "\x{0021}";
use constant MS_FLAT     => "\x{0022}";
use constant MS_DIM      => "\x{0027}";
use constant MS_HDIM     => "\x{0028}";
use constant MS_AUG      => "\x{0029}";

lib/App/Music/PlayTab/Output/PDF.pm  view on Meta::CPAN

use strict;
use warnings;
use PDF::API2;
use Encode;

my %fonts;

# Glyph mappings of the MSyms font.
use constant MS_FBFILLED => "\x{002e}";
use constant MS_FBX      => "\x{002f}";
use constant MS_FBOPEN   => "\x{0030}";

sub new {

lib/App/Music/PlayTab/Output/PDF.pm  view on Meta::CPAN

    goto &_text;
}

sub msym {
    my ( $self, $x, $y, $sym, $size ) = @_;
    my $font = $f_msyms;
    $size ||= $font->{size};
    $self->setfont($font, $size);
    $self->{pdftext}->translate( $x, $y );
    $self->{pdftext}->text($sym);
}

my %msymwidth;

lib/App/Music/PlayTab/Output/PDF.pm  view on Meta::CPAN

sub msymwidth {
    my ( $self, $sym, $size ) = @_;
    my $key = $sym;
    $key .= "\0$size" if defined $size;
    $msymwidth{$key} ||= do {
	my $font = $f_msyms;
	$size ||= $font->{size};
	$self->setfont($font, $size);
	$self->{pdftext}->advancewidth($sym);
    };
}

sub _text {
    my ( $self, $align, $x, $y, $text, $font, $size ) = @_;

    $font ||= $self->{font};
    $size ||= $font->{size};
    $self->setfont($font, $size);

#    $text = encode( "cp1250", $text ) unless $font->{file}; # #### TODO ???
    $text =~ s/'/’/g;		# '/;

    $text =~ s/\x{2007}/  /g;	# Figure space.

    if ( 0 ) {
	warn( "TEXT: ",
	      '"', $text, '" [ ',
	      defined $x ? "x=$x " : "",
	      defined $y ? "y=$y " : "",
	      $font->{name} ? "font=".($font->{name})." " : "",
	      $size ? "size=$size " : "",
	      "]\n" );
    }

    $self->{pdftext}->translate( $x, $y );

lib/App/Music/PlayTab/Output/PDF.pm  view on Meta::CPAN

    else {
	$self->{pdftext}->text_center($text);
    }
}

sub setfont {
    my ( $self, $font, $size ) = @_;
    $self->{font} = $font;
    $self->{fontsize} = $size ||= $font->{size};
    $self->{pdftext}->font( $self->_getfont($font), $size );
}

sub _getfont {
    my ( $self, $font ) = @_;
    $self->{font} = $font;

    if ( $font->{file} ) {
	return $fonts{$font->{file}} if $fonts{$font->{file}};

	my $fn = $font->{file};
	warn("PDF: Adding font $fn\n");
	$fn =~ s;^.*/([^/]+)$;$1;;
	if ( $font->{file} =~ /\.ttf$/ ) {
	    return $fonts{$font->{file}} =
	      $self->{pdf}->ttfont( $fn,
				    -dokern => 1 );
	}

	if ( $font->{file} =~ /(^.*)\.pf[ab]$/ ) {
	    my $metrics = "$1.afm";
	    return $fonts{$font->{file}} =
	      $self->{pdf}->psfont( $fn,
				    -afmfile => "$metrics",
				    -dokern => $font->{file} !~ /msyms/i );
	}
    }
    else {
	return $fonts{$font->{name}} ||=
	  $self->{pdf}->corefont( $font->{name} );
    }
}

my %strwidth;

sub strwidth {
    my ( $self, $text, $font, $size ) = @_;
    $font ||= $self->{font};
    $size ||= $font->{size};
    my $key = "$text\0$font\0$size";
    $strwidth{$key} ||= do {
	$self->setfont( $font, $size );
	$self->{pdftext}->advancewidth($text);
    };
}

sub newpage {

 view all matches for this distribution


App-Mxpress-PDF

 view release on metacpan or  search on metacpan

filedb/styles/demo-A4.txt  view on Meta::CPAN

	},
	"cover": {
		"columns": 1
	},
	"toc": {
		"font": {
			"colour": "#00f"
		}
	},
	"title": {
		"margin_bottom": 3

 view all matches for this distribution


App-Nag

 view release on metacpan or  search on metacpan

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

    require File::Temp;

    my $phrase    = PHRASE->[$verbosity];
    my $fill      = FILL->[$verbosity];
    my $stroke    = STROKE->[$verbosity];
    my $font_size = FONT_SIZE->[$verbosity];
    my ( $x, $y ) = @{ XY->[$verbosity] };
    my $text = <<END;
<?xml version="1.0" encoding="utf-8" standalone="no"?>
<!-- 
Created by $name with some help from Inkscape (http://www.inkscape.org/) 

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

version="1.1">
  <g id="layer1">
    <rect style="fill:#$fill;fill-rule:evenodd;stroke:#$stroke;stroke-width:3px;stroke-linecap:butt;stroke-linejoin:round;stroke-opacity:1"
    id="rect2993" width="62" height="62" x="1" y="1" />
    <text xml:space="preserve"
    style="font-size:${font_size}px;font-style:normal;font-weight:bold;line-height:125%;letter-spacing:0px;word-spacing:0px;fill:#$stroke;fill-opacity:1;stroke:none;font-family:Monospace;opacity:1"
x="12.525171" y="28.595528" id="text3763">
<tspan id="tspan3765" x="$x" y="$y">$phrase</tspan>
</text>
  </g>
</svg>

 view all matches for this distribution


App-Navegante

 view release on metacpan or  search on metacpan

lib/App/Navegante/CGI.pm  view on Meta::CPAN

        $_ =~ m/\s*(.*?)\s*=>\s*(.*)/;
        $hash{$1} = $2;
    }
    foreach (keys %hash) {
      if ($hash{$_} eq 'submit') {
          $h .= "<input style='font-size: 65%;' type='$hash{$_}' value='".eval($_)."'><br />";
          next;
      }
      $h .= "<input style='font-size: 65%;' type='$hash{$_}' size='10' name='$_'><br />";
    }

$h.=<<'END_IFORM';
</center></form>
</div>

 view all matches for this distribution


App-Netdisco

 view release on metacpan or  search on metacpan

lib/App/Netdisco/Util/Graph.pm  view on Meta::CPAN


    my $graph_defs = {
                     'bgcolor' => $CONFIG{graph_bg}         || 'black',
                     'color'   => $CONFIG{graph_color}      || 'white',
                     'overlap' => $CONFIG{graph_overlap}    || 'scale',
                     'fontpath'=> _homepath('graph_fontpath',''),
                     'ranksep' => $CONFIG{graph_ranksep}    || 0.3,
                     'nodesep' => $CONFIG{graph_nodesep}    || 2,
                     'ratio'   => $CONFIG{graph_ratio}      || 'compress',
                     'splines' => ($CONFIG{graph_splines} ? 'true' : 'false'),
                     'fontcolor' => $CONFIG{node_fontcolor} || 'white',
                     'fontname'  => $CONFIG{node_font}      || 'lucon',
                     'fontsize'  => $CONFIG{node_fontsize}  || 12,
                     };
    my $edge_defs  = {
                     'color' => $CONFIG{edge_color}         || 'wheat',
                     };
    my $node_defs  = {
                     'shape'     => $CONFIG{node_shape}     || 'box',
                     'fillcolor' => $CONFIG{node_fillcolor} || 'dimgrey',
                     'fontcolor' => $CONFIG{node_fontcolor} || 'white',
                     'style'     => $CONFIG{node_style}     || 'filled',
                     'fontname'  => $CONFIG{node_font}      || 'lucon',
                     'fontsize'  => $CONFIG{node_fontsize}  || 12,
                     'fixedsize' => ($CONFIG{node_fixedsize} ? 'true' : 'false'),
                     };
    $node_defs->{height} = $CONFIG{node_height} if defined $CONFIG{node_height};
    $node_defs->{width}  = $CONFIG{node_width}  if defined $CONFIG{node_width};

 view all matches for this distribution


App-Netsync

 view release on metacpan or  search on metacpan

doc/algorithm.svg  view on Meta::CPAN

<svg xmlns="http://www.w3.org/2000/svg" width="642px" height="1144px" xmlns:xlink="http://www.w3.org/1999/xlink" version="1.1"><defs><linearGradient x1="0%" y1="0%" x2="0%" y2="100%" id="mx-gradient-ffffff-1-e6e6e6-1-s-0"><stop offset="0%" style="sto...

 view all matches for this distribution


App-NoodlePay

 view release on metacpan or  search on metacpan

bin/noodlepay.pl  view on Meta::CPAN

    my $qrxpm = GD::Barcode::QRcode->new($text, { Version => $version, Ecc => L, ModuleSize => 4 })->barcode;
    $qrxpm =~ /^(.*)$/m; my $qrsize = length($1);
    $qr = Wx::Bitmap->newFromXPM([ split /\n/, "$qrsize $qrsize 2 1\n0 c #FFFFFF\n1 c #000000\n$qrxpm" ]);
  }
  if (defined $qr) {
    my $fontheight = $frame->GetCharHeight;
    $msg = "\n" x ($qr->GetHeight / $fontheight) . "\n\n$msgtxt";
    $dialog = Wx::TextEntryDialog->new($frame, $msg , $title, $text);
    my $dialog_height = $dialog->GetSize->GetHeight;
    my $dialogwidth = $dialog->GetSize->GetWidth;
    my $qrheight = $qr->GetHeight; my $width = $qrheight + 20 > $dialogwidth ? $qrheight + 20 : $dialogwidth;
    my $adjust = 10 unless $^O eq 'MSWin32' or $^O eq 'darwin';

 view all matches for this distribution


App-Nopaste

 view release on metacpan or  search on metacpan

t/002-encoding.t  view on Meta::CPAN

      <tr>
      <td>
       <img src="http://paste.scsys.co.uk/static/nopaste.gif" alt="POE Paste with lovely alien head...">
        </td>
        <td align="left">
         <h1><font face="courier new">No paste!</font></h1>
         <font face="courier new" size="-1">
          1. Select the channel for the URL announcment.<br>
          2. Supply a nick for the announcement.<br>
          3. Supply an summary of the paste for the announcement<br>
          4. <b>Paste!</b><br>
          5. Submit the form with the Paste it! button.<br>
        </font>
       </td>
      </tr>
     </table>
    <form method='post' action='http://paste.scsys.co.uk/paste' enctype='application/x-www-from-urlencoded' name="pasteForm">
     <font face="courier new" size="-1"><br><br>
      1. channel: <select name='channel'><option value="" selected>(none)</option> <option value="#angerwhale">#angerwhale</option> <option value="#axkit-dahut">#axkit-dahut</option> <option value="#catalyst">#catalyst</option> <option value="#cataly...
      2. your nick: <input type='text' name='nick' size='25' maxlength='25'><br><br>
      3. summary: <input type='text' name='summary' size='80' maxlength='160'><br><br>
      4. paste: <textarea name='paste' rows=25 cols=75 style='width:100%'></textarea><br><br>
      5. <input type='submit' name='Paste it' value='Paste it'><input type='reset' name='Clear form' value='Clear form'>
     </font>
    </form><br>
    <div align="right">
     <a href="http://validator.w3.org/check/referer"><img border="0" src="http://www.w3.org/Icons/valid-html401" alt="Valid HTML 4.01!" height="31" width="88"></a><br><br>
    </div>
    <div>
     <div align=right><font size='-1'><a href='http://sf.net/projects/pastebot/'>Pastebot</a> is powered by <a href='http://poe.perl.org/'>POE</a>.</font></div>
    </div>
    <!-- Automatically put the clipboard contents into the paste field and select it. -->
    <script language="jscript" type="">
      onload=function () {
        try {

t/002-encoding.t  view on Meta::CPAN

  </p>
  <p>
   <pre>‘test’</pre>
  </p>
  <p>
   <div align=right><font size='-1'><a href='http://sf.net/projects/pastebot/'>Pastebot</a> is powered by <a href='http://poe.perl.org/'>POE</a>.</font></div>
  </p>
 </body>
</html>
RETURN
);

 view all matches for this distribution


App-Office-CMS

 view release on metacpan or  search on metacpan

htdocs/assets/css/app/office/cms/web.page.css  view on Meta::CPAN

}

.blue_center
{
	background-color: #6293cd;
	font-weight: bold;
	text-align: center;
}

.error
{
	color: red;
	font-weight: bold;
}

.hidden_div
{
	background-color: #6293cd;

 view all matches for this distribution


App-Office-Contacts-Donations

 view release on metacpan or  search on metacpan

data/currency.html  view on Meta::CPAN

<html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"><title>Currency Converter - Yahoo!7 Finance</title><link rel="STYLESHEET" type="text/css" href="http://l.yimg.com/au.yimg.com/i/fi/css/finance.css"><link rel="STYLESHEET" ...
		td{font-size:12px}
	</style><link rel="stylesheet" href="http://us.i1.yimg.com/us.yimg.com/i/us/fi/03rd/yfnc2.css" type="text/css" media="screen"><style media="screen">
.modtbl{width:100%}
.fixThisDiv:after{content:".";display:block;font-size:0px;line-height:0px;height:0;clear:both;visibility:hidden}
#screen,#masthead{text-align:center;margin:0;width:752px;}
#masthead{padding-bottom:12px;}
#leftcol,#rightcol{margin:0;}
#leftcol{width:155px;float:left;}
#rightcol{width:585px;}

data/currency.html  view on Meta::CPAN

<iframe src="http://au.adserver.yahoo.com/a?f=97009443:N&p=aufin&l=N&c=hm&bg=ffffff" width=730 height=90 marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0 scrolling=no>
</iframe>
</noscript><script language=javascript>
if(window.yzq_d==null)window.yzq_d=new Object();
window.yzq_d['1qa3D9j8elY-']='&U=13a3gpm2c%2fN%3d1qa3D9j8elY-%2fC%3d253710.6883973.7821591.6512253%2fD%3dN%2fB%3d2810323%2fV%3d1';
</script><noscript><img width=1 height=1 alt="" src="http://row.bc.yahoo.com/b?P=VG0eKEWTUElF_P44Sw9AuwD5yxwJHEsUi3wAC9E3&T=161l699cu%2fX%3d1259637628%2fE%3d97009443%2fR%3daufin%2fK%3d5%2fV%3d2.1%2fW%3dHR%2fY%3dAUNZ%2fF%3d325249412%2fH%3dY2FjaGVoaW50...
<script language="JavaScript" type="text/javascript" src="http://au.adserver.yahoo.com/a?f=97009443:LREC&p=aufin&l=LREC&c=rm">
</script>
<noscript>
<iframe src="http://au.adserver.yahoo.com/a?f=97009443:LREC&p=aufin&l=LREC&c=hm&bg=ffffff" width=310 height=260 marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0 scrolling=no>
</iframe>

 view all matches for this distribution


App-Office-Contacts

 view release on metacpan or  search on metacpan

htdocs/assets/css/app/office/contacts/homepage.css  view on Meta::CPAN

.blue_centered
{
	background-color: #6293cd;
	color: #ffffff;
	font-weight: bold;
	text-align: center;
}

.bordered
{

htdocs/assets/css/app/office/contacts/homepage.css  view on Meta::CPAN

}

.error
{
	color: red;
	font-weight: bold;
}

.hidden_div
{
	background-color: #6293cd;

htdocs/assets/css/app/office/contacts/homepage.css  view on Meta::CPAN


.white_centered
{
	background-color: #ffffff;
	color: #6293cd;
	font-weight: bold;
}

 view all matches for this distribution


App-Oozie

 view release on metacpan or  search on metacpan

lib/App/Oozie/Deploy/Validate/DAG/Workflow.pm  view on Meta::CPAN


        require Graph::Writer::GraphViz;

        Graph::Writer::GraphViz->new(
            -edge_color => 1,
            -fontsize   => 8,
            -format     => 'png',
            -layout     => 'twopi',
            -node_color => 2,
            -ranksep    => 1.5,
        )->write_graph( $g, $file );

 view all matches for this distribution


App-PDFLibrarian

 view release on metacpan or  search on metacpan

share/title_abbr_iso4.csv  view on Meta::CPAN

"bloembollencultuur-";"bloembollencult.";"dut"
"bloembollenonderzoek";"bloembollenonderz.";"dut"
"bloembollenteelt";"bloembollent.";"dut"
"Bloemendaal";"n.a.";"dut"
"bloemendetailhandel";"bloemendetailhand.";"dut"
"Bloemfontein";"n.a.";"afr"
"bloemist";"bloem.";"dut"
"bloemisterij";"bloemist.";"dut"
"bloemschikken";"n.a.";"dut"
"blokovskij";"blok.";"rus"
"bloksopolimer-";"bloksopolim.";"rus"

share/title_abbr_iso4.csv  view on Meta::CPAN

"božestvenn-";"božestv.";"rus"
"boži-";"bož.";"bul"
"božić-";"božić.";"hrv"
"BozÌŒji";"n.a.";"hrv"
"bozÌŒur";"n.a.";"bul"
"Braamfontein";"n.a.";"afr"
"brabançon";"n.a.";"fre"
"Brabant";"n.a.";"fre"
"brabant-";"brabant.";"fre, dut"
"Bracebridge";"n.a.";"eng"
"brachycera";"n.a.";"eng"

share/title_abbr_iso4.csv  view on Meta::CPAN

"foniátria";"foniátr.";"hun"
"fonoaudiolog-";"fonoaudiol.";"spa"
"fonograficzny";"fonogr.";"pol"
"fonológico";"fonol.";"spa"
"Fontainebleau";"n.a.";"fre"
"fontana";"font.";"lat"
"fontes";"font. ";"lat"
"fontos";"n.a.";"hun"
"food";"n.a.";"eng"
"foodborne";"n.a.";"eng"
"foodbroker";"foodbrok.";"eng"
"foodcrop";"foodcr.";"eng"
"foodlink";"n.a.";"eng"

share/title_abbr_iso4.csv  view on Meta::CPAN

"rancher";"n.a.";"eng"
"rancho";"n.a.";"spa"
"Randburg";"Randbg.";"afr"
"Randers";"n.a.";"dan"
"Randesund";"n.a.";"nor"
"Randfontein";"n.a.";"afr"
"Randgebiet-";"Randgeb.";"ger"
"Randgruppe";"Randgr.";"ger"
"random";"n.a.";"eng"
"randonnée";"n.a.";"fre"
"Randstad";"n.a.";"dut"

 view all matches for this distribution


App-PDoc

 view release on metacpan or  search on metacpan

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

 
     <!-- Default options                                               -->
     <!-- ===============                                               -->
     <!--+ -H $HOME/.pandoc/templates/policies/{squeeze,columns}.latex +-->
     <!--+ -sSN --toc                                                  +-->
     <!--+ -Vfontsize:8pt,a4paper,twocolumn,landscape                  +-->
     <!--+ -o parsing.pdf                                              +-->
 
     <!-- Unused options (regular comments)                             -->
     <!-- =================================                             -->
     <!-- -H $HOME/.pandoc/templates/policies/columns.latex            +-->

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


Also note, how additional options are set via C<<< pandoc >>>'s C<<< -V >>>-switch, and how even more options are smuggled in into C<<< pandoc >>>'s own latex template. (The latter you can find using C<<< pandoc -D latex >>>) in using

=back

     -Vfontsize:8pt,a4paper,twocolumn,landscape

=head1 SEE ALSO

=over

 view all matches for this distribution


App-PFT

 view release on metacpan or  search on metacpan

share/templates/default.html  view on Meta::CPAN

    <style type="text/css">

        html {
            margin : 0;
            padding : 0;
            font-family : sans-serif;
        }

        body {
            margin : 0 auto 0;
            padding : 5em 5em 0;
            min-width : 40em;
            max-width : 50em;
            font-size : 10pt;
            line-height : 1.3em;
        }

        h1,h2,h3,h4,h5,h6 {
            line-height : 1em;

share/templates/default.html  view on Meta::CPAN

            margin-top : 3em;
            width : 30%;
        }

        div#sitemap h1 {
            font-size : 1em;
        }

        div#sitemap h2 {
            font-size : 1em;
            font-style : italic;
        }

        h1#sitetitle {
            margin-bottom : 1em;
            border-bottom : 1px solid cornflowerblue;

share/templates/default.html  view on Meta::CPAN

        div#pagetitle {
            margin : 2em 0 2em;
        }

        div#pagetitle h2 {
            font-size : 1em;
        }

        div#pagetitle h3 {
            font-size : 1em;
            display : inline;
            font-style : italic;
        }

        div#navigation ul {
            list-style-type : none;
        }

share/templates/default.html  view on Meta::CPAN

        div#navigation li h3 {
            display : inline;
        }

        div#content {
            font-family : serif;
            width : 65%;
        }

        div#content #title h1 {
            font-size : 2em;
        }

        div#content #text pre {
            overflow : auto;
            background : #eaeaea;

share/templates/default.html  view on Meta::CPAN


        div#content p img {
            max-width : 100%;
        }

        div#content h1,h2,h3,h4,h5,h6 { font-family : sans; }
        div#content h1 { font-size : 1.7em; }
        div#content h2 { font-size : 1.5em; }
        div#content h3 { font-size : 1.4em; }
        div#content h4 { font-size : 1.3em; }
        div#content h5 { font-size : 1.2em; }
        div#content h6 { font-size : 1.1em; }

        div#footer {
            color : silver;
            clear : right;
            margin-right : 0;
            margin-left : auto;
            font-size : .8em;
            text-align : left;
        }

    </style>
</head>

 view all matches for this distribution


App-PLab

 view release on metacpan or  search on metacpan

lib/App/PLab/ButtonGlyphs.pm  view on Meta::CPAN

use constant fldrmany     => 62;
use constant fldropen     => 63;
use constant fldrshut     => 64;
use constant floppy       => 65;
use constant foldrdoc     => 66;
use constant font         => 67;
use constant fontbold     => 68;
use constant fontital     => 69;
use constant fontsize     => 70;
use constant form         => 71;
use constant gears        => 72;
use constant globe        => 73;
use constant group        => 74;
use constant grphbar      => 75;

 view all matches for this distribution


App-PerlTidy-Tk

 view release on metacpan or  search on metacpan

lib/App/PerlTidy/Tk.pm  view on Meta::CPAN

    my ($self) = @_;
}

sub zoom {
    my ($self, $number) = @_;
    my $font_info = $self->{text}->configure('-font');
    #print "${$font_info->[4]}\n";  # 'fixed 20';
    my ($font, $size) = split / /, ${$font_info->[4]};
    $size += $number;
    $self->{text}->configure(-font => ['fixed', $size]);
}

sub create_config_panel {
    my ($self) = @_;

lib/App/PerlTidy/Tk.pm  view on Meta::CPAN

    #my $name = 'line-up-parentheses';
    #print $self->{flags}{$name}, "\n";
    #my $cb = $self->{top}->Checkbutton(
    #    -text     => $name,
    #    -variable => \$self->{flags}{$name},
    #    -font     => ['fixed', 10]
    #);
    #$cb->pack(-side => 'left');

    for my $name (@options) {
        $row++;

lib/App/PerlTidy/Tk.pm  view on Meta::CPAN

sub create_text_widget {
    my ($self) = @_;

    $self->{text} = $self->{top}->Text(
        -state => 'normal',
        -font => ['fixed', 12],
    );
    $self->{text}->pack(-fill => 'both', -expand => 1);
}

sub show_open {

 view all matches for this distribution


App-Phoebe

 view release on metacpan or  search on metacpan

lib/App/Phoebe/TokiPona.pm  view on Meta::CPAN

use App::Phoebe::Web;
use App::Phoebe qw(@extensions $server $log);
use File::Slurper qw(read_binary);
use Modern::Perl;

push(@extensions, \&toki_pona_font);

sub toki_pona_font {
  my $stream = shift;
  my $request = shift;
  if ($request =~ m!^GET /linja-pona-4.2.woff HTTP/1\.[01]$!) {
    serve_font_via_http($stream);
    return 1;
  }
  return 0;
}

sub serve_font_via_http {
  my $stream = shift;
  $log->info("Serving font via HTTP");
  $stream->write("HTTP/1.1 200 OK\r\n");
  $stream->write("Content-Type: font/woff\r\n");
  $stream->write("Cache-Control: public, max-age=86400, immutable\r\n"); # 24h
  $stream->write("\r\n");
  my $dir = $server->{wiki_dir};
  $stream->write(read_binary("$dir/linja-pona-4.2.woff"));
}

lib/App/Phoebe/TokiPona.pm  view on Meta::CPAN

sub serve_css_via_http {
  my $stream = shift;
  old_serve_css_via_http($stream);
  $log->info("Adding more CSS via HTTP (for toki pona)");
  $stream->write(<<'EOT');
@font-face {
  font-family: linja-pona;
  src: url('/linja-pona-4.2.woff') format('woff');
  font-weight: normal;
  font-style: normal;
}
pre.toki {
  font-family: linja-pona;
  font-feature-settings: "liga" 1, "clig" 1, "calt" 1, "kern" 1, "mark" 1;
  text-rendering: optimizeLegibility;
  font-size: 150%;
}
EOT
}

 view all matches for this distribution


App-Pinpp

 view release on metacpan or  search on metacpan

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


    # Trim off leading spaces.
    $slide =~ s{^$space_leader}{}smg;

    # Return our slide.
    return "-- [font=monospace 50px][text-align=left]\n$slide";
}

# Returns number of leading spaces on a line.
# TODO: Handle tabs
sub _count_leading_spaces {

 view all matches for this distribution


( run in 1.609 second using v1.01-cache-2.11-cpan-ceb78f64989 )