Context Navigation

← Previous Changeset
Next Changeset →

Changeset 64

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

Makefile (added)
atom.scm (added)
index.scm (modified) (8 diffs)
news.dat (added)
news.scm (added)
planet/planet.css (modified) (1 diff)
planet/planet.scm (modified) (1 diff)

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
1	3	(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
2	22	(define main (lambda (args)
3	23	(call-with-output-file "index.html"
…	…
14	34	(meta (@ (http-equiv "Content-Type") (content "text/html; charset=UTF-8")))
15	35	(meta (@ (http-equiv "Content-Language") (content "ja")))
	36	(meta (@ (name "keywords") (content "Scheme")))
	37	(meta (@ (name "description") (content "日本の Scheme ユーザのためのハブサイト。日々 Scheme 情報を発信しています。")))
16	38	(link (@ (rel "shortcut icon") (href "favicon.ico") (type "image/x-icon")))
17	39	(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 */"))
19	43	(body
20	44	(p (@ (style "margin-left:0;"))
…	…
46	70	"レイヤーが違います。"))
47	71
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))
80	76
81		(table
	77	(table (@ (style "margin:10px auto;"))
82	78	(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"))
86	82	(img (@ (src "./images/clpm8.png") (alt "慢性的CL勉強会@Lingr８時だョ！全員集合") (style "border:none;"))))))
87	83	(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日(土) 午後８時" (br) "お題 : 『" (a (@ (href "http://common-lisp.net/project/metatilities/")) "Metatilities") " を読む』")))
90	86
91		(h2 "~~Lisp/~~Scheme チャット")
	87	(h2 "Scheme チャット")
92	88	(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")))
94	98
95	99	(h2 (a (@ (href "http://scheme-users.jp/planet/")) "Planet Scheme Japan"))
…	…
99	103	" Scheme について書いたブログならどなたでも参加できます。")
100	104	(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") "]"))
103	109
104	110	(h2 "日本でよく使われている処理系")
105	111	(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 で開発されている処理系。"))
113	120
114	121	(h2 "初心者向け学習サイト")
…	…
132	139	(h2 "定番サイト")
133	140	(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"))
136	142	(li (a (@ (href "http://schemers.org/")) "schemers.org"))
137	143	(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"))
138	145	(li (a (@ (href "http://www.r6rs.org/")) "R6RS - Revised 6 Report on the Algorithmic Language Scheme"))
139	146	(li (a (@ (href "http://swiss.csail.mit.edu/projects/scheme/")) "The Scheme Programming Language"))
…	…
144	151	(li (a (@ (href "http://lambda.bugyo.tk/hatena/r5rs.html")) "はてなようせいとまなぶ R5RS の表示的意味論"))
145	152	(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勉強会カレンダー")))
147	156	;;(li (a (@ (href "http://t-code.org/scheme-aa.html")) "ポルナレフ"))
148	157
…	…
168	177	(li (a (@ (href "http://python-users.jp/")) "python-users.jp") " : 日本の Python ユーザのためのハブサイト")
169	178	(li (a (@ (href "http://rails-users.jp/")) "rails-users.jp") " : 日本の Rails ユーザのためのハブサイト")
	179	(li (a (@ (href "http://smalltalk-users.jp/")) "smalltalk-users.jp") " : 日本の Smalltalk ユーザのためのハブサイト")
170	180	(li (a (@ (href "http://vim-users.jp/")) "vim-users.jp") " : 日本の Vim ユーザのためのハブサイト"))
171	181
…	…
182	192	(p "文章のライセンスは、特に明記が無い限り全て "
183	193	(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
1	1	body { margin:20px; padding:20px; background-color:white; color:black; }
2		h1 { color:#00CCEE; }
3		h2 { color:#00AACC; }
4		h3 { color:#0088AA; }
	2	img { border:none; }
	3	h1 { color:#00AACC; }
	4	h2 { color:#0088AA; }
	5	h3 { color:#006688; }
5	6	span.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; }
	7	div.blog { margin:5px 5px 20px; padding:5px; border:1px solid #DDDDFF; background-color:#CCCCEE; color:#222244; }
	8	div.blog-header { margin:5px; padding:5px; border:1px solid #D8D8EE; background-color:#E8E8FF; color:#222244; }
	9	div.blog-body { margin:5px; padding:5px 10px; border:1px solid #DDDDEE; background-color:#EEEEFF; color:#222222; }
	10	div.blog-footer { margin:5px; padding:5px; border:1px solid #CCCCEE; background-color:#DDDDFF; color:#222244; }
	11	a:link { color:#444488; }
	12	a:visited { color:#222244; }
	13	a:hover { color:#8888FF; }
	14	a:active { color:red; }

websites/scheme-users.jp/planet/planet.scm

r56	r64
10	10	("higepon" "http://d.hatena.ne.jp/higepon/" hatena-rss "d.hatena.ne.jp" "/higepon/searchdiary?word=scheme&mode=rss")
11	11	("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")
12	14	))
13	15

Context Navigation

Changeset 64

Legend:

websites/scheme-users.jp/index.scm

websites/scheme-users.jp/planet/planet.css

websites/scheme-users.jp/planet/planet.scm

Download in other formats: