Drkcore

[% FOREACH tag = tagcloud %]
<span style="[% tag.2 %]">
<a href="[% Catalyst.uri_for('/bookmarks/') %]/[% tag.0 %]">
[% tag.0 %]([% tag.1 %])
</a>
</span>
[% END %]

となってちょっとわかりにくい気が。

あと、WWW::CloudCreatorはサイズだけじゃなくて色も変化させることができるんだが、こっちはちょっとバグってた。

81行目あたりをhexdecでレンジを揃えて82行目でdechex二度がけ。

my $ihex = hexdec($coldarray[$i]) + ($colorstep[$i] * $fraction);
my $decihex = dechex(dechex( $ihex ));

dechex関数も直す。負の方向にグラデーションがかかる場合にa-fがdechexに渡ったら無視するように。

sub dechex {
   if($_[0] =~ /\d+/){
           return sprintf '%x', $_[0];
   } else {
           return $_[0];
   }
}

これでうまくいってるような気がするけど。

wcc

色のグラデーションはタグの頻度ではなくて、タグ間の関連性とかの違う軸ででかけるようにしたいなぁ。

26022007 長野

ヤマボクトリップ2007

今シーズンはまるで滑ってないわけだが、苗場、赤倉温泉に続いていつのも山田牧場に行ってきた(ヤマボクトリップ)

到着して一言、

ウワー、雪がねー。

正直、一昨年の年末のヤマボクよりも雪が少ない。

前日降ったにも関わらず、上級コースは笹が見えまくりで滑れそうなかんじではニャイ(でも滑ったけど)。しかもところどころガードレール見えてるし（擦ったけど）。後で宿の人に聞いたら、今シーズンは上級コースがまともに滑れる日が一日もなかったそうだ。

初日は吹雪いてたが、スコップ担いで、ビデオ持ってキッカー作って飛びまくり。例年より雪が少ないのでキッカーポイント探すのに苦労した。カメラは持って行ってなかったので写真は撮ってないが、吹雪いていると微妙に視界が悪く、樹氷が綺麗で、一人乗りリフトなんか乗ると幻想的で綺麗だ。一度は薦めたい。

二日目は前日とは違い快晴。しかも少しだけ積もったので、スピード出すと雪が舞うのできもちいい。右側のリフト降りたとこで撮影したらこんな感じ。

ちょっと厳しいそうな林間とか怪しそうな新雪を隠れキャラに気をつけながら滑りまくり。数少ない今シーズンのトリップの中で一番。

昼は、二日ともコンパス。前日はチーズとベーコンの焼きカレーを食べたので、二日目はベーコンと杏のピザ（蕎麦粉）とカフェオレ。

ベーコンに杏はどうかなと思ったけど、鴨肉にフルーツソースかけた感じでかなりいい。やっぱ、キッチンコンパスうめー。

ヤマボクサイコー！

でも、今シーズン滑り納めな気がする。

26022007 template tt

TTでサブルーチン

TTにクロージャを渡せるということを知らなかったので、ドキュメントを読んだ。

Catalystだとコントローラーでクロージャ作ってTTに渡せばプラグイン化するまでもないちょっとした処理はOKっぽい。

Virtual Methodsはpythonみたいだ。メソッドとして使いたいものはこっちで書いたほうがいい気がするが、プラグイン化するのが前提っぽいのでお手軽感がちょっと減る。

というわけで、上記のどちらかを使えば、PERLブロックはあまり使わなくてもいいような気がしてきた。この前のPERLブロックは後で書き直す。

23022007 perl TT

TTで-fを評価する方法

pdfみたいに、あるファイルが存在するかどうかをTTで調べてファイルが存在する場合にアイコンなんかを表示させたい、

つまりTTで-fを評価したかったのだが、いいやり方が思い浮かばなかった(みつからなかった)のでPERLブロックで評価してしまった。

[% PERL %]
  my $pdf = "/static/PDFs/". [% some %] . ".pdf";
if(-f "root$pdf"){
  print '<img src="http://www.kzfmix.com/static/images/png/PDF_icon.gif" /></a>';
}
[% END %]

むむむな感じなんだけど。

22022007 Catalyst perl DBIC

DBICで集約関数を使ってTTに送る場合に

タグのテーブルなんかでタグをカウントしてtagname(count)とか出力したいときにDBICだとどうやんのかな？と。

http://en.yummy.stripper.jp/?eid=448071
http://d.hatena.ne.jp/nekokak/20061115/1163580576
http://5net.com/blog/2006/11/dbic_count_order_by.html

$c->stash->{t_it} = $c->model('DBIC::TableName')->search( $query_ref, { select => [ 'user_id', { count => 'user_id' } ], as => [qw/ user_id posts_count /], group_by => ['user_id'], order_by => 'count(user_id) DESC', }, );

とasを指定しておけば、TTのほうで

t.get_column('posts_count')

でカウントが表示できる。

タグの名前とカウント数を表示させたい場合にはこのままTTでいいと思うが、タグクラウドにしたい場合は、コントローラーでHTML::TagCloud::ExtendedとかHTML::TagCloud を使ったほうがいいのかもと。

あとYAPCのチケットとった。DBICネタが密かに楽しみだったり。

21022007 kwiki

Kwikiが新しくなってた

Kwiki2.0ってなってた。早速svn coしたRevision 162はKwiki::Configあたりでエラーが出てて動かないっぽいので、downloadsのを動かして遊んでみた。

kwiki -start

でスタンドアロンサーバーで動くぜ！みたいに書いてあるんだけど、オプションがなくて悩んだ。どうもダウンロード版は

とやって、サーバー用のモジュールを組み込まないと

kwiki -start

できないような。svn coしたやつはpluginもゴソゴソって落としてくるので問題ないのかな?Kwiki::Configのエラーでaddもinstallも出来なかったのでわからん。

生まれ変わったkwikiはかなり速くなって快適度が増してる。後でソース読んでみよう。

20022007 baby

凸型の滑り台付きジム買った。

ユッキーが、ちょうど一歳なので先週末に買ってきた。

アンパンマンピッピジャングルパーク

アガツマ / ?円 ( )

まだ自分で階段登れないので、滑り降りるたびに滑り台の上まで持ち上げてやらなあかんのだけど。

最近は、HDDレコーダーに撮り溜めたお母さんと一緒になんかを一緒にみるようになってきたんだけど、スプーがやっとつながった。

あとwiiなんかもいい感じで、Rimoのアニマルチャンネル効果絶大！。風呂から上がってパジャマ着せるときに釘付けになってるので、超楽。

19022007 Python turbogears

kidってなかなかいいかも

TurboGearsのテンプレートエンジンのKidって使いやすい感じだなぁ思ったので、週末何でかなーってジムの自転車漕ぎながら考えてた。

TurboGears: Kid Template System — nagosui.org

多くのテンプレートシステムでは、タグをミスマッチな状態にしておくことが可能になっています。KidにおいてはあなたのテンプレートはvalidなXMLになります。つまりあなたは、ミスマッチなタグが存在しないことを保証されているのです。

CatalystのTTなんかはブロックでくみ上げるイメージになるのでブロック内でif-elseとかごちゃごちゃやりだすと手が付けられなくなってくるけど、KidはXMLだからDOMTreeみたいな思考パターンになって処理のイメージがしやすいのかナァってのが今の結論。つまり、TTは面構造(PROCESSとか)なのに対し、Kidは木構造(defとか)だと。

Kidも使い込んでいくと、嫌なとことか目についてくるだろうからまた変わるかもしれんけど。

もう5年目(wishlistありマス♡)
最近はPythonとDeepLearning
日本酒自粛中
ドラムンベースからミニマルまで
ポケモンGOゆるめ