diff options
| -rw-r--r-- | src/microformats/parser.clj | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/microformats/parser.clj b/src/microformats/parser.clj index 882759a..94f0110 100644 --- a/src/microformats/parser.clj +++ b/src/microformats/parser.clj @@ -6,12 +6,12 @@ (defn mf-names-from-class "Get microformat classnames from a class attribute" [prefix] - (r/filter #(.startsWith % prefix))) + #(.startsWith % prefix)) (defn remove-mf-prefix "Remove microformats prefixes from a class attribute" [prefix] - (r/map #(apply str (drop (count prefix) %)))) + #(apply str (drop (count prefix) %))) (defn- split-classes "Split a whitespace-separated string." @@ -22,8 +22,8 @@ "Convert class list to list of microformat property keywords" [prefix] (comp (r/map keyword) - (remove-mf-prefix prefix) - (mf-names-from-class prefix))) + (r/map (remove-mf-prefix prefix)) + (r/filter (mf-names-from-class prefix)))) (defn element-to-classes "Get list of classes from an element" |