View .XCompose
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, многоточие
View wcloop
#!/usr/bin/perl
print STDERR "Press ^C to exit\n";
my $cmd_line = 'wc ' . join ' ', @ARGV;
my $out;
while (1) {
$out = `$cmd_line`;
chomp $out;
print "\cM$out";
sleep 1;
View mark-academic-buildings.pl
#!/usr/bin/perl -w
use strict;
=head1 DESCRIPTION
Marks academic buildings which belongs to SUSU relation in PostGIS:
set type='academic'. This mark-up used for map coloring.
=head1 SEE ALSO
View split-prostopleer.pl
#!/usr/bin/perl -0777 -n
=head1 DESCRIPTION
Split big pseudo zip-archive from prostopleer.com into small mp3 files.
=head1 USAGE
./split-prostopleer.pl big-pseudo.zip
View bike-area.dot
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 ]
"Б. Акуля" [ shape=folder ]
"Еланчик" [ shape=folder ]
View bar-between-natural-and-flats.ly
\version "2.14.2"
\relative c' {
\key e \major
\cadenzaOn
e4 gis b a
s
\key a \minor
s256
\cadenzaOff
\bar "|"
View extract-mapbox-tiles.pl
#!/usr/bin/perl
# VERSION: 1.0
# CREATED: 10.02.2013 23:41:17
use strict;
use warnings;
=head1 USAGE
View panoramio-rss.pl
#!/usr/bin/env perl
=head1 USAGE
./panoramio-rss.pl
=head1 DESCRIPTION
Get RSS feed of my photos from panoramio.com and make HTML list of images
View get-width-stat.sh
wget 'https://www.openstat.ru/rest/v0.3/ct:openstat:trends/display/columns/20120820-20120920?column=0%0Dvisitors_sum_average&column=0%0Dvisitors_sum_average_verticalpercent&column=0%0Dsessions_sum&column=0%0Dpageviews_sum&primary_column=0&view_id=1810&format=tsv' -O - \
| perl -nlaF'\t' -MList::Util=max \
-e '$F[0]=~s/x.*//||next;$sum{$F[0]}+=$F[4];END{for$k(0..max(keys%sum)){print"$k\t$sum{$k}"}}'
View word-color.pl
#!/usr/bin/perl
=head1 USAGE
./word-color.pl
=head1 DESCRIPTION
Print color stripes. See L<http://habrahabr.ru/post/142570/>