Merge branch 'hotfix/1.0.2'

amcnamara · May 23, 2011 · a805226 · a805226
2 parents 33e8030 + 845e4a7
commit a805226
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 9 deletions.
diff --git a/project.clj b/project.clj
@@ -1,4 +1,4 @@
-(defproject foreclojure "1.0.1"
+(defproject foreclojure "1.0.2"
   :description "4clojure - a website for lisp beginners"
   :dependencies [[clojure "1.2.1"]
                  [clojure-contrib "1.2.0"]

diff --git a/src/foreclojure/utils.clj b/src/foreclojure/utils.clj
@@ -138,13 +138,16 @@
        [:div#content
         [:br]
         [:div#menu
-         (for [[link text] [["/" "Main Page"]
-                            ["/problems" "Problem List"]
-                            ["/users" "Top Users"]
-                            ["/directions" "Getting Started"]
-                            ["http://try-clojure.org" "REPL"]
-                            ["http://clojuredocs.org" "Docs"]]]
-           [:a.menu {:href link} text])
+         (for [[link text & [tabbed]]
+               [["/" "Main Page"]
+                ["/problems" "Problem List"]
+                ["/users" "Top Users"]
+                ["/directions" "Getting Started"]
+                ["http://try-clojure.org" "REPL" true]
+                ["http://clojuredocs.org" "Docs" true]]]
+           [:a.menu (assoc (when tabbed {:target "_blank"})
+                      :href link)
+            text])
          [:span#user-info
           (if user
             [:div
@@ -162,7 +165,7 @@
               (link-to "/login/update" "Leagues")])
            (when (approver? user)
              [:span
-               (link-to "/problems/unapproved" "View Unapproved Problems")])
+              (link-to "/problems/unapproved" "View Unapproved Problems")])
            (when (can-submit? user)
              [:span (link-to "/problems/submit" "Submit a Problem")])])
         [:div#content_body body]