Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Merge branch 'hotfix/1.0.2'

  • Loading branch information...
commit a805226fd88f5eb8a21322e3a9a0a371c82782cd 2 parents 33e8030 + 845e4a7
@amalloy amalloy authored
Showing with 12 additions and 9 deletions.
  1. +1 −1  project.clj
  2. +11 −8 src/foreclojure/utils.clj
View
2  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"]
View
19 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]
Please sign in to comment.
Something went wrong with that request. Please try again.