    (let [canonical-url "http://www.mangareader.net"
          manga-pattern (re-pattern (str canonical-url
                                         "/(.*)(\\.html)?$"))
-         link->map (gen-link->map s/trim
+         link->map (gen-link->map (comp s/trim first)
                                   (partial str canonical-url))]
      {:id :manga-reader
       :name "Manga Reader"

            [clojure.string :as s]))

(defn gen-link->map [process-name process-url]
  (fn [{[name] :content
        {url :href} :attrs}]
    {:name (process-name name)
     :url (process-url url)}))

   (let [canonical-url "http://www.mangahere.co"
         manga-url     (format "%s/manga" canonical-url)
         mangalist-url (format "%s/mangalist/" canonical-url)
         manga-pattern (re-pattern (str manga-url "/(.*?)/"))
         link->map (gen-link->map second identity)]
     {:id :manga-here
      :name "Manga Here"
      :comic->url (fn [comic-id]
