Permalink
Browse files

Merge commit 'f742a' into hotfix/1.0.2

  • Loading branch information...
amalloy committed May 23, 2011
2 parents 8bf3618 + f742a28 commit 845e4a7ad43715332d85e6892d3095ca8d615e8a
Showing with 11 additions and 8 deletions.
  1. +11 −8 src/foreclojure/utils.clj
View
@@ -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]

0 comments on commit 845e4a7

Please sign in to comment.