Skip to content

Commit

Permalink
http://omeqa.org
Browse files Browse the repository at this point in the history
  • Loading branch information
omegatakuma committed Mar 15, 2012
0 parents commit edfea97
Show file tree
Hide file tree
Showing 3 changed files with 60 additions and 0 deletions.
Empty file added README
Empty file.
37 changes: 37 additions & 0 deletions index.html
@@ -0,0 +1,37 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<html><head><title>Omega</title
></head
><body><h2>Omega</h2
><p><a href="http://www.haskellers.com/user/1581"><img src="http://www.haskellers.com/static/badge.png" alt="I'm Haskeller" /></a
></p
><dl><dt>HN</dt
><dd>omega</dd
><dt>Age</dt
><dd>14</dd
><dt>Amazon</dt
><dd><a href="http://amzn.to/omegatakuma">http://amzn.to/omegatakuma</a
></dd
><dt>Twitter</dt
><dd><a href="http://twitter.com/#!/omegatakuma">@omegatakuma</a
></dd
><dt>Facebook</dt
><dd><a href="http://facebook.com/omegatakuma">Takuma N***</a
></dd
><dt>Skype</dt
><dd>tooth0819</dd
><dt>Github</dt
><dd><a href="http://github.com/omegatakuma">http://github.com/omegatakuma</a
></dd
><dt>Email</dt
><dd>tooth0819[at]gmail.combromega[at]omeqa.org</dd
><dt>Blog</dt
><dd><a href="http://omega.hatenablog.jp/">技術欲男</a
></dd
><dt>Tumblr</dt
><dd><a href="http://omegatakuma.tumblr.com/">おめが><</a
></dd
></dl
></body
></html
>
23 changes: 23 additions & 0 deletions index.html.scm
@@ -0,0 +1,23 @@
#!/usr/local/bin/gosh
(use text.html-lite)
(use text.tree)
(define(main args)
(write-tree
`(,(html-doctype)
,(html:html
(html:head (html:title "Omega"))
(html:body
(html:h2 "Omega")
(html:p
(html:a :href "http://www.haskellers.com/user/1581" (html:img :src"http://www.haskellers.com/static/badge.png" :alt "I'm Haskeller")))
(html:dl
(html:dt "HN:")(html:dd "omega")
(html:dt "Age:")(html:dd "14")
(html:dt "Amazon:")(html:dd (html:a :href "http://amzn.to/omegatakuma" "http://amzn.to/omegatakuma"))
(html:dt "Twitter:")(html:dd (html:a :href "http://twitter.com/#!/omegatakuma" "@omegatakuma"))
(html:dt "Facebook:")(html:dd (html:a :href "http://facebook.com/omegatakuma" "Takuma N***"))
(html:dt "Skype:")(html:dd "tooth0819")
(html:dt "Github:")(html:dd (html:a :href "http://github.com/omegatakuma" "http://github.com/omegatakuma"))
(html:dt "Email:")(html:dd "tooth0819[at]gmail.com" :br "omega[at]omeqa.org")
(html:dt "Blog:")(html:dd (html:a :href "http://omega.hatenablog.jp/" "技術欲男"))
(html:dt "Tumblr:")(html:dd (html:a :href "http://omegatakuma.tumblr.com/" "おめが><"))))))))

0 comments on commit edfea97

Please sign in to comment.