feat(ui): preset target in webmention sender form

2 files changed, 6 insertions, 4 deletions

diff --git a/src/weepinbell/handler.clj b/src/weepinbell/handler.clj
index 056c8f4..24d06d6 100644
--- a/src/weepinbell/handler.clj
+++ b/src/weepinbell/handler.clj
@@ -16,8 +16,9 @@
 (process-webmention wmc)
 
 (defroutes api-routes
-  (GET "/" [] (ui/home (get-config :allowed-target-domains)
-                       (get-config :endpoint)))
+  (GET "/" [target] (ui/home (get-config :allowed-target-domains)
+                       (get-config :endpoint)
+                       target))
   ;; receiver endpoint
   (POST (get-config :endpoint) [source target]
     (receive {:s source :t target} wmc))
diff --git a/src/weepinbell/ui.clj b/src/weepinbell/ui.clj
index d68ef74..5d83063 100644
--- a/src/weepinbell/ui.clj
+++ b/src/weepinbell/ui.clj
@@ -14,7 +14,7 @@
                    [:title "Weepinbell - Webmention Receiver"]]
                  [:body slot]])))
 
-(defn home [domains endpoint]
+(defn home [domains endpoint preset-target]
   (->
     [:main.home
       [:img.banner {:src "/weepinbell.avif"}]
@@ -25,7 +25,8 @@
         [:p "Have him send a Webmention for you."]
         [:form {:action endpoint :method "POST"}
           [:input {:name "source" :placeholder "source"}]
-          [:input {:name "target" :placeholder "target"}]
+          [:input {:name "target" :placeholder "target"
+                   :value preset-target}]
           [:button {:type "submit"} "send"]]]]
     page-base
     page-response))