生存報告記

ちょっと体調悪いかも。気分が良くなくなるのはちと問題。

HNFにASINコマンド付加してみる

ASIN 4582852297 人格障害の時代

でリンクになるようにしてみた。LINKコマンドを拡張しただけ。LINK ASIN:xxx でやる手もあったけど、後で拡張しやすいように独自コマンド定義してみた。

package HNS::Hnf::Command::ASIN;
use vars qw(@ISA $ Template $ EndTemplate $ NumAttr $ IsOneline $ AllowCommands $ IsBeginSection $ CountName $ OmittableEnd);
@ISA = qw(HNS::Hnf::Command::Link HNS::Hnf::Command::ConvUrl);
 = qq(<a href="http://www.amazon.co.jp/exec/obidos/ASIN/%1/sakito-22">
<img src="/img/amazon.png">%content(AA)</a>\n);
 = 1;
sub AsHTML ($$$) {
my ($ self, $ start, $ params) = @_;
->ConvUrl();
->SUPER::AsHTML($ start, $ params);
}

みたいなのを追加しただけ。以下のように出ます。

人格障害の時代

あとでLASINとか追加して画像でるのとかも作成するかも。

あとBookmarkletは以下。Bookmarkに登録する時は一行にしてください。

javascript:(function(){var u=document.location.href;var ai=u.indexOf('ASIN'); var asin=u.substring(ai+5,ai+15);var t=document.title;var ti=t.indexOf(':'); var title=t.substring(ti+2);var link ='ASIN ' + asin + ' ' +  title;void(prompt('',link));})()