unknownplace.org

keystroke(super+w) とか普通に使えたわ。でもsuper+shift+wとかだとエラー。うーむ。

でもsuper組み合わせるとwindowsでスタートメニューが開いてしまうので

section: options
  keystroke(alt+shift+q) = switchInDirection(left)
  keystroke(alt+shift+w) = switchInDirection(right)
end

とかしてみた。

だめだ、sysreqとかbreakとか遠すぎる。どおしよっかなぁ。

H課長に教えてもらった！サンクス！

keystroke(key) = actions

とかできたらしい。思いっきりdocumentedだった罠。

しかし、微妙なキーしか割り当てがわからん。特殊キーは遠いのであまり使いたくないのだが

section: options
  keystroke(sysreq) = switchToScreen(x41)
  keystroke(break) = switchToScreen(macmini)
end

とりあえずこんな感じにした。

希望では keystroke(super+w), keystroke(super+q) とかそんな感じのを使いたいんだが、指定方法がわからない。

Numlock割り当てると切り替え時にどうやっても落ちる。ScrollLockは上書きできないみたいだ。起動しない。

あと、synergy起動後、いちどもマウスを入れてないscreenにホットキーで切り替えるとsynergy落ちる。一回マウス動かしたscreenであればOK。謎。

マシン切り替えをキーだけでできんかなぁ。

マシン切り替えるためだけにマウス動かしてる。。めんどい。

さっき2.0rc3へアップデート通知が来たので自動アップデート。

もう普通に使えるなぁ。

出社。

会社1Fの廊下で一人キャッチボールをしてからコンビニでジャンプフル立ち読みして帰宅。

なんかやたら鼻水が出るなぁ。

退社。

run {
    my $block = shift;
    is(process($block->foo), $block->bar, $block->name);
};

って引数に関数渡せる。

これは perldoc perlsub の Prototypes の項目に載ってる

An "&" requires an anonymous subroutine, which, if passed as the first argument, does not require the "sub" keyword or a subsequent comma.

プロトタイプで & を第一引数に指定した場合その無名関数には sub つけなくても良い。

これは割と使えそうだ。

たとえば、STDERRとかになんか出力しちゃううざいモジュールを使ってtestを書いているときに

sub execute(&) {
    my ($out, $err);
    tie_output( *STDOUT, $out );
    tie_output( *STDERR, $err );

    my $res = shift->();

    untie *STDOUT;
    untie *STDERR;

    $res;
}

とか作っとくと

my $res = execute { $suck_module_output_stderr->method };

とかでSTDERRだすことなくそのモジュールのテストかける。いいのー。

grep とかな実装しかあんまりみないから新鮮に見えるのかな。

run_like が成功するときと失敗するときがあってこまった。

run_like input => 'results';

みたいなときなんかinputのフィルタがかからないときがあったりして失敗してるくさく、なんだと思ったら、うちのOSXの問題だったみたいだ。

use_ok を1個するだけのテストでも何回もやってるとこけたりする。ひどい。。

こけるときも毎回違う出力。

$ prove -lv t/04simpleuse.t
t/04simpleuse....dubious
        Test returned status 0 (wstat 10, 0xa)
FAILED--1 test script could be run, alas--no output ever seen

とかよくわからんのだったり、

$ prove -lv t/04simpleuse.t
zsh: segmentation fault  prove -lv t/04simpleuse.t

セグフォってみたり。。

$ prove -lv t/04simpleuse.t
Operator or semicolon missing before %opts at /System/Library/Perl/5.8.6/Pod/Usage.pm line 487.
Ambiguous use of % resolved as operator % at /System/Library/Perl/5.8.6/Pod/Usage.pm line 487.
Bareword "key3" not allowed while "strict subs" in use at /System/Library/Perl/5.8.6/Pod/Usage.pm line 482.
Bareword "opts" not allowed while "strict subs" in use at /System/Library/Perl/5.8.6/Pod/Usage.pm line 482.
Compilation failed in require at /usr/bin/prove line 12.
BEGIN failed--compilation aborted at /usr/bin/prove line 12.

こんなすごいのもでたよ。

再起動したらとりあえずなんか直ったくさいけど。もー、やばいわうちのmac。

HDDぶっこわれてんかなーとおもってfsckってみたけど問題なさげだったし。なんだろうほんと。