Show
Ignore:
Timestamp:
11/30/08 13:05:02 (16 years ago)
Author:
baal5084
Message:

websites/scheme-users.jp: update.

Location:
websites/scheme-users.jp
Files:
4 added
3 modified

Legend:

Unmodified
Added
Removed
  • websites/scheme-users.jp/index.scm

    r56 r64  
     1(use srfi-1) ;; take 
     2(use srfi-19) ;; make-date date->string 
    13(use sxml.serializer) 
     4 
     5(define lambda-news (lambda () 
     6        (call-with-input-file "news.dat" 
     7                (lambda (in) 
     8                        (let ((news (read in))) 
     9                                (map (lambda (ns) 
     10                                        (let ((y (list-ref (car ns) 0)) 
     11                                                        (m (list-ref (car ns) 1)) 
     12                                                        (d (list-ref (car ns) 2)) 
     13                                                        (h (list-ref (car ns) 3)) 
     14                                                        (i (list-ref (car ns) 4)) 
     15                                                        (s 1)) 
     16                                                (let ((dt (make-date 0 s i h d m y 0))) 
     17                                                        `(li (@ (id ,(string-append "news" (date->string dt "~Y~m~d~H~M~S")))) 
     18                                                                (span (@ (class "date")) ,(date->string dt "~Y/~m/~d(~a)")) 
     19                                                                " : " ,@(cdr ns))))) 
     20                                        (take news 20))))))) 
     21 
    222(define main (lambda (args) 
    323        (call-with-output-file "index.html" 
     
    1434                                                (meta (@ (http-equiv "Content-Type") (content "text/html; charset=UTF-8"))) 
    1535                                                (meta (@ (http-equiv "Content-Language") (content "ja"))) 
     36                                                (meta (@ (name "keywords") (content "Scheme"))) 
     37                                                (meta (@ (name "description") (content "日本の Scheme ユーザのためのハブサイト。日々 Scheme 情報を発信しています。"))) 
    1638                                                (link (@ (rel "shortcut icon") (href "favicon.ico") (type "image/x-icon"))) 
    1739                                                (link (@ (rel "stylesheet") (type "text/css") (href "index.css"))) 
    18                                                 (title "Scheme-users.jp - 日本の Scheme ユーザのためのハブサイト")) 
     40                                                (link (@ (rel "alternate") (type "application/atom+xml") (title "Scheme-users.jp Atom Feed") (href "http://scheme-users.jp/atom.xml"))) 
     41                                                (title "Scheme-users.jp - 日本の Scheme ユーザのためのハブサイト") 
     42                                                (script (@ (type "text/javascript") (src "comment.js")) "/* comment.js */")) 
    1943                                        (body 
    2044                                                (p (@ (style "margin-left:0;")) 
     
    4670                                                                "レイヤーが違います。")) 
    4771 
    48                                                 (h2 "Scheme NEWS") 
    49                                                 (ul 
    50                                                         (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 などが利用できるようになりました。") 
    51                                                         (li (span (@ (class "date")) "2008/07/17(THU)") " : " (a (@ (href "http://wassr.jp/")) "Wassr") " に " (a (@ (href "http://wassr.jp/channel/gauche")) "Gauche チャンネル") " ができていました。") 
    52                                                         (li (span (@ (class "date")) "2008/07/17(THU)") " : " (a (@ (href "http://wassr.jp/")) "Wassr") " に " (a (@ (href "http://wassr.jp/channel/lisp")) "Lisp チャンネル") " ができていました。") 
    53                                                         (li (span (@ (class "date")) "2008/07/17(THU)") " : " (a (@ (href "http://www.hatena.ne.jp/")) "はてな") " に " (a (@ (href "http://scheme.g.hatena.ne.jp/")) "Scheme グループ") " ができていました。") 
    54                                                         (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")) 
    55                                                         (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 でも動作するようになったようです。") 
    56                                                         (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/")) "リリース") " されました。") 
    57                                                         (li (span (@ (class "date")) "2008/07/07(MON)") " : " (a (@ (href "http://www.plt-scheme.org/")) "Plt Scheme") " Version 4.0.2 がリリースされています。") 
    58                                                         (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シャツデザイン") " が公開されました。うしろにあの魚が!") 
    59                                                         (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)") " になりました。") 
    60                                                         (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 がリリースされました。") 
    61                                                         (li (span (@ (class "date")) "2008/07/04(FRI)") " : CL勉強会の告知を↓のバナー欄に移します。") 
    62                                                         (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") " の発表者を募集しています。") 
    63                                                         (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時だョ!全員集合") " が開催されます。") 
    64                                                         (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")) "リリース") " されました。") 
    65                                                         (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時だョ!全員集合") " が開催されます。") 
    66                                                         (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")) "ダウンロード") ")") 
    67                                                         (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")) "ニュースグループ記事") ")") 
    68                                                         (li (span (@ (class "date")) "2008/06/16(MON)") " : 6月21日(土) 午前9時30分より タイムインターメディア にて Gauche Hacks が開催されます。いよいよ Gauche 本第二弾 の執筆開始です。詳細は Gauche メーリングリストアーカイブを参照してください。") 
    69                                                         (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時だョ!全員集合") " が開催されます。") 
    70                                                         (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")) "リリース") " されました。") 
    71                                                         (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") " 言語のインタプリタが付属しているそうです。") 
    72                                                         (li (span (@ (class "date")) "2008/06/08(SUN)") " : このサイトのリポジトリを " (a (@ (href "http://lambdarepos.org/")) "LambdaRepos") " に設置しました。") 
    73                                                         (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時だョ!全員集合") " が開催されます。") 
    74                                                         (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")) "まもなくリリース") " されるようです。") 
    75                                                         (li (span (@ (class "date")) "2008/06/03(TUE)") " : Scheme コミュニティのブログ集 " (a (@ (href "http://scheme-users.jp/planet/")) "Planet Scheme Japan") " を開始しました。" (span (@ (style "color:red;")) "(参加者募集中!)")) 
    76                                                         (li (span (@ (class "date")) "2008/05/30(THU)") " : " "軽量プログラミング言語のイベント " (a (@ (href "http://ll.jus.or.jp/2008/")) "LL Future") " のチケットがローソンチケットにて発売開始しました。") 
    77                                                         (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")) "動画") " が公開されています。") 
    78                                                         (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) スクリプト入門") "」が掲載されています。") 
    79                                                         (li (span (@ (class "date")) "2008/05/25(SUN)") " : " "scheme-users.jp 開設しました。")) 
     72                                                (h2 (a (@ (href "news.html")) "LAMBDA NEWS") " " 
     73                                                        (span (@ (style "font-size:10pt; font-weight:normal; color:red;")) 
     74                                                                "(" (a (@ (style "color:#FF8888;") (onclick "comment()")) "情報募集中!") ")")) 
     75                                                (ul ,@(lambda-news)) 
    8076 
    81                                                 (table 
     77                                                (table (@ (style "margin:10px auto;")) 
    8278                                                        (tr 
    83                                                                 (td (a (@ (href "http://ll.jus.or.jp/2008/")) 
    84                                                                         (img (@ (src "./images/ll2008.jpg") (alt "LL Future : 2008/08/30") (style "border:none;"))))) 
    85                                                                 (td (a (@ (href "http://www.lingr.com/room/gKpArxPn9wi")) 
     79                                                                (td (a (@ (href "http://shibuya.lisp-users.org/")) 
     80                                                                        (img (@ (src "./images/shibuya-lisp.png") (alt "Shibuya.lisp") (style "border:none;"))))) 
     81                                                                (td (a (@ (href "http://www.lingr.com/room/common-lisp-jp")) 
    8682                                                                        (img (@ (src "./images/clpm8.png") (alt "慢性的CL勉強会@Lingr8時だョ!全員集合") (style "border:none;")))))) 
    8783                                                        (tr 
    88                                                                 (td (@ (style "text-align:center;")) "LL Future : 2008/08/30") 
    89                                                                 (td (@ (style "text-align:center;")) "CL勉強会@Lingr : 次回 7/26 (土) PM8" (br) "Common Lisp Cookbook"))) 
     84                                                                (td (@ (style "text-align:center;")) (a (@ (href "http://tips.lisp-users.org/scheme/")) "逆引きScheme") " 作成中!") 
     85                                                                (td (@ (style "text-align:center;")) "CL勉強会@Lingr 次回 : 11月22日(土) 午後8時" (br) "お題 : 『" (a (@ (href "http://common-lisp.net/project/metatilities/")) "Metatilities") " を読む』"))) 
    9086 
    91                                                 (h2 "Lisp/Scheme チャット") 
     87                                                (h2 "Scheme チャット") 
    9288                                                (ul 
    93                                                         (li (a (@ (href "irc://irc.freenode.net/Lisp_Scheme")) "irc.freenode.net#Lisp_Scheme") " (UTF-8) : Common Lisp や Arc など他の Lisp の話題もあります。")) 
     89                                                        (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/")) "過去ログ") "]") 
     90                                                        (li (a (@ (href "http://www.lingr.com/room/gauche")) "Gauche (at Lingr)") " : [" (a (@ (href "http://www.lingr.com/room/gauche/archives")) "過去ログ") "]") 
     91                                                        (li (a (@ (href "http://wassr.jp/channel/lisp")) "Wassr LISP チャンネル") " : ") 
     92                                                        (li (a (@ (href "http://wassr.jp/channel/gauche")) "Wassr Gauche チャンネル") " : みんな大好き Gauche")) 
     93 
     94                                                (h2 "Scheme コミュニティ") 
     95                                                (ul 
     96                                                        (li (a (@ (href "http://shibuya.lisp-users.org/")) "Shibuya.lisp")) 
     97                                                        (li (a (@ (href "http://www.kahua.org/")) "Kahua Project"))) 
    9498 
    9599                                                (h2 (a (@ (href "http://scheme-users.jp/planet/")) "Planet Scheme Japan")) 
     
    99103                                                        " Scheme について書いたブログならどなたでも参加できます。") 
    100104                                                (ul 
    101                                                         (li (a (@ (href "http://d.hatena.ne.jp/higepon/")) "ひげぽん OS とか作っちゃうか Mona-")) 
    102                                                         (li (a (@ (href "http://cadr.g.hatena.ne.jp/g000001/")) "わだば Lisper になる"))) 
     105                                                        (li (a (@ (href "http://d.hatena.ne.jp/higepon/")) "ひげぽん OS とか作っちゃうか Mona-") " [" (a (@ (href "http://d.hatena.ne.jp/higepon/rss2")) "RSS") "]") 
     106                                                        (li (a (@ (href "http://cadr.g.hatena.ne.jp/g000001/")) "わだば Lisper になる") " [" (a (@ (href "http://cadr.g.hatena.ne.jp/g000001/rss2")) "RSS") "]") 
     107                                                        (li (a (@ (href "http://blog.livedoor.jp/naoya_t/")) "柴ログ") " [" (a (@ (href "http://blog.livedoor.jp/naoya_t/index.rdf")) "RSS") "]") 
     108                                                        (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") "]")) 
    103109 
    104110                                                (h2 "日本でよく使われている処理系") 
    105111                                                (ul 
    106                                                         (li (a (@ (href "http://practical-scheme.net/gauche/index-j.html")) "Gauche")) 
    107                                                         (li (a (@ (href "http://code.google.com/p/sigscheme/")) "SigScheme")) 
    108                                                         (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")) 
    109                                                         (li (a (@ (href "http://www.gnu.org/software/guile/")) "GNU Guile")) 
    110                                                         (li (a (@ (href "http://www.gnu.org/software/mit-scheme/")) "MIT/GNU Scheme")) 
    111                                                         (li (a (@ (href "http://code.google.com/p/mosh-scheme/")) "Mosh") " : " (a (@ (href "http://d.hatena.ne.jp/higepon/")) "higepon") " 氏が新しく作りはじめた処理系。期待しましょう :-)") 
    112                                                         (li (a (@ (href "http://code.google.com/p/ypsilon/")) "Ypsilon") " : !!!?")) 
     112                                                        (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") " を使いましょう。") 
     113                                                        (li (a (@ (href "http://code.google.com/p/ypsilon/")) "Ypsilon") " : ピンボールゲームで有名な " (a (@ (href "http://www.littlewingpinball.com/")) "LittleWing") " で開発されている高性能な R6RS 処理系。") 
     114                                                        (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") " さんが新しく作りはじめた処理系。期待しましょう :-)") 
     115                                                        (li (a (@ (href "http://code.google.com/p/sigscheme/")) "SigScheme") " : " (a (@ (href "http://code.google.com/p/uim/")) "uim") " のために作られた R5RS 処理系。") 
     116                                                        ;;(li (a (@ (href "http://mono.kmc.gr.jp/~yhara/w/?BiwaScheme")) "BiwaScheme") " : JavaScript で作られた処理系。") 
     117                                                        (li (a (@ (href "http://www.plt-scheme.org/")) "Plt Scheme") " : 世界的に利用されている高性能な Scheme インタプリタ。グラフィカルな開発環境が付属している。") 
     118                                                        (li (a (@ (href "http://www.gnu.org/software/guile/")) "GNU Guile") " : " (a (@ (href "http://www.gnu.org/")) "GNU Project") " で開発されている処理系。") 
     119                                                        (li (a (@ (href "http://www.gnu.org/software/mit-scheme/")) "MIT/GNU Scheme") " : Scheme の故郷 MIT で開発されている処理系。")) 
    113120 
    114121                                                (h2 "初心者向け学習サイト") 
     
    132139                                                (h2 "定番サイト") 
    133140                                                (ul 
    134                                                         (li (a (@ (href "http://practical-scheme.net/")) "Practical Scheme")) 
    135                                                         (li (a (@ (href "http://www.kahua.org/")) "Kahua Project")) 
     141                                                        (li (a (@ (href "http://practical-scheme.net/")) "Practical Scheme") " | " (a (@ (href "http://practical-scheme.net/wiliki/wiliki.cgi")) "WiLiKi")) 
    136142                                                        (li (a (@ (href "http://schemers.org/")) "schemers.org")) 
    137143                                                        (li (a (@ (href "http://srfi.schemers.org/")) "SRFI - Scheme Requests for Implementation")) 
     144                                                        (li (a (@ (href "http://www.schemers.org/Documents/Standards/R5RS/")) "R5RS - Revised 5 Report on the Algorithmic Language Scheme")) 
    138145                                                        (li (a (@ (href "http://www.r6rs.org/")) "R6RS - Revised 6 Report on the Algorithmic Language Scheme")) 
    139146                                                        (li (a (@ (href "http://swiss.csail.mit.edu/projects/scheme/")) "The Scheme Programming Language")) 
     
    144151                                                        (li (a (@ (href "http://lambda.bugyo.tk/hatena/r5rs.html")) "はてなようせいとまなぶ R5RS の表示的意味論")) 
    145152                                                        (li (a (@ (href "http://ja.doukaku.org/lang/scheme/")) "どう書く?org Scheme部")) 
    146                                                         (li (a (@ (href "http://www.math.u-toyama.ac.jp/~iwao/Scheme/scheme.html")) "Algorithmic Language Scheme"))) 
     153                                                        (li (a (@ (href "http://www.math.u-toyama.ac.jp/~iwao/Scheme/scheme.html")) "Algorithmic Language Scheme")) 
     154                                                        (li (a (@ (href "http://groups.google.co.jp/group/comp.lang.scheme")) "comp.lang.scheme")) 
     155                                                        (li (a (@ (href "https://www.google.com/calendar/embed?src=fvijvohm91uifvd9hratehf65k%40group.calendar.google.com")) "IT勉強会カレンダー"))) 
    147156                                                        ;;(li (a (@ (href "http://t-code.org/scheme-aa.html")) "ポルナレフ")) 
    148157 
     
    168177                                                        (li (a (@ (href "http://python-users.jp/")) "python-users.jp") " : 日本の Python ユーザのためのハブサイト") 
    169178                                                        (li (a (@ (href "http://rails-users.jp/")) "rails-users.jp") " : 日本の Rails ユーザのためのハブサイト") 
     179                                                        (li (a (@ (href "http://smalltalk-users.jp/")) "smalltalk-users.jp") " : 日本の Smalltalk ユーザのためのハブサイト") 
    170180                                                        (li (a (@ (href "http://vim-users.jp/")) "vim-users.jp") " : 日本の Vim ユーザのためのハブサイト")) 
    171181 
     
    182192                                                (p "文章のライセンスは、特に明記が無い限り全て " 
    183193                                                        (abbr (@ (title "Creative Commons Attribution license")) "CC-by") 
    184                                                         " でお願いします。"))) out) 
    185                         (newline out))))) 
     194                                                        " でお願いします。"))) 
     195                                out) 
     196                        (newline out))) 
     197        0)) 
  • websites/scheme-users.jp/planet/planet.css

    r51 r64  
    11body { margin:20px; padding:20px; background-color:white; color:black; } 
    2 h1 { color:#00CCEE; } 
    3 h2 { color:#00AACC; } 
    4 h3 { color:#0088AA; } 
     2img { border:none; } 
     3h1 { color:#00AACC; } 
     4h2 { color:#0088AA; } 
     5h3 { color:#006688; } 
    56span.date { color:#004488; } 
    6 div.blog { border:1px solid gray; margin:5px; padding:5px; } 
    7 div.blog-header { border:1px solid gray; margin:5px; padding:5px; } 
    8 div.blog-body { border:1px solid gray; margin:5px; padding:5px; } 
    9 div.blog-footer { border:1px solid gray; margin:5px; padding:5px; } 
     7div.blog { margin:5px 5px 20px; padding:5px; border:1px solid #DDDDFF; background-color:#CCCCEE; color:#222244; } 
     8div.blog-header { margin:5px; padding:5px;  border:1px solid #D8D8EE; background-color:#E8E8FF; color:#222244; } 
     9div.blog-body { margin:5px; padding:5px 10px; border:1px solid #DDDDEE; background-color:#EEEEFF; color:#222222; } 
     10div.blog-footer { margin:5px; padding:5px; border:1px solid #CCCCEE; background-color:#DDDDFF; color:#222244; } 
     11a:link { color:#444488; } 
     12a:visited { color:#222244; } 
     13a:hover { color:#8888FF; } 
     14a:active { color:red; } 
  • websites/scheme-users.jp/planet/planet.scm

    r56 r64  
    1010        ("higepon" "http://d.hatena.ne.jp/higepon/" hatena-rss "d.hatena.ne.jp" "/higepon/searchdiary?word=scheme&mode=rss") 
    1111        ("g000001" "http://cadr.g.hatena.ne.jp/g000001/" hatena-rss2 "cadr.g.hatena.ne.jp" "/g000001/rss2") 
     12        ("naoya_t" "http://blog.livedoor.jp/naoya_t/" hatena-rss "blog.livedoor.jp" "/naoya_t/index.rdf") 
     13        ("fujita-y" "http://d.hatena.ne.jp/fujita-y/" hatena-rss2 "d.hatena.ne.jp" "/fujita-y/rss2") 
    1214        )) 
    1315