root/lang/scheme/bloscheme/template-html.scm @ 32353

(use text.html-lite)
(use text.tree)
(use www.cgi)

(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))

  `(,(if (null? (stash-raw 'files))
       (cgi-header :content-type "text/html; charset=UTF-8" :status "404 Not Found")
       (cgi-header :content-type "text/html; charset=UTF-8"))
     ,(html-doctype :type :xhtml-1.0-strict)
     ,(html:html
        (html:head
          (html:title (stash 'title))
          (html:meta :name "keywords" :content "norobot")
          (html:link :rel "alternate" :type "application/rss+xml" :title "RSS" :href (string-join (list (stash 'home) "/index.rdf") ""))
          (html:style :type "text/css" "
                      body {
                      background: #fff;
                      color: #555;
                      padding: 0 10%;
                      line-height: 1.75;
                      }

                      var {
                      text-decoration: underline;
                      color: #666;
                      }

                      hr {
                      border-style: solid;
                      border-width: 1px 0 0;
                      border-color: #eee;
                      height: 1px;
                      margin: 1em 0;
                      }

                      .all {
                      width: 45em;
                      }

                      a:link {
                      color: #d06c6b;
                      }

                      a:visited {
                      color: #b44e4d;
                      }

                      a:hover {
                      text-decoration: none;
                      }

                      h1, h2, h3 {
                      font-weight: normal;
                      }

                      .hentry {
                      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;
                      line-height: 1.33;
                      }

                      dt {
                      margin: 0 13em 0 0;
                      padding: 0;
                      }

                      dd {
                      overflow: hidden;
                      white-space: nowrap;
                      padding: 0;
                      margin: -1.33em 0 0 0;
                      }

                      #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)))
              (if (null? (stash-raw 'files))
                (html:div :class "section notfound"
                          (html:p #`"404 Not Found ,(path-info)"))
                (list
                  (html:div :class "section hfeed"
                            (html:h2 "Days")
                            (map (lambda (file)
                                   (html:div :class "hentry"
                                             (html:h3 :class "entry-title"
                                                      (html:a :href (string-join (list (stash 'home) (file 'name)) "")
                                                              :rel "bookmark"
                                                              (html-escape-string (file 'title))))
                                             (html:div :class "entry-content"
                                                       (string-join (file 'body) "\n"))
                                             (html:dl :class "information"
                                                      (html:dt "DateTime")
                                                      (html:dd (html:abbr :class "entry-updated"
                                                                          :title (date->string (file 'date) "~Y-~m-~dT~H:~M:~S+09:00")
                                                                          (date->string (file 'date) "~Y-~m-~d ~H:~M:~S")))
                                                      (html:dt "Path")
                                                      (html:dd (file 'name))
                                                      (html:dt "Author")
                                                      (html:dd :class "vcard author" (html:span :class "fn" *author*))
                                                      )
                                             ))
                                 (stash-raw 'files)))
                  (html:div :class "paging"
                            (let ([num 0]
                                  [current (+ (stash-raw 'page-current) 1)])
                              (map (lambda (page)
                                     (inc! num)
                                     (if (= num current)
                                       (html:span :class "current" num " ")
                                       (html:span
                                         (html:a :href #`"?page=,num" num)
                                         " "
                                         ))
                                     )
                                   (stash-raw 'page-slices)))
                            )
                  )
                )
              (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
        )
     )