ただのにっき

◆ 1億が2口かぁ。おれもtotoやろうかなぁ。

◆ 午後からエグザス。ランニングマシンで5kmほど。隣でジョギングしてる兄ちゃんとペースが一緒だった。こっちは歩いてんのに(笑)。降りた後のクラクラ感を楽しむ。ラリってるみたいでいい感じ。昨日のライディングでちょっと腰が痛くなっていたけど、運動したら治ったようだ。やはりじっとしてるのが一番悪いみたいだなぁ。バイクもワインディングに入ればけっこうな運動なんだが、高速道路や市街地じゃねぇ……。

◆ BEKKOAME

BEKKOAME//INTERNETから更新の手紙が来ている。おれがインターネットに初めてつないだときから使っているプロバイダ。もう何年になるのかも覚えてない。しかし、もうダイヤルアップ先も、メールも、Webのコンテンツもよそに移しちゃったので、今年は更新しないつもりだ。ちょっと寂しいけどね。でもノスタルジーと保険のために21,000円/年はちと高いかな。さらば、sho@bekkoame.ne.jp。

◆ tDiary

ツッコミメールのSubjectが変という指摘があったので見直してみる。おお、変だな、こりゃ。MIME化したあとに行分割するんじゃなくて、行分割した後にMIME化しないとダメやんけ。アホかおれは。というわけでcommit。

◆ ヒノキ?

関東平野を透明なドームで覆って、内部の杉は全部伐採。ドームへ出入りする人は着替えとシャワーを義務づけてはどうかとマジで考える今日この頃。

「今日は目がかゆくなるなぁ」(←今まではどちらかというと鼻に来ていた)とa.kにボヤいたら、「ヒノキかも知れない」とのこと。それどころか「この目に刺さる感覚はヒノキだ」とか言うし。花粉の種類までわかるとは、まさに花粉症患者は新人類だのぅ。

って、ヒノキにまでアレルギーだとすると、春のツーリングはほぼ絶望とちゃうんかいっ。なんとかしろよ、林野庁!!

◆ cvs -d

cvsの-dは最初だけでいいという話を書いたら、偶然(?)別々のところから同じ利用法を教わる(zt日記と*Messages*)。

でもそのレポジトリ指定commitを使う、利点がイマイチ理解できず。単にヒューマンエラー防止のために手間をかけるということなの?　おそらくおれのcvsの使い方がまだまだヌルいので(実際ヌルい。ブランチの分け方知らないし[笑])、想像できないような恐ろしい罠があるに違いない。

環境変数CVSROOTは以前使ってたんだけどね。複数のCVSサーバを使うようになったので、使わなくなったな、さすがに。

◆ 花粉症

病は気からという言葉は、健常者や半病人には言ってもいいけど、本当の病人に対して使うにはちょっとばかり配慮に欠けるのではないでしょうか。片時もマスクを手放せず、視界はしじゅうぼんやりしている状態で、気にしないでいられるわけがないのですよ。もしかするとtakeshiさんはご自身も花粉症で、同病者へのアドバイスのつもりなのかも知れない。でも、症状は人によって違うものだから、やっぱり配慮は必要だよね。

おれも身内に花粉症患者がいるから、けっこうわかってたつもりで、今までもいろいろ気を使っていたつもりだけど、実際になてみるとぜんぜん配慮が足らなかったなーって思うし。病気って、なってみないとわかんないもんだよなぁ。

ところで、a.kのセンサーは正解だったもよう。感度いいなー。

◆ tDiary: テーマ

うお。なんかもりもりcommitされてる。zoeさんパワーあるなー。Nanaもついに初commitに成功したようだし、テーマ作者はたいへん充実してきたあるよ。フルセットが1MB越えるのは時間の問題だな(笑)。

◆ 目がかゆい

……のを通り越して、そろそろ「ギガかゆい」の領域に(おやじギャグ)。

週末あたりから急にひどくなったな。目もそうだけど、肌がピリピリする。1日に何度も顔を洗うようだ。猫をなでると手がヒリヒリしてくるし。ので、「乳首にくる」というのもまんざら嘘じゃないと思うっす >ち

◆ IDN

とうとう決まっちゃったなぁ、国際化ドメイン名。

tDiaryのツッコミやWikiスタイルのように、URLを自動的に識別してリンクに変換するようなコードを持っている場合、どうやって対応したらいいんだろう。

ためしにhttp://日本語ドメイン.jp/にアクセスしてみて下さい

てな文からURLを抜き出すなんて、考えたくもないぞ。TLDをうまくひっかければできるような気はするが。はぁ。

◆ 日本育英会廃止

しまった!! 急いで返しすぎたか! 踏み倒せたかも知れないのに(ないない)。

◆ 逆転イッパツマン DVD-BOX 2

なんだか、欲しいものが続けざまに登場する時期ってあるものなのだろうか。つーかすでに「1」は出ていたのね、知らんかった。でも、買っても見る暇ないしなー。……といいつつウィッシュリストに入れてしまう。

ちなみに「タイムボカン」シリーズではこれが一番好き。このシリーズの様式美(?)が最高の完成度に達したのが『イッパツマン』だろう。そういえば、山本正之のアルバム「少年の夢は生きている'89」には『100点シュッパツマンの歌』というあからさまなパロディが入っているが、これがまた、実にいい出来なんである。間奏に変調された『線路はつづくよ』がはさまったりするんだぜ。

◆ Re: amazon検索のための省略記法

かなり手抜きだけど、こんな感じ? ISBN/ASINとそれ以外を確実に判断できる正規表現がわからん。

Index: amazon.rb
===================================================================
RCS file: /cvsroot/tdiary/plugin/amazon.rb,v
retrieving revision 1.25
diff -u -r1.25 amazon.rb
--- amazon.rb   16 Feb 2004 06:27:29 -0000      1.25
+++ amazon.rb   11 Mar 2004 03:57:25 -0000
@@ -151,7 +151,15 @@
 end

 def isbn_image( asin, comment = nil )
-       get_amazon_image( "amazon", asin, comment )
+       if /^[A-Z0-9]{10}$/ =~ asin then
+               get_amazon_image( "amazon", asin, comment )
+       else
+               %Q|<a href="#{File::dirname( @amazon_url )}/| +
+               %Q|external-search/250-5994815-7623407?| +
+               %Q|mode=blended&amp;tag=#{@options['amazon.aid']}&amp;| +
+               %Q|encoding-string-jp=%c6%fc%cb%dc%b8%ec&amp;| +
+               %Q|keyword=#{CGI::escape( asin )}">amazon:#{asin}</a>|
+       end
 end

 def isbn( asin, comment )

◆ 見た目じゅーよー

一昨日、日経の朝刊を読んでいてちょっとびっくりしたのが一目瞭然検索エンジンMARSFLAGの一面カラー広告。プレスリリースだけ出して「あとは口コミで認知されればいいですから」的な新サービスばかり見てきた身としては、逆に新鮮なプロモーションであったよ。

で、試してみたけど、やっぱ見た目はけっこう重要だなぁ。こういう表現されると、やっぱ楽しい。ただ、イロイロ検索してみると、検索エンジンとしての性能はぜんぜんダメっぽく、実用にはちょっとね……。「tDiary」を検索したときは文句なかったんだが、自分の名前やIT系企業名を試してみたあたりからメタメタな結果ばかりが。「富士通」で検索したらトップが「@nifty」ってのはどうなのよ(笑)。folksonomyを使ってるとか言ってるけど、大事なのはアルゴリズムじゃなくて結果やろ。

で、呼応するようにして(?)MM/Memoにも一部にサムネイルが付くようになった。これ、各ユーザのメモで表示されるようになるとかなり利便性が上がるんじゃないかなぁ。スクリーンショットは記憶に強く結びついているから、タグよりも検索性が高い。近過去のメモを記憶に頼って探すときには、サムネイル付きの方が早そう。

＃追記: とか言ったとたんにつきましたよ!! こりゃいいわ。もっと大きくてもいいかも。

◆ 野村万作・萬斎 狂言への誘い@グリーンホール相模大野

もういい歳なので古典芸能にでも親しもうではないかということで(やや嘘)行ってきた。狂言デビューである。出し物は「舟渡むこ(知かんむりに耳)」と「蝸牛」。でも「ショートショートのハチャハチャみたい」なんて感想を抱いたら台無しですからッ、このSF者め! いや、面白かったデスけど。

萬斎の芸は、どこまで「伝統」でどこから「独自」なんだろうな。数を見ないと判断できないが、感覚的にはすごく「現代的」で、他の演者からはやや浮いていたような。かみさんによればあの人は、現代劇をやらせてもちょっと浮くらしいので、今は微妙な立ち位置にいるんだろう。このさき歳を重ねて、さらに独自の道を歩むのか、それとも伝統に引き戻されるのか、興味深いところ。

いっぽう万作はイイね! ファンになりそう。

◆ 真鶴へ

6:30に目覚ましをセットしたのに、目が覚めたのは9:30だった。なぜ。

でも天気が良くてもったいないので、軽く真鶴まで走りに行った。続きはふらっとツインにて。

◆ 京都 2-7 川崎

TV観戦。なんか、異常に強くて気味が悪いくらいだ。今日はジュニーニョがハットトリック。我那覇も2得点だし、この2人でもう10点もとってる。

今季はアウグストがいなくなってどうなることかと心配していたけど、攻撃が左に偏らなくなって、かえってよかったのかも。ジュニーニョ依存度が下がって、我那覇が機能するようになったしなぁ。

ただ、2点の失点はどちらもミスからなので、やらなくても良かった点だな。ところどころ、集中力が途切れることがあるような。

◆ 確定申告

医療費やら原稿料やらを申告するために、申告書作成用Webアプリで悪戦苦闘して日付が変わる。「悪戦苦闘」はもっぱら最終段階、ブラウザ上にPDFを表示させて印刷というフェーズにおいてなんだが。これはアレか、おれがSleipnirとFoxitなんて組み合わせで使ってるせいなのか? それ以外の部分はけっこうよくできていて、ちょっと感心したんだけどね。

◆ Vista時代の壁紙術

タイトルは「○○時代の××術」って書いてみたかっただけですすみませんすみません。Vistaなんて、ヨドバシのPC売り場でちょこっと触ったことがあるだけです。IT業界にいてそれもどうかと思うけど。

で、(ワイド液晶ディスプレイを持っているわけでもないのに)Yahoo! Widgetsを使っている関係で、画面の右端をちょっと空けているのである。残りの部分はPoderosaをほとんど全画面化して使っているので、この下の画面は目にすることがない。つまり、せっかく壁紙を設定していても、目に入るのは右端のほんの100ピクセル程度ということになる。

これはもったいない。

そこで、この領域を「サイドペーパー」を名づけ、この大きさにフィットする壁紙を設定してはどうかという話。

まず思いついた縦長の絵は、『ぴっぴら帳』を読んでいて気づいた「四コママンガのタイトル」。これをスキャナで取り込んでトリミング、設定してみた。『ぴっぴら帳』は7年も続いたから、季節感あふれる図柄には事欠かないし。

もっとも幅100ピクセルにすると縦がぜんぜん足らないので、ちょっとマヌケか。……というか、やってみたものの一気にオタクくさくなったのでこの案は却下。

次のアイデアは風車。ブレードをカットしてよければ、縦長の領域によく合う。これはいいですな。

しかし、やはり縦長といえばロケット。これはいいかもしんない(←アリアン好き)。どっちがオタクやねん、と言えばこっちかも知れないが。

ぴっぴら帳 1 (1) (アクションコミックス)
こうの 史代
双葉社
￥ 650

ぴっぴら帳 (完結編) (Action comics)
こうの 史代
双葉社
￥ 980

◆ 「サイドペーパー」設定スクリプト: sitepaper.vbs

こないだ書いたディスプレイの解像度を知りたいという話は、この「サイドペーパー」を楽に設定するためのスクリプトが欲しかったからなのだ。

で、できたのはコレなんだけど:

'
' sidepaper.vbs: set wallpaper on right-bottom side.
' Copyright (C) 2007 by TADA Tadashi <sho@spc.gr.jp>.
' Distributed under GPL.
'
Function HiMetric2Pixel( himetric, logPixel )
   HiMetric2Pixel = CInt( (himetric * 567 * logPixel) / (1440 * 1000) )
End Function

Dim args
Dim picture
Dim shell
Dim wmi
Dim disps

Set shell = CreateObject( "Wscript.Shell" )
Set args = Wscript.Arguments
If args.Length < 1 Then
   shell.RegWrite "HKCU\Control Panel\Desktop\WallpaperOriginX", "0", "REG_SZ"
   shell.RegWrite "HKCU\Control Panel\Desktop\WallpaperOriginY", "0", "REG_SZ"
   Wscript.Echo( "Setting wallpaper offset to zero." )
   Wscript.Quit
End If
Set picture = LoadPicture( args( 0 ) )

shell.RegWrite "HKCU\Control Panel\Desktop\WallpaperStyle", "0", "REG_SZ"
shell.RegWrite "HKCU\Control Panel\Desktop\TileWallpaper", "0", "REG_SZ"
shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", args( 0 ), "REG_SZ"

Set wmi = GetObject( "winmgmts:\\.\root\cimv2" )
Set disps = wmi.ExecQuery( "Select * from Win32_DisplayConfiguration", , 48 )
For Each disp in disps
   width = HiMetric2Pixel( picture.Width, disp.LogPixels )
   height = HiMetric2Pixel( picture.Height, disp.LogPixels )
   offx = CStr( disp.PelsWidth - width )
   offy = CStr( disp.PelsHeight - height )
   shell.RegWrite "HKCU\Control Panel\Desktop\WallpaperOriginX", offx, "REG_SZ"
   shell.RegWrite "HKCU\Control Panel\Desktop\WallpaperOriginY", offy, "REG_SZ"
   shell.Run "RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters",0,True
   Wscript.Quit
Next

これを「sidepaper.vbs」というファイルに保存し、その上に好きな画像ファイルをドラッグ&ドロップすればデスクトップの右下にフィットするように壁紙を設定してくれる……はずなんだけど、実は動かない。

レジストリ上の値はちゃんと設定されているはずで、何かの拍子に期待通りの表示になったりもするんだが、少なくともおれの環境では実行直後には壁紙が切り替わらない。

最近のWindowsではWallpaperOriginXが使えなくなったんだろうか(おれの知識はWindows 3.1時代のものである)と思ったが、XPで使っている記事もあるから間違ってはいなさそうである。うーん……。