                     (str canonical-url "/" comic-id))
       :comic-list-data {:url (str canonical-url "/alphabetical")
                         :selector [:div.series_alpha :ul :li :a]
-                        :normalize link->map}
+                        :normalize (comp
+                                    (gen-add-id-from-url
+                                     manga-pattern)
+                                    link->map)}
       :chapter-list-data-for-comic
       (fn [comic-url]
         {:url comic-url

                    (str manga-url comic-id "/"))
      :comic-list-data {:url manga-url
                        :selector [:div.manga_list :ul :li :a]
                        :normalize link->map}
      :chapter-list-data-for-comic
      (fn [comic-url]
        {:url comic-url


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

