remove: cancel route /api/mentions/:domain/:path

also refactor `by-url` since the remove `by-domain-path` was used by it

2 files changed, 6 insertions, 12 deletions

diff --git a/src/weepinbell/handler.clj b/src/weepinbell/handler.clj
index 23dbc23..f224cb0 100644
--- a/src/weepinbell/handler.clj
+++ b/src/weepinbell/handler.clj
@@ -28,8 +28,7 @@
     ;; query webmention list
     (context "/mentions" []
       (GET "/" [url] (retriever/by-url url))
-      (GET "/:domain" [domain] (retriever/by-domain domain))
-      (GET "/:domain/:path" [domain path] (retriever/by-domain-path domain path)))
+      (GET "/:domain" [domain] (retriever/by-domain domain)))
     ;; query one specific webmention
     (context "/mention" []
       (GET "/:id" [id] (retriever/by-id id))
diff --git a/src/weepinbell/retriever.clj b/src/weepinbell/retriever.clj
index 7bc0818..5c052ed 100644
--- a/src/weepinbell/retriever.clj
+++ b/src/weepinbell/retriever.clj
@@ -34,20 +34,15 @@
       wrap-response-list
       respond-json))
 
-(defn by-domain-path
-  "Get webmention sent to a particular path on a particular domain. More flexible than bare URL."
-  [domain path]
-  (-> (storage/get-wms-by-domain domain path)
-      wrap-response-list
-      respond-json))
-
 (defn by-url
   "Get webmention sent to a particular URL."
   [url]
   (if url
-    (let [domain (get-domain url)
-          path (get-path url)]
-      (by-domain-path domain path))
+    (->> (get-domain url)
+         storage/get-wms-by-domain
+         (filter #(= url (get-in % [:webmention :target])))
+         wrap-response-list
+         respond-json)
     ;; if no url query is passed
     (respond-json {:status 400
                    :message "Missing URL. Specify target URL whose webmentions you are querying."}