http://d.hatena.ne.jp/mzp/20081009/grep を見てたら書きたくなったので書いたというか、コピペして短くしたれと思ったら逆に冗長になったというか。

というわけでこんな感じにしてみました -> http://gist.github.com/16494

もともと Perl 使いなので ARGF よりもダイヤモンド演算子<> のほうがみやびに思えるからそういう演算子を定義した上でそれを前置で使ってます。ふつうは演算子の前置は部分適用とかに使うんですがそういうのとも違います。より Perl っぽく見せるためです。じゃあ Perl で書けよ。そうですね。

あ、型も微妙に変えてます。

argf :: [String] -> (String -> IO ()) -> ()

(<>) :: [String] -> (String -> a) -> IO a

えーと、渡すのは pure function のほうがよくね？というのと IO () だけにしか使えないのは不便じゃねっていう感じですね。

でもほんとうは、 http://gist.github.com/16495 みたく書けたらうれしいなと思っています。

コマンドライン引数を明示的に渡さなくてもいいし、さらに getArgs すら要らないっていう。

State か何かを使えばできそうなので誰か作ってください。

あ、そういえば地味にモジュール (Text.RegexPR) 使ってます。cabal install regexpr するか適当にソースを削るかコメントアウトすると動くと思います。

ソース

インストール

't' を押したら reblog するグリモンが昔ありましたがそれを思い出しながら作りました。

'm' を押したらフォーカスが当っている記事を instapaper にポストします。

login 処理はクッキー任せなので instapaper にログインした状態で使ってください。

instapaper は、ゆるめの bookmarking service です。アカウントにパスワードを別に付けなくていいところとかゆるいと思います。

「ピン使え」とか「はてブか delicious にしろ」って感じだと思いますが、ピンはどんどんたてていくとピンを立てた記事の数がどんどん増えていってどんどんあせってきてあんまり健康によくないので。それと instapaper は「あとで読むリスト」っていうか「あとで読もうと思ってたリスト」って感じがしてそこが好きなので。個人的にはニコニコ動画の「あとで見ようリスト」として使うつもりです。いいですよ、instapaper。

'm' 以外のキーにバインドしたい場合はソースを書き換えてください。

そういえば、ポストと言っても具体的には URL とタイトルを www.instapaper.com/edit に POST しているのですが encodeURIComponent しなあかんキーなんてありえんとか思ったけど別に API でもないんだししょうがないかと思いました。