          {:username (:author commit-info)
           :time time})))])
 
-(defn make-filename-scanner [achievement-id filename-pred]
+(defn make-filename-scanner [[achievement-id filename-pred]]
   [achievement-id
    (fn [{:keys [changed-files author time]}]
      (let [added-files (->> changed-files

   :level 3
   :time #inst "2014-04-16T17:43:20.000-00:00"})

(defn make-substring-scanner [achievement-id needle]
  [achievement-id
   (fn [commit-info]
     (let [l-needle (str/lower-case needle)

           :username author
           :time time}])))])

(defn make-message-scanner [[achievement-id message-predicate]]
  [achievement-id
   (fn [{:keys [message author time]}]
     (when (message-predicate message)
