1 | (use sxml.serializer) |
---|
2 | (define main (lambda (args) |
---|
3 | (call-with-output-file "index.html" |
---|
4 | (lambda (out) |
---|
5 | (display "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>" out) |
---|
6 | (newline out) |
---|
7 | (display "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.1//EN\"" out) |
---|
8 | (newline out) |
---|
9 | (display "\t\"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd\">" out) |
---|
10 | (newline out) |
---|
11 | (srl:sxml->xml |
---|
12 | `(html (@ (xmlns "http://www.w3.org/1999/xhtml") (xml:lang "ja")) |
---|
13 | (head |
---|
14 | (meta (@ (http-equiv "Content-Type") (content "text/html; charset=UTF-8"))) |
---|
15 | (meta (@ (http-equiv "Content-Language") (content "ja"))) |
---|
16 | (link (@ (rel "shortcut icon") (href "favicon.ico") (type "image/x-icon"))) |
---|
17 | (link (@ (rel "stylesheet") (type "text/css") (href "index.css"))) |
---|
18 | (title "Scheme-users.jp - 日本の Scheme ユーザのためのハブサイト")) |
---|
19 | (body |
---|
20 | (p (@ (style "margin-left:0;")) "(" (a (@ (href "http://scheme-users.jp/")) "scheme-users.jp") ")") |
---|
21 | |
---|
22 | (h1 "日本の Scheme ユーザのためのハブサイト") |
---|
23 | |
---|
24 | (p (a (@ (href "http://conferences.yapcasia.org/ya2008/") (title "YAPC::Asia 2008 - May 15-16th in Tokyo, JAPAN")) "YAPC::Asia 2008") |
---|
25 | " で " (a (@ (href "http://conferences.yapcasia.org/ya2008/user/780") (title "ユーザ情報: YAPC::Asia 2008 - May 15-16th in Tokyo, JAPAN")) "Michael Schwern") |
---|
26 | " は「SEO に有効な独自ドメインを取って、もっと Perl 初心者が集まりやすい nice な Perl の情報を集めたサイトを作れ!」といったそうです。" |
---|
27 | "そして「" (a (@ (href "http://perl-users.jp")) "Perl-users.jp - 日本のPerlユーザのためのハブサイト") "」ができました。") |
---|
28 | (p "これは Scheme も同じではないのか?" |
---|
29 | "そう思って scheme-users.jp ドメインを取り、ここに scheme-users.jp を開始します。" |
---|
30 | "完全に perl-users.jp とか js-users.jp とか as-users.jp とかにインスパイアされています。" |
---|
31 | "本当にありがとうございます。" "ノープランです。") |
---|
32 | |
---|
33 | (h2 "ポリシー的な物") |
---|
34 | (ul |
---|
35 | (li "日本語とS式で語り合う。") |
---|
36 | (li "このサイトの想定する利用者層は、超初心者から超上級者まで。") |
---|
37 | (li "たとえば " (a (@ (href "http://www.r6rs.org/")) "R6RS") |
---|
38 | " で、いきなり言語仕様が変更されたとしても、" |
---|
39 | "しっかり初心者層にリーチし、最新のトレンドに近づけるように。") |
---|
40 | (li "Users ってついてるけど、日本人は Users ってついてるものが好きだからという理由だけなので " |
---|
41 | (a (@ (href "http://schemers.org/")) "schemers.org") " とか " |
---|
42 | (a (@ (href "http://practical-scheme.net/wiliki/wiliki.cgi")) "WiLiKi") |
---|
43 | " とかそういうのと競合になるとかスピンアウトしたとかそういうのではありません。" |
---|
44 | "レイヤーが違います。")) |
---|
45 | |
---|
46 | (h2 "Scheme NEWS") |
---|
47 | (ul |
---|
48 | (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時だョ!全員集合") " が開催されます。") |
---|
49 | (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")) "まもなくリリース") " されるようです。") |
---|
50 | (li (span (@ (class "date")) "2008/06/03(TUE)") " : Scheme コミュニティのブログ集 " (a (@ (href "http://scheme-users.jp/planet/")) "Planet Scheme Japan") " を開始しました。" (span (@ (style "color:red;")) "(参加者募集中!)")) |
---|
51 | (li (span (@ (class "date")) "2008/05/30(THU)") " : " "軽量プログラミング言語のイベント " (a (@ (href "http://ll.jus.or.jp/2008/")) "LL Future") " のチケットがローソンチケットにて発売開始しました。") |
---|
52 | (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")) "動画") " が公開されています。") |
---|
53 | (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) スクリプト入門") "」が掲載されています。") |
---|
54 | (li (span (@ (class "date")) "2008/05/25(SUN)") " : " "scheme-users.jp 開設しました。")) |
---|
55 | (p (a (@ (href "http://ll.jus.or.jp/2008/")) (img (@ (src "./images/ll2008.jpg") (alt "LL Future 2008/08/30") (style "border:none;"))))) |
---|
56 | |
---|
57 | (h2 "Lisp/Scheme チャット") |
---|
58 | (ul |
---|
59 | (li (a (@ (href "irc://irc.freenode.net/#Lisp_Scheme")) "irc.freenode.net#Lisp_Scheme") " (UTF-8)")) |
---|
60 | |
---|
61 | (h2 (a (@ (href "http://scheme-users.jp/planet/")) "Planet Scheme Japan")) |
---|
62 | (p (a (@ (href "http://scheme.dk/planet/")) "Planet Scheme") |
---|
63 | " の " (a (@ (href "http://scheme-users.jp/planet/")) "日本版") |
---|
64 | " を作りたいと考えています。参加者募集中です!" |
---|
65 | " Scheme について書いたブログならどなたでも参加できます。") |
---|
66 | (ul |
---|
67 | (li (a (@ (href "http://d.hatena.ne.jp/higepon/")) "ひげぽん OS とか作っちゃうか Mona-")) |
---|
68 | (li (a (@ (href "http://cadr.g.hatena.ne.jp/g000001/")) "わだば Lisper になる"))) |
---|
69 | |
---|
70 | (h2 "日本でよく使われている処理系") |
---|
71 | (ul |
---|
72 | (li (a (@ (href "http://practical-scheme.net/gauche/index-j.html")) "Gauche")) |
---|
73 | (li (a (@ (href "http://code.google.com/p/sigscheme/")) "SigScheme")) |
---|
74 | (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")) |
---|
75 | (li (a (@ (href "http://www.gnu.org/software/guile/")) "GNU Guile")) |
---|
76 | (li (a (@ (href "http://www.gnu.org/software/mit-scheme/")) "MIT/GNU Scheme")) |
---|
77 | (li (a (@ (href "http://code.google.com/p/mosh-scheme/")) "mosh") " : " (a (@ (href "http://d.hatena.ne.jp/higepon/")) "higepon") " 氏が新しく作りはじめた処理系。期待しましょう :-)")) |
---|
78 | |
---|
79 | (h2 "初心者向け学習サイト") |
---|
80 | (ul |
---|
81 | (li (a (@ (href "http://www.shido.info/lisp/idx_scm.html")) "もうひとつの Scheme 入門")) |
---|
82 | (li (a (@ (href "http://www.unixuser.org/~euske/doc/scm-sd7/")) "Scheme プログラミング入門")) |
---|
83 | (li (a (@ (href "http://www1.ocn.ne.jp/~scheme/scheme-start.html")) "まったく初めての人のための Scheme")) |
---|
84 | (li (a (@ (href "http://www.sampou.org/scheme/t-y-scheme/t-y-scheme.html")) "独習 Scheme 三週間")) |
---|
85 | (li (a (@ (href "http://www.stdio.h.kyoto-u.ac.jp/~hioki/gairon-enshuu/SchemeNotes/scheme.html")) "Scheme への道"))) |
---|
86 | |
---|
87 | (h2 "定番サイト") |
---|
88 | (ul |
---|
89 | (li (a (@ (href "http://practical-scheme.net/")) "Practical Scheme")) |
---|
90 | (li (a (@ (href "http://www.kahua.org/")) "Kahua Project")) |
---|
91 | (li (a (@ (href "http://karetta.jp/book-cover/gauche-hacks")) "Gaucheプログラミング(立読み版)")) |
---|
92 | (li (a (@ (href "http://schemers.org/")) "schemers.org")) |
---|
93 | (li (a (@ (href "http://srfi.schemers.org/")) "SRFI - Scheme Requests for Implementation")) |
---|
94 | (li (a (@ (href "http://www.r6rs.org/")) "R6RS.Org")) |
---|
95 | (li (a (@ (href "http://swiss.csail.mit.edu/projects/scheme/")) "The Scheme Programming Language")) |
---|
96 | (li (a (@ (href "http://www1.ocn.ne.jp/~scheme/")) "やっぱり Scheme だね")) |
---|
97 | (li (a (@ (href "http://lambda.bugyo.tk/hatena/")) "はてなようせいとまなぶ Scheme の形式的意味論")) |
---|
98 | (li (a (@ (href "http://lambda.bugyo.tk/hatena/r5rs.html")) "はてなようせいとまなぶ R5RS の表示的意味論")) |
---|
99 | (li (a (@ (href "http://www.math.u-toyama.ac.jp/~iwao/Scheme/scheme.html")) "Algorithmic Language Scheme"))) |
---|
100 | ;;(li (a (@ (href "http://t-code.org/scheme-aa.html")) "ポルナレフ")) |
---|
101 | |
---|
102 | (h2 "その他の *-users.jp") |
---|
103 | (ul |
---|
104 | (li (a (@ (href "http://air-users.jp/")) "air-users.jp")) |
---|
105 | (li (a (@ (href "http://arc-users.jp/")) "arc-users.jp")) |
---|
106 | (li (a (@ (href "http://as-users.jp/")) "as-users.jp")) |
---|
107 | (li (a (@ (href "http://awk-users.jp/")) "awk-users.jp")) |
---|
108 | (li (a (@ (href "http://cakephp-users.jp/")) "cakephp-users.jp")) |
---|
109 | (li (a (@ (href "http://emacs-users.jp/")) "emacs-users.jp")) |
---|
110 | (li (a (@ (href "http://hauhau-users.jp/")) "hauhau-users.jp")) |
---|
111 | (li (a (@ (href "http://haxe-users.jp/")) "haxe-users.jp")) |
---|
112 | (li (a (@ (href "http://hsp-users.jp")) "hsp-users.jp")) |
---|
113 | (li (a (@ (href "http://io-users.jp/")) "io-users.jp")) |
---|
114 | (li (a (@ (href "http://js-users.jp/")) "js-users.jp")) |
---|
115 | (li (a (@ (href "http://perl-users.jp/")) "perl-users.jp")) |
---|
116 | (li (a (@ (href "http://php-users.jp/")) "php-users.jp")) |
---|
117 | (li (a (@ (href "http://pyobjc-users.jp/")) "pyobjc-users.jp")) |
---|
118 | (li (a (@ (href "http://python-users.jp/")) "python-users.jp")) |
---|
119 | (li (a (@ (href "http://rails-users.jp/")) "rails-users.jp")) |
---|
120 | (li (a (@ (href "http://ruby-users.jp/")) "ruby-users.jp")) |
---|
121 | (li (a (@ (href "http://vim-users.jp/")) "vim-users.jp"))) |
---|
122 | |
---|
123 | (h3 "管理人") |
---|
124 | (p "なにかあれば何らかの手段で " |
---|
125 | "(string-append \"info\" \"@\" \"scheme-users.jp\")" |
---|
126 | " まで連絡ください。") |
---|
127 | (p "文章のライセンスは、特に明記が無い限り全て " |
---|
128 | (abbr (@ (title "Creative Commons Attribution license")) "CC-by") |
---|
129 | " でお願いします。") |
---|
130 | (p "このページは " |
---|
131 | (a (@ (href "http://practical-scheme.net/gauche/index-j.html")) "Gauche") |
---|
132 | " の " |
---|
133 | (a (@ (href "http://practical-scheme.net/gauche/man/gauche-refj_148.html")) "sxml.serializer") |
---|
134 | " を使って生成しています。" |
---|
135 | "リポジトリはそのうちどこかに置く予定です。") |
---|
136 | )) out))))) |
---|