    :level 3
    :time #inst "2014-04-16T17:43:20.000-00:00"})
 
-(defn make-substring-scanner [achievement-id needle]
+(defn make-substring-scanner [[achievement-id needle]]
   [achievement-id
    (fn [commit-info]
      (let [l-needle (str/lower-case needle)

     nil)])

; TODO diff achievements
(def easy-fix
  [:easy-fix
   (fn [commit-info]
     nil)])
(def mover
  [:mover
   (fn [commit-info]
     nil)])


; TODO commit-info achievements
(def borat


(def lucky
  (make-sha-scanner
    [:lucky
    #(.contains % "777")]))

(def mark-of-the-beast
  (make-sha-scanner
    [:mark-of-the-beast
    #(.contains % "666")]))

; LOC achievements
(defn make-loc-scanner [[achievement-id loc-predicate]]
  [achievement-id
   (fn [{:keys [loc author time]}]
     (when (loc-predicate loc)
