Give split-classes a clearer name

1 files changed, 3 insertions, 3 deletions

diff --git a/src/microformats/parser.clj b/src/microformats/parser.clj
index c721e5f..800d403 100644
--- a/src/microformats/parser.clj
+++ b/src/microformats/parser.clj
@@ -13,8 +13,8 @@
   [prefix]
   #(apply str (drop (count prefix) %)))
 
-(defn- split-classes
-  "Split a whitespace-separated string."
+(defn- split-ws-attribute
+  "Split a whitespace-separated attribute."
   [class]
   (str/split class #"\s+"))
 
@@ -30,7 +30,7 @@
   [el] (some-> el
                :attrs
                :class
-               split-classes))
+               split-ws-attribute))
 
 (defn get-p-value
   "Get the p-x property value of an element"