shoorick

include "/usr/share/X11/locale/en_US.UTF-8/Compose"

# See
# http://s.arboreus.com/2008/02/compose.html
# http://shoorick.livejournal.com/tag/compose

# Punctuation
# знаки препинания, необходимые в русском, которых нет в en_US.UTF-8/Compose
<Multi_key> <period> <minus> : "…" U2026 # HORIZONTAL ELLIPSIS, многоточие
<Multi_key> <period> <space> : "…" U2026 # HORIZONTAL ELLIPSIS, многоточие

shoorick

// moved to https://github.com/shoorick/bike-area

graph G {
    node [ shape=box, fontsize=10, fontname="Droid Sans", style=filled, height=0.2 ]
    edge [ color=gray50, penwidth=3, fontname="Droid Sans" ]
    graph [ overlap=false ]

    subgraph main {
        node [ fillcolor=pink ]

shoorick

*.komodoproject
.komodotools
resize-mark.LOCAL.pl

shoorick

!Build/
.last_cover_stats
/META.yml
/META.json
/MYMETA.*
*.o
*.pm.tdy
*.bs

# Devel::Cover

shoorick

perl -e 'while (<prefix*png>) { printf("mv $_ %03d.png\n", $1 + 42) if /(\d+)/ }'

shoorick

SRC=.
DST=2b
FILES=*.png

trim $(DST)/$(FILES): $(SRC)/$(FILES)
	for file in $(SRC)/$(FILES); do \
	    [ ! -f $(DST)/$$file -o $(SRC)/$$file -nt $(DST)/$$file ] \
	    && echo $$file \
	    && convert $(SRC)/$$file -dither none -colors 2 -trim +repage $(DST)/$$file; \
	done

shoorick

#!/usr/bin/perl -0777 -n

=head1 NAME

p2yaml.pl - PHP to YAML reserializer.

=head1 DESCRIPTION

Reserialize PHP-serialized data to YAML

shoorick

%= include 'header';
<%= $callee %> <%= $name %>!
Some text here

shoorick

%#= include 'header'; # Does not work
%# layout 'layout'; # Does not work

<%= $callee %> <%= $name %>!
Some text here.

shoorick

#!/usr/bin/perl

# https://stackoverflow.com/questions/48529062/hash-value-overwrite-due-to-similar-keys

use Data::Dumper;

my $mapping_table = {
    'Exemplare' => 'copies',
    'Seiten' => 'pages',
    'Statushinweis' => 'status',