# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1317688215 14400
# Node ID 77f9ac55543d7b22a75ea806cd331c3a9dba32ab
# Parent  d6f1f9d14b825149f6a94dd5f5d1f9003d73eade
Clean up a bit.

diff -r d6f1f9d14b82 -r 77f9ac55543d resources/public/css/style.less
--- 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;
diff -r d6f1f9d14b82 -r 77f9ac55543d src/newseasons/views/main.clj
--- 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!")