77f9ac55543d

--- 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!")