Shinichiro Aska s-aska

## localizer.js
// before html
// <html lang="ja">
// <span data-text-ja="タイムライン">Timeline</span>
//
// var localizer = new Localizer();
// localizer.localize();
//
// after html
// <span data-text-ja="タイムライン">タイムライン</span>

## sample_ajax_with_csft.js
// https://github.com/tokuhirom/Amon/blob/master/lib/Amon2/Plugin/Web/CSRFDefender.pm
function ajax(option) {
    this.token_name = 'csrf_token'; // 実際は別のところでsetupしておく
    if ("data" in option && "type" in option && option.type.toLowerCase() == 'post') {
        if (!this.token) {
            this.token = $('input[name=' + this.token_name + ']:first').val();
        }
        option.data[this.token_name] = this.token;
    }
    return $.ajax(option);

## sort.js
var lis = [];
this.parts.tasks.find('> li').each(function(i, ele) {
    lis.push($(ele));
});
lis = lis.sort(function(a, b) {
    return b.data('updated') - a.data('updated');
});
for (var i = 0; i < lis.length; i++) {
    lis[i].appendTo(this.parts.tasks);
}

## MIME-Parser-Delux.pm
package MIME::Parser::Delux;

use strict;
use Encode;
use Encode::Alias;
use Encode::Guess qw/euc-jp shiftjis 7bit-jis/;
use File::Temp qw/ :seekable /;
use MIME::Parser;
use MIME::WordDecoder;
use MIME::Words qw(:all);

## delayHover.js
function delayHover(element, over, out, delay) {
    var timer;
    $(element).hover(function(){
        if (timer) {
            clearTimeout(timer);
            timer = null;
        } else {
            over.apply(this, arguments);
        }
    }, function(){

## gist:1094456
How to Build One Page Apps

実サービス(9月下旬完成予定)を例にOne Page Appsの作り方を紹介します。

One Page Apps(Single Page Application)とは1枚のHTMLで構成されたWebアプリケーションでTweetDech等が有名です。

一日中開いたままでもバックグラウンドで同期が走り、必要に応じて通知やDOMの再構成が行われ、オフライン中の操作はスタックされ、通信回復後に再同期が行われる様なクライアントアプリケーションに非常に近い実装が必要になります。

実用的なアプリケーションにする為には標準のUIだけでは力不足ですし、開発効率を保つ為には肥大化しがちなJsコードをうまく整頓するコツも必要です。

## gist:1095068
function initElements(context) {
    $('*[data-init]', context).each(function(){
        var ele = $(this);
        var methods = ele.data('init').split(',');
        for (var i = 0, max_i = methods.length; i < max_i; i++) {
            app.exec(['initElement', methods[i]], [this]);
        }
    });
}
function initElementClick(element) {

## test_psgi_error.t
# 500
test_psgi
    app => builder {
        enable "StackTrace", no_print_errors => 1; # no warning in make test.
        MyApp->handler
    },
    client => sub {
        my $cb = shift;
        my $req = HTTP::Request->new( GET => 'http://localhost/foo/error' );
        $req->header('Accept' => 'text/html'); # get stack trace message

## update_zip.pl
my $zip;
open my $fh, "<:encoding(cp932)", $ken;
while (my $row = $csv->getline($fh)) {
    next if $zip->{$row->[2]};
    $zip->{$row->[2]}++;
    $model->insert( 'minotaur_zip', {
        zip => $row->[2],
        pref => substr($row->[0], 0, 2),
        address1 => $row->[7],
        address2 => $row->[8]

## blowfish.pl
#!/usr/bin/env perl

use strict;
use warnings;
use Crypt::CBC;
use Crypt::Blowfish;

my $key = shift;
my $val = shift;
	// before html
	// <html lang="ja">
	// <span data-text-ja="タイムライン">Timeline</span>
	//
	// var localizer = new Localizer();
	// localizer.localize();
	//
	// after html
	// <span data-text-ja="タイムライン">タイムライン</span>
	// https://github.com/tokuhirom/Amon/blob/master/lib/Amon2/Plugin/Web/CSRFDefender.pm
	function ajax(option) {
	this.token_name = 'csrf_token'; // 実際は別のところでsetupしておく
	if ("data" in option && "type" in option && option.type.toLowerCase() == 'post') {
	if (!this.token) {
	this.token = $('input[name=' + this.token_name + ']:first').val();
	}
	option.data[this.token_name] = this.token;
	}
	return $.ajax(option);
	var lis = [];
	this.parts.tasks.find('> li').each(function(i, ele) {
	lis.push($(ele));
	});
	lis = lis.sort(function(a, b) {
	return b.data('updated') - a.data('updated');
	});
	for (var i = 0; i < lis.length; i++) {
	lis[i].appendTo(this.parts.tasks);
	}
	package MIME::Parser::Delux;

	use strict;
	use Encode;
	use Encode::Alias;
	use Encode::Guess qw/euc-jp shiftjis 7bit-jis/;
	use File::Temp qw/ :seekable /;
	use MIME::Parser;
	use MIME::WordDecoder;
	use MIME::Words qw(:all);
	function delayHover(element, over, out, delay) {
	var timer;
	$(element).hover(function(){
	if (timer) {
	clearTimeout(timer);
	timer = null;
	} else {
	over.apply(this, arguments);
	}
	}, function(){
	How to Build One Page Apps

	実サービス(9月下旬完成予定)を例にOne Page Appsの作り方を紹介します。

	One Page Apps(Single Page Application)とは1枚のHTMLで構成されたWebアプリケーションでTweetDech等が有名です。

	一日中開いたままでもバックグラウンドで同期が走り、必要に応じて通知やDOMの再構成が行われ、オフライン中の操作はスタックされ、通信回復後に再同期が行われる様なクライアントアプリケーションに非常に近い実装が必要になります。

	実用的なアプリケーションにする為には標準のUIだけでは力不足ですし、開発効率を保つ為には肥大化しがちなJsコードをうまく整頓するコツも必要です。
	function initElements(context) {
	$('*[data-init]', context).each(function(){
	var ele = $(this);
	var methods = ele.data('init').split(',');
	for (var i = 0, max_i = methods.length; i < max_i; i++) {
	app.exec(['initElement', methods[i]], [this]);
	}
	});
	}
	function initElementClick(element) {
	# 500
	test_psgi
	app => builder {
	enable "StackTrace", no_print_errors => 1; # no warning in make test.
	MyApp->handler
	},
	client => sub {
	my $cb = shift;
	my $req = HTTP::Request->new( GET => 'http://localhost/foo/error' );
	$req->header('Accept' => 'text/html'); # get stack trace message
	my $zip;
	open my $fh, "<:encoding(cp932)", $ken;
	while (my $row = $csv->getline($fh)) {
	next if $zip->{$row->[2]};
	$zip->{$row->[2]}++;
	$model->insert( 'minotaur_zip', {
	zip => $row->[2],
	pref => substr($row->[0], 0, 2),
	address1 => $row->[7],
	address2 => $row->[8]
	#!/usr/bin/env perl

	use strict;
	use warnings;
	use Crypt::CBC;
	use Crypt::Blowfish;

	my $key = shift;
	my $val = shift;