Index: websites/scheme-users.jp/atom.scm
===================================================================
--- websites/scheme-users.jp/atom.scm (revision 64)
+++ websites/scheme-users.jp/atom.scm (revision 64)
@@ -0,0 +1,40 @@
+(use srfi-1)
+(use srfi-19)
+(use sxml.serializer)
+
+(define lambda-news (lambda ()
+	(call-with-input-file "news.dat"
+		(lambda (in)
+			(let ((news (read in)))
+				(map (lambda (ns)
+					(let ((y (list-ref (car ns) 0))
+							(m (list-ref (car ns) 1))
+							(d (list-ref (car ns) 2))
+							(h (list-ref (car ns) 3))
+							(i (list-ref (car ns) 4))
+							(s 1))
+						(let ((dt (make-date 0 s i h d m y 0)))
+							`(entry
+								(title ,(date->string dt "~Y/~m/~d(~a)"))
+								(id ,(string-append "http://scheme-users.jp/index.html#news" (date->string dt "~Y~m~d~H~M~S")))
+								(link (@ (href ,(string-append "http://scheme-users.jp/index.html#news" (date->string dt "~Y~m~d~H~M~S")))))
+								(updated ,(date->string dt "~Y-~m-~dT~H:~M:~SZ"))
+								(content (@ (type "html"))
+									,(call-with-output-string
+										(lambda (out)
+											(srl:sxml->xml (cons 'p (cdr ns)) out))))))))
+					(take news 20)))))))
+
+(define main (lambda (args)
+	(srl:parameterizable
+		`(feed (@ (xmlns "http://www.w3.org/2005/Atom"))
+			(title "Scheme-users.jp")
+			(link (@ (href "http://scheme-users.jp/")))
+			(updated ,(date->string (current-date) "~Y-~m-~dT~H:~M:~SZ"))
+			(auther (name "Scheme-users.jp"))
+			(id "http://scheme-users.jp/")
+			,@(lambda-news))
+		"atom.xml"
+		'(omit-xml-declaration . #f)
+		'(cdata-section-elements . (content)))
+	0))
Index: websites/scheme-users.jp/news.dat
===================================================================
--- websites/scheme-users.jp/news.dat (revision 64)
+++ websites/scheme-users.jp/news.dat (revision 64)
@@ -0,0 +1,82 @@
+(
+	((2008 11 24 21 25) (a (@ (href "http://shibuya.lisp-users.org/")) "Shibuya.lisp") " にて " (a (@ (href "http://tips.lisp-users.org/scheme/")) "逆引きScheme") " 、 " (a (@ (href "http://tips.lisp-users.org/common-lisp/")) "逆引きCommonLisp") " の作成を開始しました。")
+	((2008 11 22 16 58) (a (@ (href "http://www.plt-scheme.org/")) "Plt Scheme") " Version 4.1.3 が " (a (@ (href "http://blog.plt-scheme.org/2008/11/plt-scheme-v413.html")) "リリース") " されました。")
+	((2008 11 22 16 57) "11月29日(土) に " (a (@ (href "http://www.ospn.jp/osc2008-okinawa/")) "オープンソースカンファレンス 2008 Okinawa") " が開催されます。")
+	((2008 11 18 18 26) (a (@ (href "http://www.scheme.dk/planet/")) "Planet Scheme") " にて " (a (@ (href "http://scheme-users.jp/planet/")) "Planet Scheme Japan") " が " (a (@ (href "http://www.scheme.dk/blog/2008/11/solving-museum-of-evening-i-coffee.html")) "紹介") " されてました。ありがとうございます！")
+	((2008 11 16 21 37) (a (@ (href "http://happyabc.org/")) "HappyABC") " Version 0.2.0 が " (a (@ (href "http://d.hatena.ne.jp/happyabc/20081116/release")) "リリース") " されました。 Windows に対応したようです。")
+	((2008 11 13 11 52) (a (@ (href "http://d.hatena.ne.jp/scinfaxi/")) "Theoria") " さんが開発している Scheme コンパイラ Maeve Version 0 release 1 が " (a (@ (href "http://d.hatena.ne.jp/scinfaxi/20081112/1226496821")) "リリース") " されました。 32bit 機でも OK!")
+	((2008 11 11 09 11) (a (@ (href "http://d.hatena.ne.jp/scinfaxi/")) "Theoria") " さんが開発している Scheme コンパイラ " (a (@ (href "http://d.hatena.ne.jp/scinfaxi/20081110/1226307911")) "Maeve ファーストリリース") " が公開されました。要 64bit 機。")
+	((2008 11 10 17 32) (a (@ (href "http://happyabc.org/")) "HappyABC") " Version 0.1.0 が " (a (@ (href "http://d.hatena.ne.jp/happyabc/20081109/happyabc")) "リリース") " されました。 Flash (.swf) を生成する Scheme コンパイラ !?")
+	((2008 11 07 13 40) (a (@ (href "http://lambdarepos.org/kaela/")) "IRC ログ") " より ニュースグループ comp.lang.scheme の投稿 " (a (@ (href "http://groups.google.com/group/comp.lang.scheme/browse_thread/thread/8927053ede92fd27#")) "porting from Ikarus to PLT") " が盛り上がってます。")
+	((2008 11 06 15 55) "11月 7日(金) 8日(土) に " (a (@ (href "http://k-of.jp/2008/")) "関西オープンソース2008") " が開催されます。")
+	((2008 11 04 09 37) "@IT に Gauche 関連記事 " (a (@ (href "http://www.atmarkit.co.jp/fcoding/articles/gauche/01/gauche01a.html")) "ちょっと変わった Lisp 入門") " が掲載されてました。")
+	((2008 10 31 13 00) (a (@ (href "http://code.google.com/p/mosh-scheme/")) "Mosh") " Version 0.0.7 が " (a (@ (href "http://d.hatena.ne.jp/higepon/20081031/1225424575")) "リリース") " されました。大幅に性能アップ＋機能追加されたようです。 Fasl! Fasl!")
+	((2008 10 29 09 10) (a (@ (href "http://www.plt-scheme.org/")) "Plt Scheme") " Version 4.1.2 が リリース されました。バグフィックスリリースのようです。")
+	((2008 10 27 09 45) (a (@ (href "http://shibuya.lisp-users.org/")) "Shibuya.lisp") " " (a (@ (href "http://shibuya.lisp-users.org/2008/09/23/sltt-1/")) "テクニカルトーク #1") " の " (a (@ (href "http://shibuya.lisp-users.org/2008/10/26/sltt1-mov/")) "発表の録画") " がニコニコ動画にて公開されています。")
+	((2008 10 26 13 08) (a (@ (href "http://groups.google.co.jp/group/comp.lang.scheme/browse_thread/thread/0cf0ee29dcbf95b8#")) "Scheme Language Steering Committee election: comment period is open."))
+	((2008 10 23 12 40) (a (@ (href "http://practical-scheme.net/wiliki/wiliki.cgi?kou")) "kou") " さんにより開発された " (a (@ (href "http://practical-scheme.net/gauche/index-j.html")) "Gauche") " ユニットテストフレームワーク " (a (@ (href "http://www.cozmixng.org/~rwiki/?cmd=view;name=GaUnit")) "GaUnit") " Version 0.1.6 がリリースされました。")
+	((2008 10 21 11 33) (a (@ (href "http://www.codeplex.com/IronScheme")) "IronScheme") " Version 1.0 Beta 1 が " (a (@ (href "http://www.codeplex.com/IronScheme/Release/ProjectReleases.aspx?ReleaseId=14059")) "リリース") " されました。")
+	((2008 10 20 23 13) (a (@ (href "http://shibuya.lisp-users.org/")) "Shibuya.lisp") " " (a (@ (href "http://shibuya.lisp-users.org/2008/09/23/sltt-1/")) "テクニカルトーク #1") " の " (a (@ (href "http://shibuya.lisp-users.org/2008/10/18/sltt-1-tb/")) "発表資料") " が公開されています。")
+	((2008 10 18 13 13) (a (@ (href "http://shibuya.lisp-users.org/")) "Shibuya.lisp") " " (a (@ (href "http://shibuya.lisp-users.org/2008/09/23/sltt-1/")) "テクニカルトーク #1") " が開催されました。会場の様子は " (a (@ (href "http://shibuya.lisp-users.org/2008/10/15/sltt-1-ust/")) "ustream") " でストリーミング配信されています。")
+	((2008 10 11 23 35) (a (@ (href "http://practical-scheme.net/gauche/index-j.html")) "Gauche") " の拡張ライブラリ " (a (@ (href "http://homepage.mac.com/naoki.koguro/prog/dyncomp/index-j.html")) "dyncomp") " Version 0.2.0 がリリースされました。")
+	((2008 10 10 16 44) (a (@ (href "http://ll-onsen.jp/")) "LL温泉 2008 大分 (湯布院) 開催のお知らせ"))
+	((2008 10 10 16 42) "[LISP] " (a (@ (href "http://d.hatena.ne.jp/tazant/")) "tazant") " さんが開発している Lisp 処理系 " (a (@ (href "http://code.google.com/p/t216-lisp/")) "T216") " release 5 を " (a (@ (href "http://d.hatena.ne.jp/tazant/20081009/1223547783")) "リリース") " されました。")
+	((2008 10 08 09 00) (a (@ (href "http://practical-scheme.net/gauche/index-j.html")) "Gauche") " Version 0.8.14 がリリースされました。詳細は Gauche メーリングリストアーカイブをご覧ください。")
+	((2008 10 06 00 02) (a (@ (href "http://shibuya.lisp-users.org/")) "Shibuya.lisp") " " (a (@ (href "http://shibuya.lisp-users.org/2008/09/23/sltt-1/")) "テクニカルトーク #1") " の " (a (@ (href "http://shibuya.lisp-users.org/2008/10/06/sllt-1/")) "ライトニングトーク") " の発表内容が公開されました。")
+	((2008 10 06 00 01) (a (@ (href "http://www.plt-scheme.org/")) "Plt Scheme") " Version 4.1.1 が " (a (@ (href "http://blog.plt-scheme.org/2008/10/plt-scheme-v411.html")) "リリース") " されました。Webサーバと mzc (コンパイラ) の改良のようです。")
+	((2008 09 23 00 03) (a (@ (href "http://shibuya.lisp-users.org/")) "Shibuya.lisp") " " (a (@ (href "http://shibuya.lisp-users.org/2008/09/23/sltt-1/")) "テクニカルトーク #1") " 終了後に " (a (@ (href "http://shibuya.lisp-users.org/2008/09/24/sltt-1b/")) "懇親会") " が行われるようです。")
+	((2008 09 23 00 02) (a (@ (href "http://shibuya.lisp-users.org/")) "Shibuya.lisp") " " (a (@ (href "http://shibuya.lisp-users.org/2008/09/23/sltt-1/")) "テクニカルトーク #1") " にて Lightning Talk (5分間スピーチ) の発表者を募集中です。")
+	((2008 09 23 00 01) "2008年10月18日(土)に " (a (@ (href "http://shibuya.lisp-users.org/2008/09/23/sltt-1/")) "Shibuya.lisp テクニカルトーク #1") " が開催されます。※定員に達したようです。")
+	((2008 09 22 00 02) "[" (a (@ (href "http://srfi.schemers.org/")) "SRFI") "] " (a (@ (href "http://d.hatena.ne.jp/higepon/")) "Higepon") " さんにより提案されていた " (a (@ (href "http://srfi.schemers.org/srfi-98/srfi-98.html")) "SRFI-98") " が " (a (@ (href "http://d.hatena.ne.jp/higepon/20080922/1222048628")) "Final") " になりました。")
+	((2008 09 22 00 01) "Gauche/Kahua セミナー 2008 Fall の " (a (@ (href "http://www.kahua.org/show/news/Seminar")) "資料") " が " (a (@ (href "http://karetta.jp/article/blog/kahua/230867")) "公開") " されていました。")
+	((2008 09 19 00 00) (a (@ (href "http://www.oopsla.org/oopsla2008/")) "OOPSLA") " (10/19-23 USA) で " (a (@ (href "http://www.lisp50.org/")) "LISP誕生50周年を祝うイベント") " (10/20) が開催されるようです。")
+	((2008 09 08 00 00) "Shibuya.lisp のサイト " (a (@ (href "http://shibuya.lisp-users.org/")) "shibuya.lisp-users.org") " が公開されました。")
+	((2008 09 06 00 02) "Lisp/Scheme ユーザの東京(渋谷)周辺(*1)ローカルコミュニティ Shibuya.lisp が結成されました。興味のある方はぜひ " (a (@ (href "http://groups.google.co.jp/group/Shibuyalisp")) "Shibuya.lisp (Google グループ)") " から参加登録してください。(*1 周辺の定義は半径２万kmらしい。ちなみに地球の円周は４万km)")
+	((2008 09 06 00 01) "IRC(" (a (@ (href "irc://irc.freenode.net/Lisp_Scheme")) "freenode#Lisp_Scheme") ") にて " (a (@ (href "http://shibuya.pm.org/")) "Shibuya.pm") " 的な Lisp/Scheme コミュニティを立ち上げよう！という話題で盛り上がってます。興味のある方は、今夜 9 時頃 IRC に接続してみてください。")
+	((2008 09 04 00 02) "[LISP] " (a (@ (href "http://d.hatena.ne.jp/tazant/")) "tazant") " さんが開発している Lisp 処理系 " (a (@ (href "http://code.google.com/p/t216-lisp/")) "T216 release-1") " を公開されました。")
+	((2008 09 04 00 01) (a (@ (href "http://code.google.com/p/ypsilon/")) "Ypsilon") " Version 0.9.6-update2 が " (a (@ (href "http://lwpinball.wordpress.com/2008/09/03/ypsilon-096-update2%e3%82%92%e3%83%aa%e3%83%aa%e3%83%bc%e3%82%b9%e3%81%97%e3%81%be%e3%81%97%e3%81%9f/")) "リリース") " されました。バグフィックスリリースです。")
+	((2008 09 02 00 00) (a (@ (href "http://code.google.com/p/ypsilon/")) "Ypsilon") " 開発者の藤田さんが " (a (@ (href "http://d.hatena.ne.jp/fujita-y/")) "イプシロン用のブログ") " を始められました。処理系実装のテクニックが学べるかも。")
+	((2008 08 30 00 00) (a (@ (href "http://ll.jus.or.jp/2008/")) "LL Future") " が開催されました。")
+	((2008 08 28 00 00) (a (@ (href "http://code.google.com/p/mosh-scheme/")) "Mosh") " Version 0.0.6 が " (a (@ (href "http://d.hatena.ne.jp/higepon/20080828/1219895192")) "リリース") " されました。エラー／例外まわりに Hashtables や Records などなど。")
+	((2008 08 13 00 00) (a (@ (href "http://www.plt-scheme.org/")) "Plt Scheme") " Version 4.1 が " (a (@ (href "http://blog.plt-scheme.org/2008/08/plt-scheme-v41.html")) "リリース") " されています。")
+	((2008 08 06 00 02) "Gauche/Kahua のイベント「" (a (@ (href "http://www.timedia.co.jp/news/press/3545906324")) "Gauche/Kahuaセミナー2008 Fall") "」が開催されるそうです。")
+	((2008 08 06 00 01) "ASCII.jp に Gauche/Kahua 関連記事「" (a (@ (href "http://ascii.jp/elem/000/000/157/157495/")) "注目ワード“高階プログラミング”って何だ？") "」が掲載されています。")
+	((2008 08 01 00 02) (a (@ (href "http://blog.livedoor.jp/naoya_t/")) "naoya_t") " さんにより開発された " (a (@ (href "http://blog.livedoor.jp/naoya_t/archives/51004764.html")) "Gauche on Quicksilver") " が公開されています。 " (a (@ (href "http://mac-users.jp/")) "Macユーザ") " の方はぜひ試してみてください。")
+	((2008 08 01 00 01) (a (@ (href "http://code.google.com/p/ypsilon/")) "Ypsilon") " Version 0.9.6 が " (a (@ (href "http://lwpinball.wordpress.com/2008/08/01/ypsilon-096%e3%82%92%e3%83%aa%e3%83%aa%e3%83%bc%e3%82%b9%e3%81%97%e3%81%be%e3%81%97%e3%81%9f/")) "リリース") " されました。PLT の " (a (@ (href "http://svn.plt-scheme.org/plt/trunk/collects/tests/r6rs/")) "R6RS test suite") " を全てクリアしたそうです。")
+	((2008 07 30 00 00) (a (@ (href "http://larceny.ccs.neu.edu/")) "Larceny") " Version 0.963 が " (a (@ (href "http://groups.google.co.jp/group/comp.lang.scheme/browse_thread/thread/15a79d665d1ca722#")) "リリース") " されました。")
+	((2008 07 28 00 00) (a (@ (href "http://code.google.com/p/ypsilon/")) "Ypsilon") " Version 0.9.5-update2 が " (a (@ (href "http://lwpinball.wordpress.com/2008/07/26/%e7%9b%ae%e3%82%92%e9%96%89%e3%81%98%e3%82%8b%e3%81%a8%e8%a6%8b%e3%81%88%e3%82%8b%e3%83%90%e3%82%b0%e3%82%82%e3%81%82%e3%82%8b%e3%83%bb%e3%83%bb%e3%83%bb%e3%81%a0%e3%81%8b%e3%82%89%e3%81%a1%e3%82%83/")) "リリース") " されていました。")
+	((2008 07 26 00 02) "[CommonLisp] " (a (@ (href "http://ssl.ohmsha.co.jp/cgi-bin/menu.cgi?&ISBN=978-4-274-06721-1")) "実践 Common Lisp") " 発売開始しました。")
+	((2008 07 26 00 01) "[" (a (@ (href "http://srfi.schemers.org/")) "SRFI") "] " (a (@ (href "http://scheme-punks.cyber-rush.org/wiki/index.php?title=ERR5RS:Records")) "ERR5RS Records") " が " (a (@ (href "http://srfi.schemers.org/srfi-99/"))"ドラフト(SRFI-99)") " になりました。")
+	((2008 07 24 00 00) (a (@ (href "http://larceny.ccs.neu.edu/")) "Larceny") " Version 0.962 が " (a (@ (href "http://groups.google.co.jp/group/comp.lang.scheme/browse_thread/thread/ce2bdd06d7c07370#")) "リリース") " されました。主な " (a (@ (href "http://www.r6rs.org/")) "R6RS") " 処理系の " (a (@ (href "http://www.ccs.neu.edu/home/will/Twobit/benchmarks2008.html")) "ベンチマーク") " が公開されています。")
+	((2008 07 22 00 00) (a (@ (href "http://oldtype.sumibi.org/")) "OldType") " Version 0.3.2 が " (a (@ (href "http://oldtype.sumibi.org/show-page/OldType.%E3%83%AA%E3%83%AA%E3%83%BC%E3%82%B9%E3%83%8E%E3%83%BC%E3%83%88")) "リリース") " されました。 " (a (@ (href "http://oldtype.sumibi.org/")) "OldType") " は " (a (@ (href "http://www.kahua.org/")) "Kahua") " を使って開発された WikiClone です。")
+	((2008 07 18 00 00) (a (@ (href "http://code.google.com/p/mosh-scheme/")) "Mosh") " Version 0.0.5 が " (a (@ (href "http://d.hatena.ne.jp/higepon/20080718/1216365536")) "リリース") " されました。R6RS ライブラリの仕組みや syntax-case, syntax-rules などが利用できるようになりました。")
+	((2008 07 17 00 03) (a (@ (href "http://wassr.jp/")) "Wassr") " に " (a (@ (href "http://wassr.jp/channel/gauche")) "Gauche チャンネル") " ができていました。")
+	((2008 07 17 00 02) (a (@ (href "http://wassr.jp/")) "Wassr") " に " (a (@ (href "http://wassr.jp/channel/lisp")) "Lisp チャンネル") " ができていました。")
+	((2008 07 17 00 01) (a (@ (href "http://www.hatena.ne.jp/")) "はてな") " に " (a (@ (href "http://scheme.g.hatena.ne.jp/")) "Scheme グループ") " ができていました。")
+	((2008 07 15 00 00) "[" (a (@ (href "http://srfi.schemers.org/")) "SRFI") "] " (a (@ (href "http://groups.google.co.jp/group/comp.lang.scheme/browse_thread/thread/10aa800ae5d98d19")) "Final SRFI 96: SLIB Prerequisites"))
+	((2008 07 12 00 00) (a (@ (href "http://practical-scheme.net/gauche/index-j.html")) "Gauche") " の拡張ライブラリ " (a (@ (href "http://homepage.mac.com/naoki.koguro/prog/dyncomp/index-j.html")) "dyncomp") " Version 0.1.2 がリリースされました。 MinGW でも動作するようになったようです。")
+	((2008 07 07 00 02) (a (@ (href "http://code.google.com/p/ypsilon/")) "Ypsilon") " Version 0.9.5-update1 が " (a (@ (href "http://lwpinball.wordpress.com/2008/07/07/%e3%81%84%e3%82%84%e3%80%9c%e3%82%aa%e3%83%bc%e3%83%97%e3%83%b3%e3%82%bd%e3%83%bc%e3%82%b9%e3%81%a3%e3%81%a6%e3%81%84%e3%81%84%e3%82%82%e3%81%ae%e3%81%a7%e3%81%99%e3%81%ad%e3%80%9c/")) "リリース") " されました。")
+	((2008 07 07 00 01) (a (@ (href "http://www.plt-scheme.org/")) "Plt Scheme") " Version 4.0.2 がリリースされています。")
+	((2008 07 06 00 03) (a (@ (href "http://ll.jus.or.jp/2008/")) "LL Future") " の " (a (@ (href "http://ll.jus.or.jp/2008/blog/archives/20")) "Tシャツデザイン") " が公開されました。うしろにあの魚が！")
+	((2008 07 06 00 02) "[" (a (@ (href "http://srfi.schemers.org/")) "SRFI") "] " (a (@ (href "http://d.hatena.ne.jp/higepon/")) "Higepon") " さんにより " (a (@ (href "http://srfi.schemers.org/")) "SRFI") " に提案された getenv の仕様が " (a (@ (href "http://srfi.schemers.org/srfi-98/srfi-98.html")) "ドラフト(SRFI-98)") " になりました。")
+	((2008 07 06 00 01) (a (@ (href "http://practical-scheme.net/gauche/index-j.html")) "Gauche") " の拡張ライブラリ " (a (@ (href "http://homepage.mac.com/naoki.koguro/prog/dyncomp/index-j.html")) "dyncomp") " Version 0.1.1 がリリースされました。")
+	((2008 07 04 00 00) "CL勉強会の告知を↓のバナー欄に移します。")
+	((2008 06 29 00 00) (a (@ (href "http://ll.jus.or.jp/2008/")) "LL Future") " にて " (a (@ (href "http://ll.jus.or.jp/2008/lightningtalk")) "Lightning Talk") " の発表者を募集しています。")
+	((2008 06 24 00 00) "6月28日(土) 午後8時より " (a (@ (href "http://www.lingr.com/room/common-lisp-jp")) "Lingr: COMMON LISP 部屋") " にて " (a (@ (href "http://cadr.g.hatena.ne.jp/g000001/20080624/1214295121")) "第5回 慢性的CL勉強会@Lingr 8時だョ!全員集合") " が開催されます。")
+	((2008 06 23 00 00) (a (@ (href "http://www.plt-scheme.org/")) "Plt Scheme") " Version 4.0.1 が " (a (@ (href "http://blog.plt-scheme.org/2008/06/plt-scheme-v401.html")) "リリース") " されました。")
+	((2008 06 18 00 00) "6月21日(土) 午後8時より " (a (@ (href "http://www.lingr.com/room/common-lisp-jp")) "Lingr: COMMON LISP 部屋") " にて " (a (@ (href "http://cadr.g.hatena.ne.jp/g000001/20080618/1213721991")) "第4回 慢性的CL勉強会@Lingr 8時だョ!全員集合") " が開催されます。")
+	((2008 06 16 00 03) "Gauchebox-0.8.13-box2.exe がリリースされました。 Windows 環境向けに Meadow(Emacs) や OpenGL などをパッケージングしたもののようです。 (詳細はこちら → " (a (@ (href "http://practical-scheme.net/wiliki/wiliki.cgi?Gauche%3aGauchebox")) "WiLiKi") " / " (a (@ (href "http://sourceforge.net/project/showfiles.php?group_id=25227")) "ダウンロード") ")")
+	((2008 06 16 00 02) "Ypsilon Version 0.9.5 がリリースされました。 (詳細はこちら → " (a (@ (href "http://www.littlewingpinball.com/contents/ja/ypsilon.html")) "プロジェクトホームページ") " / " (a (@ (href "http://code.google.com/p/ypsilon/")) "ダウンロード") " / " (a (@ (href "http://lwpinball.wordpress.com/2008/06/16/%e3%82%8f%e3%81%9f%e3%81%97%e3%81%af%e3%82%b9%e3%83%88%e3%83%a9%e3%83%88%e3%82%b9%e4%b8%96%e4%bb%a3%e3%81%a7%e3%82%82%e3%81%82%e3%82%8b%e3%82%93%e3%81%a0%e3%81%91%e3%81%a9%e3%83%bb%e3%83%bb%e3%83%bb/")) "ブログ記事") " / " (a (@ (href "http://groups.google.com/group/comp.lang.scheme/browse_thread/thread/929af95f9d27ef2c")) "ニュースグループ記事") ")")
+	((2008 06 16 00 01) "6月21日(土) 午前9時30分より タイムインターメディア にて Gauche Hacks が開催されます。いよいよ Gauche 本第二弾 の執筆開始です。詳細は Gauche メーリングリストアーカイブを参照してください。")
+	((2008 06 14 00 00) "6月14日(土) 午後8時より " (a (@ (href "http://www.lingr.com/room/common-lisp-jp")) "Lingr: COMMON LISP 部屋") " にて " (a (@ (href "http://cadr.g.hatena.ne.jp/g000001/20080611/1213134259")) "第3回 慢性的CL勉強会@Lingr 8時だョ!全員集合") " が開催されます。")
+	((2008 06 12 00 02) (a (@ (href "http://www.plt-scheme.org/")) "Plt Scheme") " Version 4.0 が " (a (@ (href "http://blog.plt-scheme.org/2008/06/plt-scheme-version-4.html")) "リリース") " されました。")
+	((2008 06 12 00 01) (a (@ (href "http://code.google.com/p/mosh-scheme/")) "Mosh") " Version 0.0.4 が " (a (@ (href "http://d.hatena.ne.jp/higepon/20080612/1213241790")) "リリース") " されました。サンプルアプリケーションとして " (a (@ (href "http://www.blue.sky.or.jp/grass/doc_ja.html")) "Grass") " 言語のインタプリタが付属しているそうです。")
+	((2008 06 08 00 00) "このサイトのリポジトリを " (a (@ (href "http://lambdarepos.org/")) "LambdaRepos") " に設置しました。")
+	((2008 06 07 00 00) "6月7日(土) 午後8時より " (a (@ (href "http://www.lingr.com/room/common-lisp-jp")) "Lingr: COMMON LISP 部屋") " にて " (a (@ (href "http://cadr.g.hatena.ne.jp/g000001/20080531/1212235511")) "第2回 突発性CL勉強会@Lingr 8時だョ!全員集合") " が開催されます。")
+	((2008 06 04 00 00) (a (@ (href "http://www.plt-scheme.org/")) "Plt Scheme") " の新バージョン 4.0 が " (a (@ (href "http://blog.plt-scheme.org/2008/06/plt-scheme-version-40-is-coming-soon.html")) "まもなくリリース") " されるようです。")
+	((2008 06 03 00 00) "Scheme コミュニティのブログ集 " (a (@ (href "http://scheme-users.jp/planet/")) "Planet Scheme Japan") " を開始しました。" (span (@ (style "color:red;")) "(参加者募集中！)"))
+	((2008 05 30 00 00) "軽量プログラミング言語のイベント " (a (@ (href "http://ll.jus.or.jp/2008/")) "LL Future") " のチケットがローソンチケットにて発売開始しました。")
+	((2008 05 28 00 00) (a (@ (href "http://jp.youtube.com/")) "YouTube") " に " (a (@ (href "http://practical-scheme.net/wiliki/wiliki.cgi?Shiro")) "Shiro") " さんが " (a (@ (href "http://practical-scheme.net/gauche/index-j.html")) "Gauche") " について話す " (a (@ (href "http://www.youtube.com/watch?v=WEBOdWyGE3E")) "動画") " が公開されています。")
+	((2008 05 27 00 00) "Open Tech Press に Scheme 関連記事「" (a (@ (href "http://opentechpress.jp/developer/08/05/27/024252.shtml")) "SCSH (Scheme Shell) スクリプト入門") "」が掲載されています。")
+	((2008 05 25 00 00) "scheme-users.jp 開設しました。")
+)
Index: websites/scheme-users.jp/planet/planet.scm
===================================================================
--- websites/scheme-users.jp/planet/planet.scm (revision 56)
+++ websites/scheme-users.jp/planet/planet.scm (revision 64)
@@ -10,4 +10,6 @@
 	("higepon" "http://d.hatena.ne.jp/higepon/" hatena-rss "d.hatena.ne.jp" "/higepon/searchdiary?word=scheme&mode=rss")
 	("g000001" "http://cadr.g.hatena.ne.jp/g000001/" hatena-rss2 "cadr.g.hatena.ne.jp" "/g000001/rss2")
+	("naoya_t" "http://blog.livedoor.jp/naoya_t/" hatena-rss "blog.livedoor.jp" "/naoya_t/index.rdf")
+	("fujita-y" "http://d.hatena.ne.jp/fujita-y/" hatena-rss2 "d.hatena.ne.jp" "/fujita-y/rss2")
 	))
 
Index: websites/scheme-users.jp/planet/planet.css
===================================================================
--- websites/scheme-users.jp/planet/planet.css (revision 51)
+++ websites/scheme-users.jp/planet/planet.css (revision 64)
@@ -1,9 +1,14 @@
 body { margin:20px; padding:20px; background-color:white; color:black; }
-h1 { color:#00CCEE; }
-h2 { color:#00AACC; }
-h3 { color:#0088AA; }
+img { border:none; }
+h1 { color:#00AACC; }
+h2 { color:#0088AA; }
+h3 { color:#006688; }
 span.date { color:#004488; }
-div.blog { border:1px solid gray; margin:5px; padding:5px; }
-div.blog-header { border:1px solid gray; margin:5px; padding:5px; }
-div.blog-body { border:1px solid gray; margin:5px; padding:5px; }
-div.blog-footer { border:1px solid gray; margin:5px; padding:5px; }
+div.blog { margin:5px 5px 20px; padding:5px; border:1px solid #DDDDFF; background-color:#CCCCEE; color:#222244; }
+div.blog-header { margin:5px; padding:5px;  border:1px solid #D8D8EE; background-color:#E8E8FF; color:#222244; }
+div.blog-body { margin:5px; padding:5px 10px; border:1px solid #DDDDEE; background-color:#EEEEFF; color:#222222; }
+div.blog-footer { margin:5px; padding:5px; border:1px solid #CCCCEE; background-color:#DDDDFF; color:#222244; }
+a:link { color:#444488; }
+a:visited { color:#222244; }
+a:hover { color:#8888FF; }
+a:active { color:red; }
Index: websites/scheme-users.jp/index.scm
===================================================================
--- websites/scheme-users.jp/index.scm (revision 56)
+++ websites/scheme-users.jp/index.scm (revision 64)
@@ -1,3 +1,23 @@
+(use srfi-1) ;; take
+(use srfi-19) ;; make-date date->string
 (use sxml.serializer)
+
+(define lambda-news (lambda ()
+	(call-with-input-file "news.dat"
+		(lambda (in)
+			(let ((news (read in)))
+				(map (lambda (ns)
+					(let ((y (list-ref (car ns) 0))
+							(m (list-ref (car ns) 1))
+							(d (list-ref (car ns) 2))
+							(h (list-ref (car ns) 3))
+							(i (list-ref (car ns) 4))
+							(s 1))
+						(let ((dt (make-date 0 s i h d m y 0)))
+							`(li (@ (id ,(string-append "news" (date->string dt "~Y~m~d~H~M~S"))))
+								(span (@ (class "date")) ,(date->string dt "~Y/~m/~d(~a)"))
+								" : " ,@(cdr ns)))))
+					(take news 20)))))))
+
 (define main (lambda (args)
 	(call-with-output-file "index.html"
@@ -14,7 +34,11 @@
 						(meta (@ (http-equiv "Content-Type") (content "text/html; charset=UTF-8")))
 						(meta (@ (http-equiv "Content-Language") (content "ja")))
+						(meta (@ (name "keywords") (content "Scheme")))
+						(meta (@ (name "description") (content "日本の Scheme ユーザのためのハブサイト。日々 Scheme 情報を発信しています。")))
 						(link (@ (rel "shortcut icon") (href "favicon.ico") (type "image/x-icon")))
 						(link (@ (rel "stylesheet") (type "text/css") (href "index.css")))
-						(title "Scheme-users.jp - 日本の Scheme ユーザのためのハブサイト"))
+						(link (@ (rel "alternate") (type "application/atom+xml") (title "Scheme-users.jp Atom Feed") (href "http://scheme-users.jp/atom.xml")))
+						(title "Scheme-users.jp - 日本の Scheme ユーザのためのハブサイト")
+						(script (@ (type "text/javascript") (src "comment.js")) "/* comment.js */"))
 					(body
 						(p (@ (style "margin-left:0;"))
@@ -46,50 +70,30 @@
 								"レイヤーが違います。"))
 
-						(h2 "Scheme NEWS")
-						(ul
-							(li (span (@ (class "date")) "2008/07/18(FRI)") " : " (a (@ (href "http://code.google.com/p/mosh-scheme/")) "Mosh") " Version 0.0.5 が " (a (@ (href "http://d.hatena.ne.jp/higepon/20080718/1216365536")) "リリース") " されました。R6RS ライブラリの仕組みや syntax-case, syntax-rules などが利用できるようになりました。")
-							(li (span (@ (class "date")) "2008/07/17(THU)") " : " (a (@ (href "http://wassr.jp/")) "Wassr") " に " (a (@ (href "http://wassr.jp/channel/gauche")) "Gauche チャンネル") " ができていました。")
-							(li (span (@ (class "date")) "2008/07/17(THU)") " : " (a (@ (href "http://wassr.jp/")) "Wassr") " に " (a (@ (href "http://wassr.jp/channel/lisp")) "Lisp チャンネル") " ができていました。")
-							(li (span (@ (class "date")) "2008/07/17(THU)") " : " (a (@ (href "http://www.hatena.ne.jp/")) "はてな") " に " (a (@ (href "http://scheme.g.hatena.ne.jp/")) "Scheme グループ") " ができていました。")
-							(li (span (@ (class "date")) "2008/07/15(TUE)") " : " (a (@ (href "http://groups.google.co.jp/group/comp.lang.scheme/browse_thread/thread/10aa800ae5d98d19")) "Final SRFI 96: SLIB Prerequisites"))
-							(li (span (@ (class "date")) "2008/07/12(SAT)") " : " (a (@ (href "http://practical-scheme.net/gauche/index-j.html")) "Gauche") " の拡張ライブラリ " (a (@ (href "http://homepage.mac.com/naoki.koguro/prog/dyncomp/index-j.html")) "dyncomp") " Version 0.1.2 がリリースされました。 MinGW でも動作するようになったようです。")
-							(li (span (@ (class "date")) "2008/07/07(MON)") " : " (a (@ (href "http://code.google.com/p/ypsilon/")) "Ypsilon") " Version 0.9.5-update1 が " (a (@ (href "http://lwpinball.wordpress.com/2008/07/07/%e3%81%84%e3%82%84%e3%80%9c%e3%82%aa%e3%83%bc%e3%83%97%e3%83%b3%e3%82%bd%e3%83%bc%e3%82%b9%e3%81%a3%e3%81%a6%e3%81%84%e3%81%84%e3%82%82%e3%81%ae%e3%81%a7%e3%81%99%e3%81%ad%e3%80%9c/")) "リリース") " されました。")
-							(li (span (@ (class "date")) "2008/07/07(MON)") " : " (a (@ (href "http://www.plt-scheme.org/")) "Plt Scheme") " Version 4.0.2 がリリースされています。")
-							(li (span (@ (class "date")) "2008/07/06(SUN)") " : " (a (@ (href "http://ll.jus.or.jp/2008/")) "LL Future") " の " (a (@ (href "http://ll.jus.or.jp/2008/blog/archives/20")) "Tシャツデザイン") " が公開されました。うしろにあの魚が！")
-							(li (span (@ (class "date")) "2008/07/06(SUN)") " : " (a (@ (href "http://d.hatena.ne.jp/higepon/")) "higepon") " さんにより " (a (@ (href "http://srfi.schemers.org/")) "SRFI") " に提案された getenv の仕様が " (a (@ (href "http://srfi.schemers.org/srfi-98/srfi-98.html")) "ドラフト(SRFI-98)") " になりました。")
-							(li (span (@ (class "date")) "2008/07/06(SUN)") " : " (a (@ (href "http://practical-scheme.net/gauche/index-j.html")) "Gauche") " の拡張ライブラリ " (a (@ (href "http://homepage.mac.com/naoki.koguro/prog/dyncomp/index-j.html")) "dyncomp") " Version 0.1.1 がリリースされました。")
-							(li (span (@ (class "date")) "2008/07/04(FRI)") " : CL勉強会の告知を↓のバナー欄に移します。")
-							(li (span (@ (class "date")) "2008/06/29(SUN)") " : " (a (@ (href "http://ll.jus.or.jp/2008/")) "LL Future") " にて " (a (@ (href "http://ll.jus.or.jp/2008/lightningtalk")) "Lightning Talk") " の発表者を募集しています。")
-							(li (span (@ (class "date")) "2008/06/24(TUE)") " : 6月28日(土) 午後8時より " (a (@ (href "http://www.lingr.com/room/gKpArxPn9wi")) "Lingr: COMMON LISP 部屋") " にて " (a (@ (href "http://cadr.g.hatena.ne.jp/g000001/20080624/1214295121")) "第5回 慢性的CL勉強会@Lingr 8時だョ!全員集合") " が開催されます。")
-							(li (span (@ (class "date")) "2008/06/23(MON)") " : " (a (@ (href "http://www.plt-scheme.org/")) "Plt Scheme") " Version 4.0.1 が " (a (@ (href "http://blog.plt-scheme.org/2008/06/plt-scheme-v401.html")) "リリース") " されました。")
-							(li (span (@ (class "date")) "2008/06/18(WED)") " : 6月21日(土) 午後8時より " (a (@ (href "http://www.lingr.com/room/gKpArxPn9wi")) "Lingr: COMMON LISP 部屋") " にて " (a (@ (href "http://cadr.g.hatena.ne.jp/g000001/20080618/1213721991")) "第4回 慢性的CL勉強会@Lingr 8時だョ!全員集合") " が開催されます。")
-							(li (span (@ (class "date")) "2008/06/16(MON)") " : Gauchebox-0.8.13-box2.exe がリリースされました。 Windows 環境向けに Meadow(Emacs) や OpenGL などをパッケージングしたもののようです。 (詳細はこちら → " (a (@ (href "http://practical-scheme.net/wiliki/wiliki.cgi?Gauche%3aGauchebox")) "WiLiKi") " / " (a (@ (href "http://sourceforge.net/project/showfiles.php?group_id=25227")) "ダウンロード") ")")
-							(li (span (@ (class "date")) "2008/06/16(MON)") " : Ypsilon Version 0.9.5 がリリースされました。 (詳細はこちら → " (a (@ (href "http://www.littlewingpinball.com/contents/ja/ypsilon.html")) "プロジェクトホームページ") " / " (a (@ (href "http://code.google.com/p/ypsilon/")) "ダウンロード") " / " (a (@ (href "http://lwpinball.wordpress.com/2008/06/16/%e3%82%8f%e3%81%9f%e3%81%97%e3%81%af%e3%82%b9%e3%83%88%e3%83%a9%e3%83%88%e3%82%b9%e4%b8%96%e4%bb%a3%e3%81%a7%e3%82%82%e3%81%82%e3%82%8b%e3%82%93%e3%81%a0%e3%81%91%e3%81%a9%e3%83%bb%e3%83%bb%e3%83%bb/")) "ブログ記事") " / " (a (@ (href "http://groups.google.com/group/comp.lang.scheme/browse_thread/thread/929af95f9d27ef2c")) "ニュースグループ記事") ")")
-							(li (span (@ (class "date")) "2008/06/16(MON)") " : 6月21日(土) 午前9時30分より タイムインターメディア にて Gauche Hacks が開催されます。いよいよ Gauche 本第二弾 の執筆開始です。詳細は Gauche メーリングリストアーカイブを参照してください。")
-							(li (span (@ (class "date")) "2008/06/14(SAT)") " : 6月14日(土) 午後8時より " (a (@ (href "http://www.lingr.com/room/gKpArxPn9wi")) "Lingr: COMMON LISP 部屋") " にて " (a (@ (href "http://cadr.g.hatena.ne.jp/g000001/20080611/1213134259")) "第3回 慢性的CL勉強会@Lingr 8時だョ!全員集合") " が開催されます。")
-							(li (span (@ (class "date")) "2008/06/12(THU)") " : " (a (@ (href "http://www.plt-scheme.org/")) "Plt Scheme") " Version 4.0 が " (a (@ (href "http://blog.plt-scheme.org/2008/06/plt-scheme-version-4.html")) "リリース") " されました。")
-							(li (span (@ (class "date")) "2008/06/12(THU)") " : " (a (@ (href "http://code.google.com/p/mosh-scheme/")) "Mosh") " Version 0.0.4 が " (a (@ (href "http://d.hatena.ne.jp/higepon/20080612/1213241790")) "リリース") " されました。サンプルアプリケーションとして " (a (@ (href "http://www.blue.sky.or.jp/grass/doc_ja.html")) "Grass") " 言語のインタプリタが付属しているそうです。")
-							(li (span (@ (class "date")) "2008/06/08(SUN)") " : このサイトのリポジトリを " (a (@ (href "http://lambdarepos.org/")) "LambdaRepos") " に設置しました。")
-							(li (span (@ (class "date")) "2008/06/07(SAT)") " : 6月7日(土) 午後8時より " (a (@ (href "http://www.lingr.com/room/gKpArxPn9wi")) "Lingr: COMMON LISP 部屋") " にて " (a (@ (href "http://cadr.g.hatena.ne.jp/g000001/20080531/1212235511")) "第2回 突発性CL勉強会@Lingr 8時だョ!全員集合") " が開催されます。")
-							(li (span (@ (class "date")) "2008/06/04(WED)") " : " (a (@ (href "http://www.plt-scheme.org/")) "Plt Scheme") " の新バージョン 4.0 が " (a (@ (href "http://blog.plt-scheme.org/2008/06/plt-scheme-version-40-is-coming-soon.html")) "まもなくリリース") " されるようです。")
-							(li (span (@ (class "date")) "2008/06/03(TUE)") " : Scheme コミュニティのブログ集 " (a (@ (href "http://scheme-users.jp/planet/")) "Planet Scheme Japan") " を開始しました。" (span (@ (style "color:red;")) "(参加者募集中！)"))
-							(li (span (@ (class "date")) "2008/05/30(THU)") " : " "軽量プログラミング言語のイベント " (a (@ (href "http://ll.jus.or.jp/2008/")) "LL Future") " のチケットがローソンチケットにて発売開始しました。")
-							(li (span (@ (class "date")) "2008/05/28(WED)") " : " (a (@ (href "http://jp.youtube.com/")) "YouTube") " に " (a (@ (href "http://practical-scheme.net/wiliki/wiliki.cgi?Shiro")) "Shiro") " さんが " (a (@ (href "http://practical-scheme.net/gauche/index-j.html")) "Gauche") " について話す " (a (@ (href "http://www.youtube.com/watch?v=WEBOdWyGE3E")) "動画") " が公開されています。")
-							(li (span (@ (class "date")) "2008/05/27(TUE)") " : " "Open Tech Press に Scheme 関連記事「" (a (@ (href "http://opentechpress.jp/developer/08/05/27/024252.shtml")) "SCSH (Scheme Shell) スクリプト入門") "」が掲載されています。")
-							(li (span (@ (class "date")) "2008/05/25(SUN)") " : " "scheme-users.jp 開設しました。"))
+						(h2 (a (@ (href "news.html")) "LAMBDA NEWS") " "
+							(span (@ (style "font-size:10pt; font-weight:normal; color:red;"))
+								"(" (a (@ (style "color:#FF8888;") (onclick "comment()")) "情報募集中！") ")"))
+						(ul ,@(lambda-news))
 
-						(table
+						(table (@ (style "margin:10px auto;"))
 							(tr
-								(td (a (@ (href "http://ll.jus.or.jp/2008/"))
-									(img (@ (src "./images/ll2008.jpg") (alt "LL Future : 2008/08/30") (style "border:none;")))))
-								(td (a (@ (href "http://www.lingr.com/room/gKpArxPn9wi"))
+								(td (a (@ (href "http://shibuya.lisp-users.org/"))
+									(img (@ (src "./images/shibuya-lisp.png") (alt "Shibuya.lisp") (style "border:none;")))))
+								(td (a (@ (href "http://www.lingr.com/room/common-lisp-jp"))
 									(img (@ (src "./images/clpm8.png") (alt "慢性的CL勉強会@Lingr８時だョ！全員集合") (style "border:none;"))))))
 							(tr
-								(td (@ (style "text-align:center;")) "LL Future : 2008/08/30")
-								(td (@ (style "text-align:center;")) "CL勉強会@Lingr : 次回 7/26 (土) PM8" (br) "Common Lisp Cookbook")))
+								(td (@ (style "text-align:center;")) (a (@ (href "http://tips.lisp-users.org/scheme/")) "逆引きScheme") " 作成中！")
+								(td (@ (style "text-align:center;")) "CL勉強会@Lingr 次回 : 11月22日(土) 午後８時" (br) "お題 : 『" (a (@ (href "http://common-lisp.net/project/metatilities/")) "Metatilities") " を読む』")))
 
-						(h2 "Lisp/Scheme チャット")
+						(h2 "Scheme チャット")
 						(ul
-							(li (a (@ (href "irc://irc.freenode.net/Lisp_Scheme")) "irc.freenode.net#Lisp_Scheme") " (UTF-8) : Common Lisp や Arc など他の Lisp の話題もあります。"))
+							(li (a (@ (href "irc://irc.freenode.net/Lisp_Scheme")) "irc.freenode.net#Lisp_Scheme") " (UTF-8) : Common Lisp や Arc など他の Lisp の話題もあります。[" (a (@ (href "http://lambdarepos.org/kaela/")) "過去ログ") "]")
+							(li (a (@ (href "http://www.lingr.com/room/gauche")) "Gauche (at Lingr)") " : [" (a (@ (href "http://www.lingr.com/room/gauche/archives")) "過去ログ") "]")
+							(li (a (@ (href "http://wassr.jp/channel/lisp")) "Wassr LISP チャンネル") " : ")
+							(li (a (@ (href "http://wassr.jp/channel/gauche")) "Wassr Gauche チャンネル") " : みんな大好き Gauche"))
+
+						(h2 "Scheme コミュニティ")
+						(ul
+							(li (a (@ (href "http://shibuya.lisp-users.org/")) "Shibuya.lisp"))
+							(li (a (@ (href "http://www.kahua.org/")) "Kahua Project")))
 
 						(h2 (a (@ (href "http://scheme-users.jp/planet/")) "Planet Scheme Japan"))
@@ -99,16 +103,19 @@
 							" Scheme について書いたブログならどなたでも参加できます。")
 						(ul
-							(li (a (@ (href "http://d.hatena.ne.jp/higepon/")) "ひげぽん OS とか作っちゃうか Mona-"))
-							(li (a (@ (href "http://cadr.g.hatena.ne.jp/g000001/")) "わだば Lisper になる")))
+							(li (a (@ (href "http://d.hatena.ne.jp/higepon/")) "ひげぽん OS とか作っちゃうか Mona-") " [" (a (@ (href "http://d.hatena.ne.jp/higepon/rss2")) "RSS") "]")
+							(li (a (@ (href "http://cadr.g.hatena.ne.jp/g000001/")) "わだば Lisper になる") " [" (a (@ (href "http://cadr.g.hatena.ne.jp/g000001/rss2")) "RSS") "]")
+							(li (a (@ (href "http://blog.livedoor.jp/naoya_t/")) "柴ログ") " [" (a (@ (href "http://blog.livedoor.jp/naoya_t/index.rdf")) "RSS") "]")
+							(li (a (@ (href "http://d.hatena.ne.jp/fujita-y/")) "Y.FUJITA::NOTEPAD::YPSILON") " [" (a (@ (href "http://d.hatena.ne.jp/fujita-y/rss2")) "RSS") "]"))
 
 						(h2 "日本でよく使われている処理系")
 						(ul
-							(li (a (@ (href "http://practical-scheme.net/gauche/index-j.html")) "Gauche"))
-							(li (a (@ (href "http://code.google.com/p/sigscheme/")) "SigScheme"))
-							(li (a (@ (href "http://www.plt-scheme.org/")) "Plt Scheme") " / " (a (@ (href "http://www.plt-scheme.org/software/drscheme/")) "DrScheme") " / " (a (@ (href "http://www.plt-scheme.org/software/mzscheme/")) "MzScheme"))
-							(li (a (@ (href "http://www.gnu.org/software/guile/")) "GNU Guile"))
-							(li (a (@ (href "http://www.gnu.org/software/mit-scheme/")) "MIT/GNU Scheme"))
-							(li (a (@ (href "http://code.google.com/p/mosh-scheme/")) "Mosh") " : " (a (@ (href "http://d.hatena.ne.jp/higepon/")) "higepon") " 氏が新しく作りはじめた処理系。期待しましょう :-)")
-							(li (a (@ (href "http://code.google.com/p/ypsilon/")) "Ypsilon") " : !!!?"))
+							(li (a (@ (href "http://practical-scheme.net/gauche/index-j.html")) "Gauche") " : " (a (@ (href "http://practical-scheme.net/wiliki/wiliki.cgi?Shiro")) "Shiro") " さんが開発している処理系。ライブラリとドキュメントが充実。はじめての方はまずは " (a (@ (href "http://practical-scheme.net/gauche/index-j.html")) "Gauche") " を使いましょう。")
+							(li (a (@ (href "http://code.google.com/p/ypsilon/")) "Ypsilon") " : ピンボールゲームで有名な " (a (@ (href "http://www.littlewingpinball.com/")) "LittleWing") " で開発されている高性能な R6RS 処理系。")
+							(li (a (@ (href "http://code.google.com/p/mosh-scheme/")) "Mosh") " : " (a (@ (href "http://www.monaos.org/")) "MonaOS") " の開発者の " (a (@ (href "http://d.hatena.ne.jp/higepon/")) "Higepon") " さんが新しく作りはじめた処理系。期待しましょう :-)")
+							(li (a (@ (href "http://code.google.com/p/sigscheme/")) "SigScheme") " : " (a (@ (href "http://code.google.com/p/uim/")) "uim") " のために作られた R5RS 処理系。")
+							;;(li (a (@ (href "http://mono.kmc.gr.jp/~yhara/w/?BiwaScheme")) "BiwaScheme") " : JavaScript で作られた処理系。")
+							(li (a (@ (href "http://www.plt-scheme.org/")) "Plt Scheme") " : 世界的に利用されている高性能な Scheme インタプリタ。グラフィカルな開発環境が付属している。")
+							(li (a (@ (href "http://www.gnu.org/software/guile/")) "GNU Guile") " : " (a (@ (href "http://www.gnu.org/")) "GNU Project") " で開発されている処理系。")
+							(li (a (@ (href "http://www.gnu.org/software/mit-scheme/")) "MIT/GNU Scheme") " : Scheme の故郷 MIT で開発されている処理系。"))
 
 						(h2 "初心者向け学習サイト")
@@ -132,8 +139,8 @@
 						(h2 "定番サイト")
 						(ul
-							(li (a (@ (href "http://practical-scheme.net/")) "Practical Scheme"))
-							(li (a (@ (href "http://www.kahua.org/")) "Kahua Project"))
+							(li (a (@ (href "http://practical-scheme.net/")) "Practical Scheme") " | " (a (@ (href "http://practical-scheme.net/wiliki/wiliki.cgi")) "WiLiKi"))
 							(li (a (@ (href "http://schemers.org/")) "schemers.org"))
 							(li (a (@ (href "http://srfi.schemers.org/")) "SRFI - Scheme Requests for Implementation"))
+							(li (a (@ (href "http://www.schemers.org/Documents/Standards/R5RS/")) "R5RS - Revised 5 Report on the Algorithmic Language Scheme"))
 							(li (a (@ (href "http://www.r6rs.org/")) "R6RS - Revised 6 Report on the Algorithmic Language Scheme"))
 							(li (a (@ (href "http://swiss.csail.mit.edu/projects/scheme/")) "The Scheme Programming Language"))
@@ -144,5 +151,7 @@
 							(li (a (@ (href "http://lambda.bugyo.tk/hatena/r5rs.html")) "はてなようせいとまなぶ R5RS の表示的意味論"))
 							(li (a (@ (href "http://ja.doukaku.org/lang/scheme/")) "どう書く？org Scheme部"))
-							(li (a (@ (href "http://www.math.u-toyama.ac.jp/~iwao/Scheme/scheme.html")) "Algorithmic Language Scheme")))
+							(li (a (@ (href "http://www.math.u-toyama.ac.jp/~iwao/Scheme/scheme.html")) "Algorithmic Language Scheme"))
+							(li (a (@ (href "http://groups.google.co.jp/group/comp.lang.scheme")) "comp.lang.scheme"))
+							(li (a (@ (href "https://www.google.com/calendar/embed?src=fvijvohm91uifvd9hratehf65k%40group.calendar.google.com")) "IT勉強会カレンダー")))
 							;;(li (a (@ (href "http://t-code.org/scheme-aa.html")) "ポルナレフ"))
 
@@ -168,4 +177,5 @@
 							(li (a (@ (href "http://python-users.jp/")) "python-users.jp") " : 日本の Python ユーザのためのハブサイト")
 							(li (a (@ (href "http://rails-users.jp/")) "rails-users.jp") " : 日本の Rails ユーザのためのハブサイト")
+							(li (a (@ (href "http://smalltalk-users.jp/")) "smalltalk-users.jp") " : 日本の Smalltalk ユーザのためのハブサイト")
 							(li (a (@ (href "http://vim-users.jp/")) "vim-users.jp") " : 日本の Vim ユーザのためのハブサイト"))
 
@@ -182,4 +192,6 @@
 						(p "文章のライセンスは、特に明記が無い限り全て "
 							(abbr (@ (title "Creative Commons Attribution license")) "CC-by")
-							" でお願いします。"))) out)
-			(newline out)))))
+							" でお願いします。")))
+				out)
+			(newline out)))
+	0))
Index: websites/scheme-users.jp/Makefile
===================================================================
--- websites/scheme-users.jp/Makefile (revision 64)
+++ websites/scheme-users.jp/Makefile (revision 64)
@@ -0,0 +1,15 @@
+all : index.html atom.xml news.html
+
+index.html : index.scm news.dat
+	gosh index.scm
+
+atom.xml : atom.scm news.dat
+	gosh atom.scm
+
+news.html : news.scm news.dat
+	gosh news.scm
+
+clean :
+	rm index.html
+	rm atom.xml
+	rm news.html
Index: websites/scheme-users.jp/news.scm
===================================================================
--- websites/scheme-users.jp/news.scm (revision 64)
+++ websites/scheme-users.jp/news.scm (revision 64)
@@ -0,0 +1,49 @@
+(use srfi-19) ;; make-date date->string
+(use sxml.serializer)
+
+(define lambda-news (lambda ()
+	(call-with-input-file "news.dat"
+		(lambda (in)
+			(let ((news (read in)))
+				(map (lambda (ns)
+					(let ((y (list-ref (car ns) 0))
+							(m (list-ref (car ns) 1))
+							(d (list-ref (car ns) 2))
+							(h (list-ref (car ns) 3))
+							(i (list-ref (car ns) 4))
+							(s 1))
+						(let ((dt (make-date 0 s i h d m y 0)))
+							`(li (@ (id ,(string-append "news" (date->string dt "~Y~m~d~H~M~S"))))
+								(span (@ (class "date")) ,(date->string dt "~Y/~m/~d(~a)"))
+								" : " ,@(cdr ns)))))
+					news))))))
+
+(define main (lambda (args)
+	(call-with-output-file "news.html"
+		(lambda (out)
+			(display "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>" out)
+			(newline out)
+			(display "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.1//EN\"" out)
+			(newline out)
+			(display "\t\"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd\">" out)
+			(newline out)
+			(srl:sxml->xml
+				`(html (@ (xmlns "http://www.w3.org/1999/xhtml") (xml:lang "ja"))
+					(head
+						(meta (@ (http-equiv "Content-Type") (content "text/html; charset=UTF-8")))
+						(meta (@ (http-equiv "Content-Language") (content "ja")))
+						(meta (@ (name "keywords") (content "Scheme,Lisp,Lambda,NEWS")))
+						(meta (@ (name "description") (content "LAMBDA NEWS - Scheme/Lisp 界の日々の記録。")))
+						(link (@ (rel "shortcut icon") (href "favicon.ico") (type "image/x-icon")))
+						(link (@ (rel "stylesheet") (type "text/css") (href "index.css")))
+						(link (@ (rel "alternate") (type "application/atom+xml") (title "Scheme-users.jp Atom Feed") (href "http://scheme-users.jp/atom.xml")))
+						(title "LAMBDA NEWS - Scheme-users.jp"))
+					(body
+						(p (@ (style "margin-left:0;"))
+							(a (@ (href "http://scheme-users.jp/"))
+								(img (@ (src "./images/top.png") (alt "scheme-users.jp") (style "border:none;")))))
+						(h1 "LAMBDA NEWS")
+						(ul ,@(lambda-news))))
+				out)
+			(newline out)))
+	0))