feat: Automatically get explained response if URL can be provided

backend/src/api.py

@@ -7,6 +7,7 @@
 from datetime import datetime
 from http import HTTPStatus
 from pathlib import Path
+from typing import Optional
 
 import requests
 
@@ -133,7 +134,10 @@ def review(request: Request):
 
 
 @app.get("/explain", response_class=HTMLResponse)
-def explain(request: Request):
+def explain(request: Request, url: Optional[str] = None):
+    # the URL is parsed by frontend, but having it mentioned here
+    # means we have it documented
+    _ = url
     mapping = {"name": "app-prompt", "request": request}
     return template_response("app.html", mapping)
 

frontend/src/app/prompt/core.cljs

@@ -52,7 +52,10 @@
    [:prompt [:maybe :string]]])
 
 (defn send []
-  (let [data {:prompt @prompt-value}]
+  (let [query-url (-> js/window .-location .-search js/URLSearchParams. (.get "url"))
+        data (if query-url
+               {:prompt query-url}
+               {:prompt @prompt-value})]
     (if (m/validate OutputSchema data)
       (do
         (reset! status "waiting")
@@ -78,9 +81,11 @@
                "Invalid data"
                "Got invalid data from the backend. This is likely a bug.")))))
 
-      (handle-backend-error
-       "Client error"
-       "Something went wrong when preparing a request to server"))))
+      (if (not query-url)
+        (reset! status "No URL provided. Please enter a URL.")
+        (handle-backend-error
+         "Client error"
+         "Something went wrong when preparing a request to server")))))
 
 (defn on-change-prompt [event]
   (let [target (.-target event)
@@ -269,17 +274,22 @@
                "it. You won't need to open the logs at all."))]])
 
 (defn prompt []
-  (cond
-    (= @status "error")
-    (render-error @error-title @error-description)
-
-    ;; TODO If we are already in a two-column-layout, we should print only
-    ;; a small loading icon somewhere, not a jumbotron
-    (= @status "waiting")
-    (loading-screen "Getting a response from the server")
-
-    @form
-    (two-column-layout)
-
-    :else
-    (prompt-only)))
+  (let [query-url (-> js/window .-location .-search js/URLSearchParams. (.get "url"))]
+    (if query-url
+      (do
+        (send)
+        (loading-screen "Getting a response from the server"))
+      (cond
+        (= @status "error")
+        (render-error @error-title @error-description)
+
+        ;; TODO If we are already in a two-column-layout, we should print only
+        ;; a small loading icon somewhere, not a jumbotron
+        (= @status "waiting")
+        (loading-screen "Getting a response from the server")
+
+        @form
+        (two-column-layout)
+
+        :else
+        (prompt-only)))))