From d7985eb9ef49be79296904e1ad292f9532a3310b Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Sat, 13 Sep 2014 21:01:10 +0100
Subject: Give split-classes a clearer name

---
 src/microformats/parser.clj | 6 +++---
 1 file 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"
-- 
cgit 1.4.1