77f9ac55543d

Clean up a bit.
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Mon, 03 Oct 2011 20:30:15 -0400
parents d6f1f9d14b82
children a77d48fb4f63
branches/tags (none)
files resources/public/css/style.less src/newseasons/views/main.clj

Changes

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