% git-rebase-matsuri
Usage:
      git-rebase-matsuri --conf=<config_file>
      git-rebase-matsuri --conf=<config_file> --doit  # really execute "git rebase"

# <branch> -> <onto>
id/1 -> master
id/2 -> ^
id/3 -> master
id/6 -> ^
id/4 -> master
id/5 -> master

% git-rebase-matsuri -c rebase-matsuri.conf
2011-12-26T09:46:33 [INFO] rebase rule has been added: id/1 -> master
2011-12-26T09:46:33 [INFO] rebase rule has been added: id/2 -> id/1
2011-12-26T09:46:33 [INFO] rebase rule has been added: id/3 -> master
2011-12-26T09:46:33 [INFO] rebase rule has been added: id/6 -> id/3
2011-12-26T09:46:33 [INFO] rebase rule has been added: id/4 -> master
2011-12-26T09:46:33 [INFO] rebase rule has been added: id/5 -> master
2011-12-26T09:46:33 [WARN] Do you really rebase? specify "--doit" option.

% git-rebase-matsuri -c rebase-matsuri.conf --doit
2011-12-26T09:46:59 [INFO] rebase rule has been added: id/1 -> master
2011-12-26T09:46:59 [INFO] rebase rule has been added: id/2 -> id/1
2011-12-26T09:46:59 [INFO] rebase rule has been added: id/3 -> master
2011-12-26T09:46:59 [INFO] rebase rule has been added: id/6 -> id/3
2011-12-26T09:46:59 [INFO] rebase rule has been added: id/4 -> master
2011-12-26T09:46:59 [INFO] rebase rule has been added: id/5 -> master
2011-12-26T09:46:59 [INFO] current branch/commit: id/7
2011-12-26T09:46:59 [WARN] Switched to branch 'id/1'
2011-12-26T09:46:59 [INFO] First, rewinding head to replay your work on top of it...
2011-12-26T09:46:59 [INFO] Applying: 7l9mSClY2I6MDToR8Fu5mEhn16Xvxrr4jSiqnyfI. refs #1
2011-12-26T09:46:59 [INFO] Applying: CR5q38OuoIj63HrhelKAFQEshtGPvd6H1mglSaPU. refs #1
2011-12-26T09:46:59 [WARN] Switched to branch 'id/2'
2011-12-26T09:46:59 [INFO] First, rewinding head to replay your work on top of it...
2011-12-26T09:46:59 [INFO] Applying: eymEmpKebkoBHXMvBKh6VoYL0D0S3vYASDf3Evv6. refs #2
2011-12-26T09:46:59 [WARN] Switched to branch 'id/3'
2011-12-26T09:47:00 [INFO] First, rewinding head to replay your work on top of it...
2011-12-26T09:47:00 [INFO] Applying: OJBncdWk5xzkINMCCqiPlRkdH3E7ZEAiUirPWEPq. refs #3
2011-12-26T09:47:00 [INFO] Applying: LFeSI6SsTyKi6ZDIUXQK69zWX4IfB6OT14FCmPU2. refs #3
2011-12-26T09:47:00 [INFO] Applying: YPgXUdxQJCKqOFsukt5jpxOuUCo9gSpLIuOmXQlv. refs #3
2011-12-26T09:47:00 [WARN] Switched to branch 'id/6'
2011-12-26T09:47:00 [INFO] First, rewinding head to replay your work on top of it...
2011-12-26T09:47:00 [INFO] Applying: n3gYUd9m1z12NJ63D3hIrVL7ZDvWnAqFbtbuupdT. refs #6
2011-12-26T09:47:00 [WARN] Switched to branch 'id/4'
2011-12-26T09:47:00 [INFO] First, rewinding head to replay your work on top of it...
2011-12-26T09:47:00 [INFO] Applying: bdqD7UZ9VLyyov3FIQ8Y4r2kGFUsmDlTQHqZYeN4. refs #4
2011-12-26T09:47:00 [INFO] Applying: rQZGVsQrhswVVskKHJ7P3HcDqCR7OtmccozHrRXa. refs #4
2011-12-26T09:47:00 [WARN] Switched to branch 'id/5'
2011-12-26T09:47:01 [INFO] First, rewinding head to replay your work on top of it...
2011-12-26T09:47:01 [INFO] Applying: GL6q8fM3EI1FhxPqlHInVPfgRfdmdhpmj7uDDKAL. refs #5
2011-12-26T09:47:01 [INFO] Applying: 4nVra34dYs5SrY1it2cACZ3jJw87JQrkSt6Hg3YX. refs #5
2011-12-26T09:47:01 [WARN] Switched to branch 'id/7'

function _wipe (callback) {
    var T = 1500;
    var t = 400;
 
    _unbind_functions();
 
    var $geso1 = $('#gesogeso-geso-1')
      , $geso2 = $('#gesogeso-geso-2')
      , $geso3 = $('#gesogeso-geso-3')
    ;
    $geso1.css({
        '-webkit-animation-iteration-count': '0',
        '-webkit-animation-duration': (T / 1000) + 's'
    });
    $geso2.css({
        '-webkit-animation-iteration-count': '0',
        '-webkit-animation-duration': ((T - t) / 1000) + 's'
    });
    $geso3.css({
        '-webkit-animation-iteration-count': '0',
        '-webkit-animation-duration': ((T - t * 2) / 1000) + 's'
    });
 
    setTimeout(function () {  // ----------------- 1st geso
        _wipe_a_geso(1);
        setTimeout(function () {  //-------------- 2nd geso
            _wipe_a_geso(2);
            setTimeout(function () {  // --------- 3rd geso
                _wipe_a_geso(3);
                setTimeout(function () {  // ----- wiped screen
                    _wiped_screen(true);
                    __data.current_slide.hide();
                    setTimeout(function () { // -- clear wiped
                        _wiped_screen(false);
                        ( callback || function () {} )();
                        _bind_functions();
                    }, 100);
                }, T - t * 2);
            }, t);
        }, t);
    }, 0);
}

_wipe = (callback) ->
    [T, t] = [1500, 400]
 
    _unbind_functions();
 
    $geso1 = $ '#gesogeso-geso-1'
    $geso2 = $ '#gesogeso-geso-2'
    $geso3 = $ '#gesogeso-geso-3'
 
    $geso1.css
        '-webkit-animation-iteration-count': '0',
        '-webkit-animation-duration':        (T / 1000) + 's'
    $geso2.css
        '-webkit-animation-iteration-count': '0',
        '-webkit-animation-duration':        ((T - t) / 1000) + 's'
    $geso3.css
        '-webkit-animation-iteration-count': '0',
        '-webkit-animation-duration':        ((T - t * 2) / 1000) + 's'
 
    setTimeout () ->  #  ----------------- 1st geso
        _wipe_a_geso 1
        setTimeout () ->  # -------------- 2nd geso
            _wipe_a_geso 2
            setTimeout () ->  #  --------- 3rd geso
                _wipe_a_geso 3
                setTimeout () ->  #  ----- wiped screen
                    _wiped_screen true
                    __data.current_slide.hide()
                    setTimeout () ->  #  -- clear wiped
                        _wiped_screen false
                        ( callback ? () -> )()
                        _bind_functions()
                    , 100
                , T - t * 2
            , t
        , t
    , 0

% ./script/watch-coffee start
% ./script/watch-coffee stop
% ./script/watch-coffee restart

#!/bin/sh
 
ROOT=$( cd $(dirname $0)/../  &&  pwd )
PIDFILE=$ROOT/tmp/watch-coffee.pid
MODE=$1
 
 
_main()
{
    case $MODE in
        "start")
            __start
            ;;
        "stop")
            __stop
            ;;
        "restart")
            __stop
            __start
            ;;
        * )
            __start
    esac
    exit 0
}
 
 
__start()
{
    if [ ! -d $ROOT/tmp ]; then
        echo "no such directory: $ROOT/tmp"
        exit 1
    fi
 
    exec watcher \
        --dir $ROOT/coffee \
        -- \
        perl $ROOT/script/compile_coffee.pl $ROOT/coffee/slidegeso.coffee \
        > /dev/null 2>&1 &
 
    PID_WATCHER=$!
    echo $PID_WATCHER > $PIDFILE
}
 
 
__stop()
{
    kill -TERM $(cat $PIDFILE)
 
    if [ -f $PIDFILE ]; then
        rm $PIDFILE
    fi
}
 
 
__restart()
{
    __stop
    sleep .5
    __start
}
 
 
_main

use 5.12.0;
use warnings;
use Cocoa::Growl ':all';
use File::Basename;
 
sub main {
    my ($target) = @_;
 
    growl_register(
        app           => 'CoffeeScript Compiler',
        notifications => [qw/ notif_success notif_failure /],
    );
 
    my $cmd = sprintf 'coffee -c -o js %s 2> /dev/stdout', $target;
    my $result = `$cmd`;
 
    my $title;
    my %params_notify;
 
    # failure
    if ( $result ) {
        $title = sprintf '%s: compile failed', (basename $target);
        %params_notify = (
            %params_notify,
            name        => 'notif_failure',
            title       => $title,
            description => $result,
            priority    => 3,
            sticky      => 1,
        );
    }
    # success
    else {
        $title = sprintf '%s: compiled', (basename $target);
        %params_notify = (
            %params_notify,
            name        => 'notif_success',
            title       => $title,
            description => 'ok.',
        );
    }
 
    growl_notify(%params_notify);
}
 
main(@ARGV);
__END__

{Redmineサーバ}/sys/fetch_changesets?key=${生成されたAPIキー}&id=${プロジェクトの識別子}

#!/bin/sh
CURL="/usr/bin/curl -s"
REDMINE_URL_BASE="https://redmine.your.server/"
REDMINE_REPOS_API_KEY=your_api_key
REDMINE_PROJECT_ID=your_project_id
 
echo "updating redmine..."
RESPONSE=$($CURL "${REDMINE_URL_BASE}sys/fetch_changesets?key=${REDMINE_REPOS_API_KEY}&id=${REDMINE_PROJECT_ID}")
echo $RESPONSE
exit 0

% git push origin master
Counting objects: 19, done.
Delta compression using up to 4 threads.
Compressing objects: 100% (8/8), done.
Writing objects: 100% (10/10), 791 bytes, done.
Total 10 (delta 7), reused 0 (delta 0)
remote: updating redmine...
remote:
To git@git.your.server:path/to/repos.git
   3d502c9..4a79baa  master -> master

% update-unbound-hosts.pl

% switch-unbound.pl local
% switch-unbound.pl emobile

% sudo kill -HUP $(cat /usr/local/etc/unbound/unbound.pid)

+{
    network_type => +{qw/
local    192.168.1.152
emobile  192.168.144.152
home     192.168.0.152
    /},
 
    rules => [qw/
www.momoco.local  %
dev.momoco.local  %
foo.momoco.local  %
dev.proj1.local   %
www.proj2.local   %
hoge.example.com  aaa.bbb.ccc.ddd
    /],
};

% update-unbound-hosts.pl
/usr/local/etc/unbound/include/emobile.hosts
/usr/local/etc/unbound/include/home.hosts
/usr/local/etc/unbound/include/local.hosts

% cat /usr/local/etc/unbound/include/local.hosts
 
local-zone: "local." static
 
local-data: "www.momoco.local. A 192.168.1.152"
local-data: "dev.momoco.local. A 192.168.1.152"
local-data: "foo.momoco.local. A 192.168.1.152"
local-data: "dev.proj1.local. A 192.168.1.152"
local-data: "www.proj2.local. A 192.168.1.152"
local-data: "hoge.example.com. A aaa.bbb.ccc.ddd"

% cat /usr/local/etc/unbound/include/emobile.hosts
 
local-zone: "local." static
 
local-data: "www.momoco.local. A 192.168.144.152"
local-data: "dev.momoco.local. A 192.168.144.152"
local-data: "foo.momoco.local. A 192.168.144.152"
local-data: "dev.proj1.local. A 192.168.144.152"
local-data: "www.proj2.local. A 192.168.144.152"
local-data: "hoge.example.com. A aaa.bbb.ccc.ddd"

server:
    ...
 
    include: "/usr/local/etc/unbound/include/local.hosts"
 
    ...

/usr/local/etc/unbound
├── emobile.conf
├── home.conf
├── include
│   ├── emobile.hosts
│   ├── home.hosts
│   └── local.hosts
├── local.conf
├── scripts
│   ├── config.pl
│   ├── switch-unbound.pl
│   └── update-unbound-hosts.pl
└── unbound.pid

switch-unbound.pl {network_name}

% switch-unbound.pl emobile
Restarting unbound with "emobile" mode...
    % sudo kill -TERM $(cat /usr/local/etc/unbound/unbound.pid)
Password:
    % sudo unbound -c /usr/local/etc/unbound/emobile.conf
...done.

% dig www.momoco.local
 
; <<>> DiG 9.6.0-APPLE-P2 <<>> www.momoco.local
;; global options: +cmd
;; Got answer:
;; ->>HEADER<<- opcode: QUERY, status: NOERROR, id: 9071
;; flags: qr aa rd ra; QUERY: 1, ANSWER: 1, AUTHORITY: 0, ADDITIONAL: 0
 
;; QUESTION SECTION:
;www.momoco.local.		IN	A
 
;; ANSWER SECTION:
www.momoco.local.	3600	IN	A	192.168.1.152
 
;; Query time: 0 msec
;; SERVER: 127.0.0.1#53(127.0.0.1)
;; WHEN: Sun Aug 28 15:53:41 2011
;; MSG SIZE  rcvd: 50
 
% switch-unbound.pl emobile
Restarting unbound with "emobile" mode...
    % sudo kill -TERM $(cat /usr/local/etc/unbound/unbound.pid)
    % sudo unbound -c /usr/local/etc/unbound/emobile.conf
...done.
% dig www.momoco.local
 
; <<>> DiG 9.6.0-APPLE-P2 <<>> www.momoco.local
;; global options: +cmd
;; Got answer:
;; ->>HEADER<<- opcode: QUERY, status: NOERROR, id: 5608
;; flags: qr aa rd ra; QUERY: 1, ANSWER: 1, AUTHORITY: 0, ADDITIONAL: 0
 
;; QUESTION SECTION:
;www.momoco.local.		IN	A
 
;; ANSWER SECTION:
www.momoco.local.	3600	IN	A	192.168.144.152
 
;; Query time: 0 msec
;; SERVER: 127.0.0.1#53(127.0.0.1)
;; WHEN: Sun Aug 28 15:53:48 2011
;; MSG SIZE  rcvd: 50

% brew install unbound

% unbound -h
usage:  unbound [options]
	start unbound daemon DNS resolver.
-h	this help
-c file	config file to read instead of /usr/local/Cellar/unbound/1.4.7/etc/unbound/unbound.conf
	file format is described in unbound.conf(5).
-d	do not fork into the background.
-v	verbose (more times to increase verbosity)
Version 1.4.7
linked libs: mini-event internal (it uses select), ldns 1.6.5, OpenSSL 0.9.8r 8 Feb 2011
linked modules: validator iterator
configured for x86_64-apple-darwin10.8.0 on Tue Jul  5 04:25:12 JST 2011 with options: '--disable-gost' '--disable-sha2' '--with-ssl-optional' '--prefix=/usr/local/Cellar/unbound/1.4.7'
BSD licensed, see LICENSE in source package for details.
Report bugs to unbound-bugs@nlnetlabs.nl

server:
    username: someone
    logfile: /usr/local/var/log/unbound/unbound.log
    interface: 0.0.0.0
    access-control: 192.168.1.0/24 allow

    local-data: "www.momoco.local. A 192.168.1.152"

% sudo unbound -c /usr/local/etc/unbound/unbound.conf

% sudo unbound -d -c /usr/local/etc/unbound/unbound.conf

#
# Mac OS X Notice
#
# This file is not used by the host name and address resolution
# or the DNS query routing mechanisms used by most processes on
# this Mac OS X system.
#
# This file is automatically generated.
#
nameserver 127.0.0.1
nameserver 192.168.1.1

% dig www.momoco.local
 
; <<>> DiG 9.6.0-APPLE-P2 <<>> www.momoco.local
;; global options: +cmd
;; Got answer:
;; ->>HEADER<<- opcode: QUERY, status: NOERROR, id: 30365
;; flags: qr aa rd ra; QUERY: 1, ANSWER: 1, AUTHORITY: 0, ADDITIONAL: 0
 
;; QUESTION SECTION:
;www.momoco.local.		IN	A
 
;; ANSWER SECTION:
www.momoco.local.	3600	IN	A	192.168.1.152
 
;; Query time: 0 msec
;; SERVER: 127.0.0.1#53(127.0.0.1)
;; WHEN: Sun Aug 28 03:44:33 2011
;; MSG SIZE  rcvd: 50

% dig hoge.example.com
 
; <<>> DiG 9.6.0-APPLE-P2 <<>> hoge.example.com
;; global options: +cmd
;; Got answer:
;; ->>HEADER<<- opcode: QUERY, status: NXDOMAIN, id: 27890
;; flags: qr rd ra; QUERY: 1, ANSWER: 0, AUTHORITY: 1, ADDITIONAL: 0
 
;; QUESTION SECTION:
;hoge.example.com.		IN	A
 
;; AUTHORITY SECTION:
example.com.		3351	IN	SOA	dns1.icann.org. hostmaster.icann.org. 2011061531 7200 3600 1209600 3600
 
;; Query time: 0 msec
;; SERVER: 127.0.0.1#53(127.0.0.1)
;; WHEN: Sun Aug 28 03:45:03 2011
;; MSG SIZE  rcvd: 95

lib
├── MyApp
│   ├── Plugin
│   │   └── MongoDB.pm
│   ├── Web
│   │   └── Dispatcher.pm
│   └── Web.pm
└── MyApp.pm

__PACKAGE__->load_plugins('+MyApp::Plugin::MongoDB');

diff --git a/lib/MyApp/Web.pm b/lib/MyApp/Web.pm
index 991c904..7dbe878 100644
--- a/lib/MyApp/Web.pm
+++ b/lib/MyApp/Web.pm
@@ -37,6 +37,7 @@ use Text::Xslate;
 # load plugins
 use HTTP::Session::Store::File;
 __PACKAGE__->load_plugins(
+    '+MyApp::Plugin::MongoDB',
     'Web::FillInFormLite',
     'Web::NoCache', # do not cache the dynamic content by default
     'Web::CSRFDefender',

+{
    ...
 
    'MongoDB' => {
        host     => 'localhost',
        port     => '27017',
        username => '',
        password => '',
        database => 'foo',
    },
 
    ...
};

any '/' => sub {
    my ($c) = @_;
 
    use Data::Dumper;
    warn Dumper $c->db;
 
    $c->render('index.tx');
};

$VAR1 = bless( {
                 '_connection' => bless( {
                                           'find_master' => 0,
                                           'query_timeout' => 30000,
                                           'w' => 1,
                                           '_servers' => {},
                                           'right_port' => 27017,
                                           'wtimeout' => 1000,
                                           'timeout' => 20000,
                                           'auto_connect' => 1,
                                           'auto_reconnect' => 1,
                                           'db_name' => 'admin',
                                           'ts' => 0,
                                           'port' => '27017',
                                           'left_port' => 27017,
                                           'host' => 'localhost',
                                           'username' => 'admin',
                                           'max_bson_size' => 16777216
                                         }, 'MongoDB::Connection' ),
                 'name' => 'foo'
               }, 'MongoDB::Database' );

package MyApp::Plugin::MongoDB;
use strict;
use warnings;
use utf8;
use MongoDB;
 
 
sub init {
    my ($class, $c, $params) = @_;
 
    no strict 'refs';
    *{"$c\::db"} = \&_db;
}
 
 
sub _db {
    my ($self) = @_;
 
    if ( !defined $self->{db} ) {
        my $conf = $self->config->{'MongoDB'}
            or die "missing configuration for 'MongoDB'";
 
        my $dbname = $conf->{database}
            or die "missing 'MongoDB.database'";
 
        my %params_conn = (
            host => $conf->{host} || 'localhost',
            port => $conf->{port} || '27017',
        );
        $params_conn{username} = $conf->{username}  if $conf->{username};
        $params_conn{password} = $conf->{password}  if $conf->{password};
 
        my $conn = MongoDB::Connection->new(%params_conn);
 
        $self->{db} = $conn->$dbname;
    }
 
    return $self->{db};
}
 
 
1;

diff --git a/config/development.pl b/config/development.pl
index a7c51df..c4a812e 100644
--- a/config/development.pl
+++ b/config/development.pl
@@ -1,4 +1,10 @@
 +{
+    'Text::Xslate' => +{
+        syntax => 'Kolon',
+        suffix => '.tx',
+        module => undef,  # デフォルトで [ 'Text::Xslate::Bridge::TT2Like' ] ってなってるけど，そのままでもOK？
+    },
+
     'DBI' => [
         'dbi:SQLite:dbname=development.db',
         '',

tmpl
├── include
│   └── layout.tt
└── index.tt

tmpl
├── _base.tx
└── index.tx

--- include/layout.tt	2011-08-07 15:18:28.000000000 +0900
+++ _base.tx	2011-08-07 15:39:32.000000000 +0900
@@ -2,27 +2,27 @@
 <html xmlns="http://www.w3.org/1999/xhtml">
 <head>
     <meta http-equiv="content-type" content="text/html; charset=utf-8" />
-    <title>[% title || 'MyApp' %]</title>
+    <title><: $title || 'MyApp' :></title>
     <meta http-equiv="Content-Style-Type" content="text/css" />  
     <meta http-equiv="Content-Script-Type" content="text/javascript" />  
     <meta name="viewport" content="width=device-width, minimum-scale=1.0, maximum-scale=1.0"]]>
     <meta name="format-detection" content="telephone=no" />
-    <link href="[% uri_for('/static/css/blueprint/screen.css') %]" rel="stylesheet" type="text/css" media="screen" />
-    <link href="[% uri_for('/static/css/blueprint/print.css') %]" rel="stylesheet" type="text/css" media="print" />
-    <!--[if lt IE 8]><link rel="stylesheet" href="[% uri_for('/static/css/blueprint/ie.css') %]" type="text/css" media="screen, projection"><![endif]--> 
-    <link href="[% uri_for('/static/css/main.css') %]" rel="stylesheet" type="text/css" media="screen" />
-    <script src="[% uri_for('/static/js/jquery-1.6.2.min.js') %]"></script>
+    <link href="<: uri_for('/static/css/blueprint/screen.css') :>" rel="stylesheet" type="text/css" media="screen" />
+    <link href="<: uri_for('/static/css/blueprint/print.css') :>" rel="stylesheet" type="text/css" media="print" />
+    <!--[if lt IE 8]><link rel="stylesheet" href="<: uri_for('/static/css/blueprint/ie.css') :>" type="text/css" media="screen, projection"><![endif]--> 
+    <link href="<: uri_for('/static/css/main.css') :>" rel="stylesheet" type="text/css" media="screen" />
+    <script src="<: uri_for('/static/js/jquery-1.6.2.min.js') :>"></script>
     <!--[if lt IE 9]>
         <script src="http://html5shiv.googlecode.com/svn/trunk/html5.js"></script>
     <![endif]-->
 </head>
-<body[% IF bodyID %] class="[% bodyID %]"[% END %]>
+<body<: if ( $bodyID ) { :> class="<: $bodyID :>"<: } :>>
     <div class="container">
         <header>
-            <a href="[% uri_for('/') %]">MyApp</a>
+            <a href="<: uri_for('/') :>">MyApp</a>
         </header>
         <div id="main">
-            [% content %]
+: block content -> {}
         </div>
         <footer>
             Powered by <a href="http://amon.64p.org/">Amon2</a>

--- index.tt	2011-08-07 15:18:28.000000000 +0900
+++ index.tx	2011-08-07 15:40:10.000000000 +0900
@@ -1,5 +1,6 @@
-[% WRAPPER 'include/layout.tt' %]
+: cascade _base
 
+: around content -> {
 <hr class="space">
 
 <div class="span-15 colborder">
@@ -21,4 +22,4 @@
 
 <hr class="space">
 
-[% END %]
+: }

diff --git a/lib/MyApp/Web/Dispatcher.pm b/lib/MyApp/Web/Dispatcher.pm
index 516ef4a..3fc4596 100644
--- a/lib/MyApp/Web/Dispatcher.pm
+++ b/lib/MyApp/Web/Dispatcher.pm
@@ -5,7 +5,7 @@ use Amon2::Web::Dispatcher::Lite;
 
 any '/' => sub {
     my ($c) = @_;
-    $c->render('index.tt');
+    $c->render('index.tx');
 };
 
 1;