聴きたいradikoの番組を聴き逃さないために、時間になったら自動的に番組を再生してくれるプログラムを作ってみました。 再生にはブラウザを使用するので、Schemeで番組表APIを叩いて検索、番組データをJSON化してブラウザに渡す、という流れになります。 ブラウザとSchemeの通信に関して、JSONPを使うかどうか悩んだんですが、Racket(PLT Scheme)のテンプレート・システムでHTMLデータを生成する方法を選びました。 メイン関数 (fun (radiko info) (aand (filter-map (find-progs info) ((sxpath '(radiko stations station)) (timetable))) (progs.json it) (serve it)))(radiko '((pfm "山里亮太")))のように呼び出します。pfm(