Nordlige Maines *nixförening

otf med xetex

mfiskar — Mon, 19 Jul 2010 15:19:45 +0000

$ cp foo.otf /usr/share/fonts/ $ fc-cache -fv $ fc-list $ kpsewhich foo.otf $ otfinfo --features /usr/share/fonts/foo.otf $ vim foo.tex

% foo.tex
\font\foo="Foo":+kern;+liga;+zero
\foo abcdefg 1234567890.
\bye

$ xetex foo.tex $ edpfview foo.pdf

Svenska tecken med Perl modul URI::GoogleChart

mfiskar — Fri, 25 Jun 2010 20:36:31 +0000

#!/usr/bin/perl
use strict;
use warnings;

BEGIN {
    my $base_module_dir = ( getpwuid($>) )[7] . '/perl/';
    unshift @INC, map { $base_module_dir . $_ } @INC;
}

use CGI qw(:standard);
use URI::GoogleChart;
use encoding 'utf8';

print header;

print start_html(-title=>'Perl modul URI::GoogleChart');

my $u = URI::GoogleChart->new("pie-3d", 350, 100,
    data => [60, 40],
    label => ["Hålla mun", "och hacka!"],
) or die $!;

print "";

print end_html;

TTF fontar och svenska tecken i GD::Graph

mfiskar — Fri, 25 Jun 2010 18:23:23 +0000

#!/usr/bin/perl

# "module path"
BEGIN {
    my $base_module_dir = ( getpwuid($>) )[7] . '/perl/';
    unshift @INC, map { $base_module_dir . $_ } @INC;
}

use CGI qw/:standard/;
use GD::Graph;
use GD::Graph::bars;
use GD::Graph::colour;
use GD::Text;
use encoding 'utf8';

@data = (
  ["första", "andra", "tredje", "fjärde", "femte", "sjätte"],
  [1, 2, 5, 6, 3, 1.5],
  [sort {$a <=> $b} (1, 2, 5, 6, 3, 1.5)]
);

my $graph = GD::Graph::bars->new(600, 300);
$graph->set_legend("foo", "bar");

# Diverse egenskaper
$graph->set(
  x_label       => 'y-axeln',
  y_label       => 'x-axeln',
  title         => "Hålla mun och hacka!",
  y_max_value   => 8,
  y_tick_number => 8,
  y_label_skip  => 2,
  textclr       => GD::Graph::colour::black,
  labelclr      => GD::Graph::colour::black,
  axislabelclr  => GD::Graph::colour::black,
  fgclr         => GD::Graph::colour::black,
  legendclr     => GD::Graph::colour::black
) or die $graph->error;

# Datafärgen
$graph->set( dclrs => [ qw(lgray gray) ] );

# Fontar
GD::Text->font_path("/usr/share/fonts/bitstream-vera");
$graph->set_title_font( "Vera", 14 );
$graph->set_legend_font( "Vera", 10 );
$graph->set_x_axis_font( "Vera", 9 );
$graph->set_x_label_font( "Vera", 11 );
$graph->set_y_axis_font( "Vera", 9 );
$graph->set_y_label_font( "Vera", 11 );

# Format och utdata
my $format = $graph->export_format;
print header("image/$format");
binmode STDOUT;
print $graph->plot(\@data)->$format();

Prova cgi-utdata som ingångsdata för Lynx

mfiskar — Tue, 22 Jun 2010 16:32:03 +0000

$ foo.cgi "?bar=baz&pi=3.14159"| lynx -stdin

Bra och gratis tyska öppen-böcker

mfiskar — Fri, 18 Jun 2010 14:54:27 +0000

Wie Werde Ich Unix-Guru? Einführung in UNIX, Linux und Co. av Arnold Willemer
C von A bis Z: Das umfassende Handbuch av Jürgen Wolf

Förvandla toc.ncx till toc.html

mfiskar — Wed, 16 Jun 2010 04:57:32 +0000

$ xsltproc -o toc.html ncx2html.xsl toc.ncx $ perl -Cio -pi -e 's/([^\x00-\x7f])/sprintf("&#%d;", ord($1))/ge;' toc.html







  
    
      : Contents

Läsa epub-böcker i Lynx

mfiskar — Wed, 16 Jun 2010 04:51:29 +0000

$ unzip foo.epub $ cd OEBPS $ ls -1 *.html | \ xargs perl -Cio -pi -e 's/([^\x00-\x7f])/sprintf("&#%d;", ord($1))/ge;' $ lynx file://`pwd`

Cd till .wav rippa och spela i OpenBSD 4.7

mfiskar — Wed, 16 Jun 2010 04:10:35 +0000

$ cdio cdrip $ ls -1 *.wav | xargs aucat -i

Musik för programmering

mfiskar — Wed, 16 Jun 2010 03:42:02 +0000

Jan Johansson : Jazz på svenska, etc.
http://www.janjohansson.org/