refactor: reuse get-domain function

1 files changed, 7 insertions, 1 deletions

diff --git a/src/weepinbell/utils.clj b/src/weepinbell/utils.clj
index f81be4d..a7e897b 100644
--- a/src/weepinbell/utils.clj
+++ b/src/weepinbell/utils.clj
@@ -3,6 +3,12 @@
            [java.net URI])
   (:require [weepinbell.config :refer [get-config]]))
 
+(defn get-domain [url]
+  (-> (URI/create url) .getHost))
+
+(defn get-target [wm]
+  (get-in wm [:webmention :target]))
+
 (defn valid-http-url? [url]
   (let [schemes (into-array String ["http" "https"])
         validator (UrlValidator. schemes)]
@@ -13,6 +19,6 @@
 
 (defn validate-target [t]
   (let [allow-list (get-config :allowed-target-domains)
-        target-domain (-> (URI/create t) .getHost)]
+        target-domain (get-domain t)]
     (some #{target-domain} allow-list)))