--- a/resources/public/css/style.less Mon Oct 03 20:18:16 2011 -0400
+++ b/resources/public/css/style.less Mon Oct 03 20:30:15 2011 -0400
@@ -1,4 +1,4 @@
-// Mixins
+// Nick Sergeant Mixins
.border-radius(@radius: 5px) {
-webkit-background-clip: padding-box;
-webkit-border-radius: @radius;
--- a/src/newseasons/views/main.clj Mon Oct 03 20:18:16 2011 -0400
+++ b/src/newseasons/views/main.clj Mon Oct 03 20:30:15 2011 -0400
@@ -12,7 +12,6 @@
; Utils -----------------------------------------------------------------------
(def email-regex #"[a-zA-Z0-9._+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,4}")
-(def none-are (comp not some))
(defn all-are [pred coll]
(= (count coll)
(count (filter pred coll))))
@@ -57,7 +56,7 @@
(do ~@body)))
(defn check-login [{:keys [email password]}]
- (if-not (none-are empty? [email password])
+ (if (some empty? [email password])
(flash! "Both fields are required. This really shouldn't be difficult.")
(if-not (re-find email-regex email)
(flash! "That's not an email address!")