Methods rename

xicubed · May 10, 2013 · aa076ed · aa076ed
1 parent 13c58d8
commit aa076ed
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/ariane/core.clj b/src/ariane/core.clj
@@ -4,11 +4,11 @@
             [ariane.rss :as rss]
             [ariane.atom :as atom]))
 
-(defn- rss?
+(defn- rss-feed?
   [feed]
   (-> feed :tag (= :rss)))
 
-(defn- atom?
+(defn- atom-feed?
   [feed]
   (-> feed :tag (= :feed)))
 
@@ -17,8 +17,8 @@
   [source]
   (let [feed (xml/parse source)]
     (cond 
-     (rss? feed) (rss/parse-rss (:content feed))
-     (atom? feed) (atom/parse-atom (:content feed))
+     (rss-feed? feed) (rss/parse-rss (:content feed))
+     (atom-feed? feed) (atom/parse-atom (:content feed))
      :else (println "Unkown format"))))
 
 (defn infos