enhance(ux): test url for proxy settings

src/electron/electron/handler.cljs

@@ -314,6 +314,10 @@
 (defmethod handle :getLogseqDotDirRoot []
   (utils/get-ls-dotdir-root))
 
+(defmethod handle :testProxyUrl [win [_ url]]
+  (p/let [_ (utils/fetch url)]
+    (utils/send-to-renderer win :notification {:type "success" :payload (str "Successfully: " url)})))
+
 (defmethod handle :getUserDefaultPlugins []
   (utils/get-ls-default-plugins))
 

src/electron/electron/utils.cljs

@@ -118,7 +118,7 @@
   ([window kind payload]
    (when window
      (.. ^js window -webContents
-         (send kind (bean/->js payload))))))
+         (send (name kind) (bean/->js payload))))))
 
 (defn get-graph-dir
   [graph-name]

src/main/frontend/components/plugins.cljs

@@ -338,6 +338,8 @@
 (rum/defc user-proxy-settings-panel
   [{:keys [protocol] :as agent-opts}]
   (let [[opts set-opts!] (rum/use-state agent-opts)
+        [testing? set-testing?!] (rum/use-state false)
+        *test-input (rum/create-ref)
         disabled? (string/blank? (:protocol opts))]
     [:div.cp__settings-network-proxy-panel
      [:h1.mb-2.text-2xl.font-bold (t :settings-page/network-proxy)]
@@ -362,12 +364,34 @@
           :on-change #(set-opts!
                         (assoc opts :port (util/trim-safe (util/evalue %))))}]]]
 
+      [:hr]
+      [:p.flex.items-center.space-x-2
+       [:span.w-60
+        [:input.form-input.is-small
+         {:ref *test-input
+          :placeholder "http://"
+          :on-change #(set-opts!
+                        (assoc opts :test (util/trim-safe (util/evalue %))))
+          :value (:test opts)}]]
+
+       (ui/button (if testing? (ui/loading "Testing") "Test URL")
+         :intent "logseq" :large? false
+         :style {:margin-top 0 :padding "5px 15px"}
+         :on-click #(let [val (util/trim-safe (.-value (rum/deref *test-input)))]
+                      (when (and (not testing?) (not (string/blank? val)))
+                        (set-testing?! true)
+                        (-> (p/let [_ (ipc/ipc :setHttpsAgent opts)
+                                    _ (ipc/ipc :testProxyUrl val)])
+                          (p/catch (fn [e] (notification/show! (str e) :error)))
+                          (p/finally (fn [] (set-testing?! false)))))
+                      ))]
+
       [:p.pt-2
        (ui/button (t :save)
-                  :on-click (fn []
-                              (p/let [_ (ipc/ipc :setHttpsAgent opts)]
-                                     (state/set-state! [:electron/user-cfgs :settings/agent] opts)
-                                     (state/close-sub-modal! :https-proxy-panel))))]]]))
+         :on-click (fn []
+                     (p/let [_ (ipc/ipc :setHttpsAgent opts)]
+                       (state/set-state! [:electron/user-cfgs :settings/agent] opts)
+                       (state/close-sub-modal! :https-proxy-panel))))]]]))
 
 (rum/defc ^:large-vars/cleanup-todo panel-control-tabs < rum/static
   [search-key *search-key category *category

src/main/frontend/handler/events.cljs

@@ -270,7 +270,6 @@
     (state/close-sub-modal! "ls-focused-settings-modal")))
 
 (defmethod handle :go/proxy-settings [[_ agent-opts]]
-  (js/console.log agent-opts)
   (state/set-sub-modal!
     (fn [_] (plugin/user-proxy-settings-panel agent-opts))
     {:id :https-proxy-panel :center? true}))