Clouder::Blogger: 2006年4月アーカイブ

Template::Plugin::Lingua::JA::Summarizeを作ってみた

clouder (2006年4月28日 02:04) | コメント(0) | トラックバック(0)

Kazuhoさんが作られた Lingua::JA::Summarize を TT から使うためのモジュールを作成してみた。

Template::Plugin::Lungua::JA::Summarize

使い方はシンブルで、

[% USE summarize = Lingua.JA.Summarize("ここにsummarizeしたいテキスト") %]
[% FOREACH keyword = summarize.keywords %]
[% keyword %]
[% END %]

こんな感じです。
また下記のように keywords にオプションもハッシュリファレンスで渡せるようになってます。

[% USE summarize = Lingua.JA.Summarize("ここにsummarizeしたいテキスト", { maxwords => 10 }) %]

Lingua::JA::Summarize はいろいろ使い道が考え付くので今後期待ですね。まだCPANには上がってないですが、今後上げる予定はあるのかなー？ちなみに Template::Plugin::Lingua::JA::Summarize は Lingua::JA::Summarize が CPAN に上がったら、その後に上げようと思っています。

emacsを快適に操作するための10の設定

clouder (2006年4月25日 16:37) | コメント(2) | トラックバック(0)

私的なものばかりですが、いつも忘れていろんなサーバに探しに行くので、メモっておこうと思って書きました。他にお勧めがあったら教えてください。

同名のファイルを開いたとき Switch to buffer などでファイル名がわかりやすく見えるようになる設定

(require 'uniquify)
(setq uniquify-buffer-name-style 'post-forward-angle-brackets)

HTMLなどのコーディングで META タグにあるコーディングで保存されないようにする設定

(delete 'sgml-html-meta-auto-coding-function auto-coding-functions)

※環境によっては動かないという報告が…。

選択部分を一気にインデントにする indent-region のキーバインドの設定

(global-set-key "\C-x\C-i" 'indent-region)

find-fileのファイル名補完で大文字小文字を区別しない設定

(setq completion-ignore-case t)

追記

(setq read-file-name-completion-ignore-case t)

shebangが付いているファイルのパーミッションを保存時に +x にしてくれる設定

(add-hook 'after-save-hook 'my-chmod-script)
(defun my-chmod-script() (interactive) (save-restriction (widen)
 (let ((name (buffer-file-name)))
  (if (and (not (string-match ":" name))
           (not (string-match "/\\.[^/]+$" name))
           (equal "#!" (buffer-substring 1 (min 3 (point-max)))))
     (progn (set-file-modes name (logior (file-modes name) 73))
            (message "Wrote %s (chmod +x)" name)
    ))
)))

画面上下の端の外にスクロールしたときの移動量を1にする設定

(setq scroll-step 1)

対応する括弧をハイライト表示させる設定

(show-paren-mode t)

選択されたリージョンを色付きにしてわかりやすくする設定

(transient-mark-mode t)

emacsのVCでバッファの履歴を引き継ぐための設定(→参考：ひげぽんのブログで知って以来使ってる)

;; checkin 後に実行される関数をフック
(add-hook 'vc-checkin-hook
          '(lambda ()
              (setq buffer-undo-list higepon-san)))

;; checkin 前に実行される関数をフック
(add-hook 'vc-before-checkin-hook
          '(lambda ()
             (setq higepon-san buffer-undo-list)))

pcl-cvsのcvs-examineを一発で呼出すキーバインドの設定

(global-set-key "\C-xe" 'cvs-examine)

GNU Emacsデスクトップリファレンス

posted with amazlet on 06.04.26

デブラキャメロン Debra Cameron 日本ルーセントテクノロジー
オライリー・ジャパン (1999/06)
売り上げランキング: 115,172

おすすめ度の平均:

オンラインドキュメントがあれば十分

GNU Emacsコマンドリファレンス

Amazon.co.jp で詳細を見る

入門GNU Emacs

posted with amazlet on 06.04.26

デボラキャメロンエリックレイモンドビルローゼンブラッド Debra Cameron Eric Raymond Bill Rosenblatt 福崎俊博
オライリー・ジャパン (1999/09)
売り上げランキング: 67,142

おすすめ度の平均:

明快な語り口調で・・・

Amazon.co.jp で詳細を見る

こないだ VMWare Player を導入したんだけど

clouder (2006年4月20日 12:52) | コメント(0) | トラックバック(0)

こないだ VMWare Player を導入したんだけど、どうも1、2日ずっと使ったり、ノートで使ってるのでスリープしたり再開したりを繰替えしていると Load Average が上ってるわけでもないのに動きがもっさりしてきてしまう。。。

なにが悪いんだろうか。ちなみにディストリビューションは ubuntu を入れてるんですが、そのせいなのかなぁ。

VMWare Player を再起動すると直る。colinu だとそんなことなかったのにな。戻すかどうかもうちょっと使ってから考えよう。

昨日のPlagger::Plugin::Publish::OneFeedですが…

clouder (2006年4月20日 03:12) | コメント(0) | トラックバック(0)

あのモジュールでしたいことは、まさに「それPlaggerでやればいいんじゃね？」で実現できることでした。。。
＃みやがわさんにヒントもらいますた。thanx!

やりたいこと(1つのファイルにフィードを吐き出す)は、Plagger の SmartFeed という機能を使って実現できます。
やり方は、まぁいろいろあるのですが、一番シンプルなのは下記。

  - module: SmartFeed::All

  - module: Publish::Feed
    rule:
      expression: $args->{feed}->id eq 'smartfeed:all'
    config:
      format: Atom
        dir: /home/yoshiki/public_html/feed
        title: foo

このように rule で id が smartfeed:all の記事をまとめて Publish すればいいわけです。なんでこれでできるかというと、SmartFeed::All プラグインをロードしておけば smartfeed 処理のプロセスの中で、すべてのエントリを1つの Plagger::Feed にまとめてくれて、そのフィードの id に smartfeed:all という名前を付けてくれます。で、最後の Publish するときに id が smartfeed:all のフィード(つまりすべてのエントリをまとめたフィード)のみを吐き出してくれるという仕組みです。

その他にも下記のように Rule::FeedAttr とかで id が smartfeed:all のやつを Publish とかもできます。また、SmartFeed::All を使ってるのが前提ですが Rule::FeedType で type が smartfeed のやつって指定でもできなくはないです。

  - module: SmartFeed::All

  - module: Publish::Feed
    rule:
      - module: FeedAttr
         attrs:
           name: id
           value:
              - smartfeed:all
    config:
      format: Atom
        dir: /home/yoshiki/public_html/feed
        title: foo

今まであんま近寄らなかった SmartFeed という機能を改めて知ったある日の夜でした。。。

Plagger::Plugin::Publish::OneFeed

clouder (2006年4月19日 01:02) | コメント(1) | トラックバック(0)

追記：これ使わなくても同じ機能は実現できます→http://clouder.jp/yoshiki/mt/archives/000671.html 1つのファイルに吐き出したかったので作った。P::P::P::Feedとマージするのは微妙…。とりあえず自分用ということで。

package Plagger::Plugin::Publish::OneFeed;

use strict;
use base qw( Plagger::Plugin );

our $VERSION = 0.01;

use XML::Feed;
use XML::Feed::Entry;
use XML::RSS::LibXML;
use File::Spec;

# xxx ugh
$XML::Feed::RSS::PREFERRED_PARSER =
    $XML::RSS::LibXML::VERSION >= 0.16 ? "XML::RSS::LibXML" : "XML::RSS";

sub register {
    my($self, $context) = @_;
    $context->register_hook(
        $self,
        'publish.feed' => \&publish_feed,
        'publish.finalize' => \&finalize_feed,
    );
    $self->init_feed($context);
}

sub init_feed {
    my($self, $context) = @_;

    # check filename
    $self->conf->{filename} or $context->error("No specify filename in config");

    # check dir
    my $dir = $self->conf->{dir};
    unless (-e $dir && -d _) {

        mkdir $dir, 0755 or $context->error("mkdir $dir: $!");
    }
}

sub publish_feed {
    my($self, $context, $args) = @_;
    for my $e ($args->{feed}->entries) {
        my $entry = XML::Feed::Entry->new($self->conf->{format} || 'Atom');
        $entry->title($e->title);
        $entry->link($e->link);
        $entry->summary($e->body_text);
        $entry->content($e->body);
        $entry->category(join(' ', @{$e->tags}));
        $entry->issued($e->date) if $e->date;
        $entry->author($e->author);
        push @{ $self->{__entries} }, $entry;
    }
}

sub finalize_feed {
    my($self, $context) = @_;
    my $conf = $self->conf;

    # generate feed
    my $feed = XML::Feed->new($conf->{format} || 'Atom');
    $feed->title($conf->{title} || "Plagger Feed");
    $feed->link($conf->{link});
    $feed->modified(Plagger::Date->now);
    $feed->generator("Plagger/$Plagger::VERSION");

    for my $entry (sort { $b->issued cmp $a->issued } @{$self->{__entries}}) {
        $feed->add_entry($entry);
    }

    # generate file
    my $filepath = File::Spec->catfile($conf->{dir}, $conf->{filename});
    my $xml = $feed->as_xml;
    utf8::decode($xml) unless utf8::is_utf8($xml);
    open my $output, ">:utf8", $filepath or $context->error("$filepath: $!");
    print $output $xml;
    close $output;
}

1;

__END__

=head1

Plagger::Plugin::Publish::OnFeed - republish RSS/Atom feeds as one file

=head1 SYNOPSYS

  - module: Publish::Feed
    config:
      format: RSS
      dir: /home/yoshiki/plagger/feed
      filename: my_feed.rss

=head1 CONFIG

=head2 format

Specify the format of feed. C<Plagger::Plugin::Publish::OneFeed> supports
the following syndication feed formats:

=over 4

=item * Atom (default)

=item * RSS

=back

=head2 dir(require)

Directory to save feed files in.

=head2 filename(require)

Filename to be used to create feed files.

=head1 AUTHOR

Yoshiki KURIHARA

=head1 SEE ALSO

L<Plagger>, L<XML::Feed>

=cut

Firefox 1.5.0.2がリリース！

clouder (2006年4月14日 11:43) | コメント(0) | トラックバック(0)

Firefox の ver 1.5.0.2 がリリースされたみたいです。こんな更新アラートが出た。あれ、これって前からあったっけか…。

ちなみに、自分の入れてる機能拡張でバージョンアップにともなって使えなくなったのは keyconfig だけでした。でもこれはイタイ…。他に同じようなことできるものがあるか探してみるか。

使用している機能拡張はこれ↓
Tab Mix Plus
Super DragAndGo
Mouse Gestures
PrefButtons
Web Developer
Google Toolbar for Firefox
Download Statusbar
SwitchProxy Tool
bbs2chreader
Sage

Google Calendar公開！

clouder (2006年4月13日 13:31) | コメント(0) | トラックバック(0)

Google Calendarが公開されたっぽ。
こないだ30boxes.comに乗り換えたばかりですがなにか？

でもiCal形式で統一されてるから移行は大丈夫だと思ふ。
うん、たぶん大丈夫。

と思って30boxesからiCal形式で出力したものをインポートしたらUTF-8なのに文字化けてる…。Googleの呪いですか。

del.icio.usに好きなタグを付けて一発ブックマークするブックマークレット

clouder (2006年4月13日 01:52) | コメント(0) | トラックバック(0)

まららんのやつを見てて、最初に設定されてるやつに追加で他のタグも入力したいなぁと思ったのでプロンプトを出してタグを入力できるようにしたブックマークレット。
ほぼパクりです(ｵｲ

post toread

「USERNAME」のところだけ書き換えてご使用ください。またデフォルトのタグが toread になってますが、それも toread と書いてあるところを変えれば他のものにできます。ってまららんの作る奴に比べると不親切だな…。自分で変えろメソッド。

CPANの画像はリファラを見ている

clouder (2006年4月11日 21:09) | コメント(0) | トラックバック(0)

CPANの画像はリファラがsearch.cpan.org以外だと表示されないようです。
id:nipotanに聞いたらリファラを見てるらしい。知らなかったお。

試しにリファラを送らないで見てみてください。

% wget http://search.cpan.org/s/img/cpan-10.jpg --23:55:32-- http://search.cpan.org/s/img/cpan-10.jpg => `cpan-10.jpg' Resolving search.cpan.org... 216.52.237.135, 84.45.18.237 Connecting to search.cpan.org|216.52.237.135|:80... connected. HTTP request sent, awaiting response... 403 Forbidden 23:55:33 ERROR 403: Forbidden.

Exit 1

にぽたんの星の秘密とか弾さんのcompuri.plを見る限り、昔は見えていた模様…。いつから見えなくなったんだろうか。そしてなぜ見えなくしたんだろうか。

この二大ブログ(？)からのリファラがものすごかったからそうしたんだろうか？

flickrの認証のやつすごいなー

clouder (2006年4月11日 16:40) | コメント(0) | トラックバック(0)

typesterさんのCLONでコメントにFlickrの認証を使ってるんだけど、これいいね。顔写真まで出ちゃうのね。

今さらだけど、FlickrのAPIキー取得したりしていじってみたがよくできてるな。

下記に詳しい説明がありますので興味のある方はどうぞ。
http://www.machu.jp/diary/20051101.html
http://www.flickr.com/services/api/auth.howto.web.html

もう作ってる人いるっぽいが、あとでMT用のコメント認証プラグインを作る。

Engadget Japaneseで使われている日本語のエンティティの変換

clouder (2006年4月11日 01:00) | コメント(2) | トラックバック(0)

Engadget JapaneseというサイトのHTMLに書いてある日本語を euc-jp とか utf-8 にしたいのだけど、方法がわかりません。

ここのサイトのHTMLの meta を見ると charset="iso-8859-1" だということがわかります。ふむふむと思って見てみてもエンティティになっているっぽく「格安」こんな感じになっています。実際これをHTMLで書くと下記のようになります。

「格安」(←実際にはHTML内で「格安」こう書いてます)

このように「格安」とブラウザ上には表示されます。。。うーむ。どうやってこのエンティティをeuc-jpやutf8にするのかと小一時間。

use Encode;
use HTML::Entities;

print decode('iso-8859-1', decode_entities('&#26684;&#23433;')), "\n";

こんな感じにしてutf-8にしてみようと、やってみたりしたのですが、「Wide character in subroutine entry at /usr/lib/perl/5.8/Encode.pm line 166.」となってしまいます。。。

まだ調査途中なのですが、煮詰まったのでエントリを書いてみるテスト。もうちょと調査してみます。

Tue Apr 11 02:18:44 2006 追記

コメントでmiyagawaさんに教えてもらいました。decode_entitiesした時点でUnicodeになっているので、あとは utf-8 で出力したければ、encode('utf-8', decode_entities('格安')) したらよいようです。ちなみに euc-jp にしたけりゃ encode('eucjp', decode_entities('格安')); です。

sttyのフロー制御でハマりました

clouder (2006年4月10日 19:15) | コメント(5) | トラックバック(0)

Unix系のOSをいじっていて、突然キー入力ができなくなって ^q で元の入力状態に戻るというような現象にみまわれたことはないだろうか。そんな現象になるのはたいていフロー制御の stop モードになっていることが原因らしい。気付かない間に ^s を押してフロー制御の stop モードになっているのだろうと思う。

この現象になっている端末で emacs を使おうものなら、^x^sで保存ができなくなってしまうのだ。コワー。(まぁその場合でも^xsで一応保存はできるのだが)

ちなみに ^sが stop モードに割当てられているかどうかは、コマンドラインで

% stty -a

とやると確認できると思う。ちなみに ^q は start に設定されているはずである。^s で stop、^q で start とフロー制御をやるらしい。でもこんな状態になっていると emacs が満足に使えないので、自分は苦肉の策で、

% stty stop ''

として対応しました。これで ^s を押しても stop モードにはなりません。
でもこれって正しい解決法なんでしょうか…。

教えてエラい人！

はてなで使ってるCapistrano(旧SwitchTowerｌ)を使ってみようと思った

clouder (2006年4月 6日 16:54) | コメント(0) | トラックバック(0)

YAPC::Asia 2006 ではてなおやさんが言っていた、Capistrano(旧SwitchTower)を使ってみようと思い、インスコして使ってみた。

あくまで Ruby 初心者が感じた感想ですが、元々 Capistrano は Ruby on Rails 用にできているため、素で Perl のプロジェクトには使えなそう。使うには Ruby でごにょごにょ書いてなんとかする力が必要そうです。

英語のページを見ればだいたい使い方はわかるけど、日本語での説明ページはあまりないようだ。参考にしたのは下記のページ達です。

http://manuals.rubyonrails.com/read/chapter/97
http://kawara.homelinux.net/pukiwiki/pukiwiki.php?SwitchTower

ということで、現状すぐに導入っていうのは難しそう。
Perl のデプロイツールを探してみたがいいのはなさそう。作れってことか！

Extractor が RSS と JSON の出力をサポート

clouder (2006年4月 6日 01:36) | コメント(0) | トラックバック(0)

Extractor に RSS と JSON の出力機能を追加しました。

使い方は簡単で、今まで「http://extractor.47objects.com/url?url=対象の URL 」とやってコメント一覧を見ていたと思いますが、この「/url?url=対象の URL 」の部分を「/rss/url?url=対象の URL 」もしくは「/json/url?url=対象の URL 」とするだけで各形式に変換されたリストが出力されます。

たとえば、今まで Extractor(http://extractor.47objects.com/) というページに対するコメントは下記のようなURLで見ていました。

http://extractor.47objects.com/url?url=http%3A%2F%2Fextractor.47objects.com%2F

これを RSS 形式ならば、↓

http://extractor.47objects.com/rss/url?url=http%3A%2F%2Fextractor.47objects.com%2F

JSON 形式ならば、↓

http://extractor.47objects.com/json/url?url=http%3A%2F%2Fextractor.47objects.com%2F

とするだけでそれぞれ形式でリストが出力されます。

出力される内容ですが、RSS は del.icio.us の RSS と同形式になっています。JSON に関しては下記のような形式になっています。

url
extractor_url
comments

aggregator
creator
date
tag
description

サービスの性質上、最初のアクセスに関してだけはコメントを集めてくるために多少ロード時間がかかると思いますが、1度ロードしてしまえば、1時間はキャッシュされますので早いと思います。

利用方法ですが、気になるページの RSS を RSS リーダーや Bloglines などに登録して新着のコメントを調べるとか、JavaScriptなどを使って自分のブログがブックマークされたらそのコメントを表示するとかいろいろとありそう。

ってまぁ、はてダもdel.icio.usもRSSを吐いてるので、それを使えばいいって話はおいといて…。一緒になってることに意味があると。。。

YAMLで改行を含む値を表現する方法

clouder (2006年4月 5日 15:30) | コメント(0) | トラックバック(0)

key: |
  this is example
  this is example

ってやるみたい。

ちなみに今一番知りたいのは、YAMLファイルで上の方で定義した値を下の方で使いたい場合どうするか。教えてエロい人！

foo: 1
bar: 2
baz: ***←ここでfooとかbarの値を使いたい。例えば 123 を表現したいとか。「$foo _ $bar _ 3」とかできないのかなと

初めてGoogle AdSenseから振り込みが！

clouder (2006年4月 4日 20:33) | コメント(0) | トラックバック(0)

Google AdSense をこのブログに貼って苦節1年、初めての振り込みがありました！
初めて振り込みがあったということでおいくらぐらいなのかは想像がつくと思います…。
有名なアルファなんとかさん達のに比べたら、まさに雀の涙級ですが、やっぱり嬉しいです！

ちなみにこのブログでGoogle AdSenseを貼っているのはサイドバーとパーマリンクなんですが、クリック率が多いのはサイドバーみたいです。個々の記事よりもサイドバーのを押す方が多いってのは意外っちゃ意外。サイドバーはページを表示したとき小さい画面だと下に隠れることも多そうだけどなぁ。

毎日1エントリ

clouder (2006年4月 4日 17:16) | コメント(0) | トラックバック(0)

最近なかなかブログを書いてないので、できる限り毎日1エントリ書いてみようかと思う。
技術ネタだけだとネタが尽きそうなので日々の生活についても書いてみようかな…。

Class::DBIとStorableでハマりまる

clouder (2006年4月 4日 00:34) | コメント(0) | トラックバック(0)

あるプログラムを作っていて Storable の retrieve を使おうと思ったらなんか変。
あれ…と思って小一時間プログラムを眺めていたら Class::DBI の retrieve を呼んでいた…。

にゃろめ。

2006年4月アーカイブ