@@ -13,8 +13,8 @@ "Remove microformats prefixes from a class attribute"
   [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 @@ "Get list of classes from an element"
   [el] (some-> el
                :attrs
                :class
-               split-classes))
+               split-ws-attribute))
 
 (defn get-p-value
   "Get the p-x property value of an element"