Index: lang/scheme/bloscheme/template.scm
===================================================================
--- lang/scheme/bloscheme/template.scm (revision 626)
+++  (revision )
@@ -1,110 +1,0 @@
-(use text.html-lite)
-(use text.tree)
-
-(define (result stash-table)
-  (define (stash name)
-    (html-escape-string (hash-table-get stash-table name)))
-  (define (stash-raw name)
-    (hash-table-get stash-table name))
-
-  `("Content-Type: text/html; charset=UTF-8\r\n\r\n"
-    ,(html-doctype :type :xhtml-1.0-strict)
-    ,(html:html
-       (html:head
-         (html:title (stash 'title))
-         (html:meta :name "keywords" :content "norobot")
-         (html:style :type "text/css" "
-                     body {
-                     background: #fff;
-                     color: #555;
-                     padding: 0 10%;
-                     line-height: 1.75;
-                     }
-
-                     .all {
-                     width: 45em;
-                     }
-
-                     a:link {
-                     color: #d06c6b;
-                     }
-
-                     a:visited {
-                     color: #b44e4d;
-                     }
-
-                     a:hover {
-                     text-decoration: none;
-                     }
-
-                     h1, h2, h3 {
-                     font-weight: normal;
-                     }
-
-                     .entry {
-                     border-top: 1px solid #ddd;
-                     padding: 1em 0;
-                     }
-
-                     h3 {
-                     color: #d06c6b;
-                     margin: 0 0 1em 0;
-                     }
-
-                     dl.information {
-                     margin: 0;
-                     color: #ccc;
-                     font-size: 80%;
-                     text-align: right;
-                     }
-
-                     dt, dd {
-                     display: inline;
-                     }
-
-                     #top a:link,
-                     #top a:visited,
-                     #top a:hover,
-                     #top a {
-                     text-decoration: none;
-                     }
-
-                     #footer {
-                     font-size: 80%;
-                     color: #999;
-                     text-align: center;
-                     }
-                     ")
-                     )
-         (html:body
-           (html:div
-             :class "all"
-             (html:h1 :id "top" (html:a :href (string-append (stash 'home) "/")  (stash 'title)))
-             (html:div :class "section"
-                       (html:h2 "Days")
-                       (map (lambda (file)
-                              (html:div :class "entry"
-                                        (html:h3
-                                          (html:a :href (string-join (list (stash 'home) (hash-table-get file 'name)) "")
-                                                  (html-escape-string (hash-table-get file 'title))))
-                                        (html:div :class "entry-body"
-                                                  (string-join (hash-table-get file 'body) "\n"))
-                                        (html:dl :class "information"
-                                                 (html:dt "DateTime")
-                                                 (html:dd (date->string (hash-table-get file 'date) "~Y-~m-~d ~H:~M:~S"))
-                                                 )
-                                        ))
-                            (stash-raw 'files)))
-             (html:div :id "footer"
-                       (html:p
-                         "Gauche "
-                         (gauche-version)
-                         " on "
-                         (gauche-architecture))
-                       (html:p (html:a :href "http://d.hatena.ne.jp/jknaoya/" "id:jknaoya"))
-                       )
-             ) ; /div.all
-           ) ; /body
-         ) ; /html
-       )
-    )