Update info to v0.2.0site

Also add a downloads page where all the earlier versions can be found
as well.

3 files changed, 36 insertions, 15 deletions

diff --git a/layouts/default.sxml b/layouts/default.sxml
index bed26f2..73981a2 100644
--- a/layouts/default.sxml
+++ b/layouts/default.sxml
@@ -1,5 +1,8 @@
 ;; -*- mode: scheme; -*-
-((menu-items
+((site-title . "Markam")
+ (menu-items-left
+  . (("Downloads" . "downloads.html")))
+ (menu-items-right
   . (("Browse Source" .
       "http://code.ryuslash.org/cgit.cgi/markam/")
      ("View README" .
@@ -11,7 +14,7 @@
 `((doctype-html)
   (html (@ (lang "en"))
         (head
-         (title ,($ 'title))
+         (title ,($ 'site-title) ": " ,($ 'title))
          (link (@ (rel "stylesheet") (type "text/css")
                   (href "css/bootstrap.min.css")))
          (link (@ (rel "stylesheet") (type "text/css")
@@ -20,12 +23,18 @@
          (div (@ (class "navbar navbar-static-top"))
               (div (@ (class "container"))
                    (div (@ (class "container"))
-                        (a (@ (href "") (class "brand"))
-                           ,($ 'title))
+                        (a (@ (href "index.html") (class "brand"))
+                           ,($ 'site-title))
+                        (ul (@ (class "nav"))
+                            ,@(map (eval ($ 'print-item))
+                                   ($ 'menu-items-left)))
                         (ul (@ (class "nav pull-right"))
                             ,@(map (eval ($ 'print-item))
-                                   ($ 'menu-items))))))
+                                   ($ 'menu-items-right))))))
          (div (@ (class "container"))
+              (div (@ (class "page-header"))
+                   (h1 ,($ 'site-title)
+                       (small ", " ,($ 'title))))
               (inject ,contents)
               (div (@ (class "centered"))
                    (small
diff --git a/src/downloads.sxml b/src/downloads.sxml
new file mode 100644
index 0000000..94c93ac
--- /dev/null
+++ b/src/downloads.sxml
@@ -0,0 +1,15 @@
+;; -*- mode: scheme; -*-
+((title . "downloads")
+ (versions . ("master" "0.2.0" "0.1.0")))
+
+`((ul
+   ,@(map (lambda (version)
+            `(li ,version ": "
+                 (a (@ (href "http://code.ryuslash.org/cgit.cgi/markam/snapshot/markam-"
+                             ,version ".tar.gz"))
+                    "tar.gz")
+                 ", "
+                 (a (@ (href "http://code.ryuslash.org/cgit.cgi/markam/snapshot/markam-"
+                             ,version ".zip"))
+                    "zip")))
+          ($ 'versions))))
diff --git a/src/index.sxml b/src/index.sxml
index afcf0ee..01c5785 100644
--- a/src/index.sxml
+++ b/src/index.sxml
@@ -1,26 +1,23 @@
 ;; -*- mode: scheme; -*-
-((title . "Markam")
+((title . "store bookmarks")
  (conkeror . (a (@ (href "http://conkeror.org")) "Conkeror"))
  (chicken . (a (@ (href "http://call-cc.org")) "CHICKEN scheme"))
  (chicken-sqlite . (a (@ (href "http://wiki.call-cc.org/eggref/4/sqlite3")) "sqlite3"))
  (tar-gz
-  . "http://code.ryuslash.org/cgit.cgi/markam/snapshot/markam-0.1.0.tar.gz")
+  . "http://code.ryuslash.org/cgit.cgi/markam/snapshot/markam-0.2.0.tar.gz")
  (zip
-  . "http://code.ryuslash.org/cgit.cgi/markam/snapshot/markam-0.1.0.zip")
+  . "http://code.ryuslash.org/cgit.cgi/markam/snapshot/markam-0.2.0.zip")
  (dev-tar-gz
   . "http://code.ryuslash.org/cgit.cgi/markam/snapshot/markam-master.tar.gz")
  (dev-zip
   . "http://code.ryuslash.org/cgit.cgi/markam/snapshot/markam-master.zip"))
 
-`((div (@ (class "page-header"))
-       (h1 ,($ 'title)
-           (small ", store bookmarks")))
-  (div (@ (class "hero-unit"))
+`((div (@ (class "hero-unit"))
        (p "Store bookmarks without being stuck to a single browser.")
        (div (@ (class "row"))
             (div (@ (class "span3 centered"))
                  (h3 "Version")
-                 "0.1.0")
+                 "0.2.0")
             (div (@ (class "span4 centered"))
                  (h3 "Language")
                  ,($ 'chicken))
@@ -62,10 +59,10 @@
        (div (@ (class "span6"))
             (a (@ (href ,($ 'tar-gz))
                   (class "btn btn-large btn-block"))
-               "Download 0.1.0 .tar.gz")
+               "Download 0.2.0 .tar.gz")
             (a (@ (href ,($ 'zip))
                   (class "btn btn-large btn-block"))
-               "Download 0.1.0 .zip"))
+               "Download 0.2.0 .zip"))
        (div (@ (class "span6"))
             (a (@ (href ,($ 'dev-tar-gz))
                   (class "btn btn-large btn-block"))