 
 (def leo-tolstoy
   (make-message-scanner
-    :leo-tolstoy
-    #(>= (count (str/split-lines %)) 10)))
+    [:leo-tolstoy
+    #(>= (count (str/split-lines %)) 10)]))
 
 (def man-of-few-words
   (make-message-scanner
-    :man-of-few-words
-    #(< (count %) 4)))
+    [:man-of-few-words
+    #(< (count %) 4)]))
 
 (def no-more-letters
   (make-message-scanner
-    :no-more-letters
+    [:no-more-letters
     (fn [message]
-      (some #(Character/isLetter (.charValue %)) message))))
+      (some #(Character/isLetter (.charValue %)) message))]))
 
 (def narcissist
   [:narcissist

         {:username (:author commit-info)
          :time time})))])

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

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

(defn make-language-scanner [[achievement-id extensions]]
  (let [dot-extensions (map #(str "." %) extensions)
        has-interesting-extension?
        (fn [file] (some #(.endsWith file %) dot-extensions))]
    (make-filename-scanner [achievement-id has-interesting-extension?])))

(def bad-motherfucker
  [:bad-motherfucker
