TatsumakiでEmacsのファイルを自動保存する - Kentaro Kuribayashi's blog
いろいろやってるうちにEmacsが重くなってきていろいろと支障をきたすようになってきたので、ちょっとでもどうにかしようってんで、以前書いてずっと使っていた、ファイルの自動保存機能を提供するauto-save-buffers-enhanced.elを使うのやめて、ファイルの更新チェックのとこを外出ししてみたらどうなんだろうってんで、こんなん書いた。 http://github.com/kentaro/emacs-autosave-server Emacsのfind-file-hooksにひっかけて、ファイルを開いたらTatsumakiなウェブサーバにファイル名を投げて、そのウェブサーバが定期的にemacsclient経由でEmacsに保存するリクエストを投げ返すってなもの。しかし結局は更新チェックをEmacs側でやることになるので、こんなことしても面倒なだけで意味ないと思います(ｷﾘｯ
リアルタイム時計 / Mojoliciousサンプル - Perl入門ゼミ
Perl › Mojolicious Mojolicious::Liteで作ったリアルタイム時計です。WebSocketを利用しています。ネイティブでWebSocketをサポートしているChromeで実行することができます。 リアルタイム時計 リアルタイム時計です。 ソースコード リアルタイム時計のソースコードです。 use Mojolicious::Lite; use Mojo::IOLoop; my $clients = {}; my $loop = Mojo::IOLoop->singleton; websocket '/' => sub { my $self = shift; # Client id my $cid = "$self"; # Controller my $controller = $self; # Send date and time my $datetime =
PlackとDBIx::SkinnyとText::MicroTemplate::Fileでwiki作ったのでソースを公開してみる - だるろぐ
2010/04/19 22:41 追記 ブコメでkamipoさんとa666666さんに「TMTで変数をエスケープさせたくない場合はencoded_string()使えばいい」と教えてもらったので修正。 ありがとうございます。 GitHub - hirafoo/piki: PlackとDBIx::SkinnyとText: :Fileで作ったwiki psgiとかplackとかstarmanとかモダンなアレソレとかに全然ついていけてないので勉強がてら。 今まで作って公開してみたときは解説長々と書いてきたのだけど今回は略。解説じゃない事を書こう。 何でwiki 認証とCRUDが使えれば基本はいいだろうということで今まではBBS作ってたのだけど、芸が無いので。 あと、作ったもの晒すだけなら、ドメイン取って公開せんでもソースだけ晒せばいいと気付き始めた。 development用の環境しか作ってませ
Twitterの新しいStreaming API「ChirpUserStreams」がすごすぎる件 - すぎゃーんメモ
最近発表されて、一部で話題を呼んでいるTwitterの新しいStreaming API「ChirpUserStreams」。 まだdeveloperへのpreviewリリースということでプロダクトに使うようなことはできないけど。 http://apiwiki.twitter.com/ChirpUserStreams 今までのStreaming APIでは基本的に public timelineから、指定したキーワードを含む発言を拾う 指定したユーザーの発言を拾う というものだった(はず)。検索系としては便利だけど、home_timelineのように自分がフォローしているユーザーの発言をStreamingで得ようとすると全idを繋げたものをリクエストパラメータとして送らないといけなかったりで、あまりカッコよくない形になってしまっていた。 ところが今回使えるようになった「ChirpUserSt
perl - JPEG判定をPure Perlで : 404 Blog Not Found
2009年08月18日13:45 カテゴリLightweight Languages perl - JPEG判定をPure Perlで やってみてもいいと思ったので。 JPEG かどうかを判断する C のコード - TokuLog 改めB日記 こんな感じで。 #!/usr/bin/perl use strict; use warnings; use LWP::Simple; my $url = 'http://ec2.images-amazon.com/images/P/4757215339.01.MZZZZZZZ.jpg'; my $content = get($url) or die "Couldn't get $url"; print "$url : ", isjpeg(\$content); if (0){ # test my $fn = shift; my $content; p
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
