先日のOkinawa.rb Meetup! に参加した時に 「Emacsで仕事中にこっそりバレないようにWeb上のあれな動画を見られるなら乗り換えてやりますよ」 って感じのことを言われました。
「無理難題をふっかけて来やがって、こいつは仮に出来ても乗り換えはしないな」 なんて思ったりもしました。 まあこの手の問題に対して「無理」って突き返すのは簡単。
しかし、そういう無理な問題に対しても どうにか比較的近い代替案を大人のやることらしいので、 一応挑戦してみる。
まあ、まず、Emacs上で動画を再生するってのが、 少なくとも通常のEmacs環境だと無理。 でもまあ、Emacsから動画プレイヤーを起動できればいいよねってことにすると 以前に書いた、 やたー。emacs-w3mでリンク先のyoutubeの動画をmplayerを使ってストリーミング再生できたよー で既にyoutubeはそれに対応している。
で、ちょっと調べてみると、 やはりyoutube-dlは他のサイトにもいくらか対応していて その対応サイト一覧を出してみると
$ youtube-dl --list-extractors youtube:playlist youtube:user youtube:search youtube metacafe dailymotion video.google video.google:search photobucket video.yahoo video.yahoo:search DepositFiles facebook blip.tv vimeo myvideo comedycentral escapist collegehumor xvideos soundcloud infoq mixcloud stanfordoc mtv generic
こんな感じ。目的のサイトも入っている。
しかし実際にそのサイトの物をDLしようとすると
ERROR: unable to extract video thumbnail
とか怒られるのでぱっちを当てる必要がある。
なんだけど https://github.com/rg3/youtube-dl/issues/370 に丁度いいぱっちがある! まあこれからどう当てるかわからんので手で当てましたけども。 (というかこれに気付かずに自分で同じの書いたけど) Homebrewで入れたやつだとPythonスクリプトがそのまままとめられてるだけなので 簡単にパッチ当てられます。
youtube-dl -Uしたものの場合はzipで固めらてるようなので諦めて Githubからcloneしてきてぱっち当ててmakeしましょう。
で、ぱっちを当てたところで、以前に書いたw3m-play-movieって関数の string-matchのところに目的のサイトのURLに適当にマッチするのを書けばいいはずだけど それはあれ。 どうせなら他にもまとめて対応したいじゃん? (目的のサイトがバレバレだと恥ずかしいしね! 上のぱっちでバレバレだけど)
というわけで、以下のようにその関数を定義する
(defun w3m-play-movie ()
(interactive)
(let ((url (w3m-anchor))
file-name)
(cond ((string-match (concat "^http.*" (regexp-opt '(".mpg" ".wmv" ".avi" ".flv" ".mp4")) "$") url)
(call-process "mplayer" nil nil nil "-fs" url))
((string-match "^http:\\/" url)
(message (concat "loading from website... " url))
(call-process "play-youtube" nil nil nil url))
(t
(message "not movie.")))))
うん、対応なんてかっこいいこと言ってたけど、 実際はhttpで始まるURLを渡されたらplay-youtubeってコマンドに投げてるだけだ。
そしてそのplay-youtubeの中身は
#!/bin/bash mplayer -fs $(youtube-dl -g $1)
こんな感じ。 youtube-dlが動画のURLの取得に失敗したらmplayerも再生に失敗するだけなんで 細かいことは気にしない方針で。
で、ここからが次の大きな問題。 「仕事中にこっそり」って動画でどうやるんでしょうか。
まず、絵じゃなくて文字列を眺めてるんだったら怒られないんじゃね? って発想で Mac(Lionちゃん)で文字だけで素敵に動画を再生しちゃおう☆ で用意した環境を使ってみる。
ということで例のplay-youtubeをこう変える。
#!/bin/bash CACA_FONT=6x10 CACA_GEOMETRY=100x32 mplayer -vo caca $(youtube-dl -g $1)
CACA_GEOMETRYを半分にしてちょっと小さめに表示してこっそり感をアピール!
とかやってみたけど、予想通りやっぱり、見るに耐えないw というわけで却下。
でも画面を小さく表示するって発想は悪くないよね。 なので普通に再生して縦横のpixelを小さくしたらどうだろう。
#!/bin/bash mplayer -xy 200 $(youtube-dl -g $1)
よし、これぐらいなら普通に見れるぞ! だけど普通に見れるから何もこっそりじゃないよね! それはよくない! ちなみに100だと今度は小さすぎて見られたもんじゃない! やっぱり映像を流しておいてこっそりってのは無理なんじゃないだろうか。
じゃあもういっそ映像は諦めよう! 音声だけ聞こう!
#!/bin/bash mplayer -vo null $(youtube-dl -g $1)
って感じ。
まあ、仕事中にそんなもの見るとか不埒なことを考えんなよ、さすがに俺でもしないぞ。
