Yusukebe::Tech

Catalystのアプリケーションの中で例えばView::TTとView::JSONとか複数のViewを使っている場合に、 デフォルトのViewを設定したい。endメソッドにdefault_viewを指定すればよいみたい。

sub end : ActionClass('RenderView') {
  my ($self, $c) = @_;
  $c->config->{default_view} = "TT";
}

YouTubeの映像をembedで埋め込みたいけど、映像によってはembedを許可してないビデオもある。 ビデオIDをキーにしてそれをPerlで判定するメソッド。_fetch_xmlはレスポンスをXML::Simpleで変換したハッシュを返す。

sub check_embed_status {
  my ( $video_id ) = @_;
  my $youtube_url = "http://www.youtube.com/api2_rest?method=youtube.videos.get_details&dev_id=xxxxxxxxx&video_id=$video_id";
  my $youtube_xml = _fetch_xml($youtube_url);
  if($youtube_xml->{video_details}->{embed_status} eq 'ok'){
    return 1;
  }else{
    return 0;
  }
}

.screenrcにdefutf8ではうまくいかなかったので.bashrcなどに

alias screen='screen -U'

で対処。

ソースコードに色づけしてくれるgoogle-code-prettifyをこのBlogにも導入してみた。 C、Javaをはじめ、Perl、Javascript、HTML、CSSなどなどのコードにも対応している。 このサイトを参考に、 prettify.cssとprettify.jsを置く。その際昔まで使ってたpreタグのCSSをprettify.cssに引き継がせてる。

pre.prettyprint{
	border: 1px dotted #CCCCCC;
	margin: 3px;
	padding: 12px;
	line-height:1.3em;
	overflow: auto;
}

テンプレートのHTMLを書き換えて、あとは今までのエントリーのpreタグをpre class="prettyprint"に置換しておけ。

videoのidが「FAPtTS0TYtU」の場合だと以下のURLで3種類ゲットできる。初めて知った。

http://img.youtube.com/vi/FAPtTS0TYtU/1.jpg
http://img.youtube.com/vi/FAPtTS0TYtU/2.jpg
http://img.youtube.com/vi/FAPtTS0TYtU/3.jpg