Simplify setting server

bitwarden.el

@@ -164,7 +164,9 @@ This macro is largely copied from Tecosaur’s screenshot.el"
      (if (eq 0 bitwarden--shell-status)
          (string-trim output-str "https?://")
        ""))
-   (read-string "Server URL: "))
+   (let ((server (read-string "Server URL: ")))
+     (bitwarden--run-cli "config" "server" server)
+     server))
 
   ;; Login
 
@@ -273,21 +275,13 @@ This function is meant to be called by a transient.")
        ,@body))
 
   ;; Config
-
   (bitwarden--def-action
-   "set-server"
+   "config-quit"
-   "Set the Bitwarden server."
+   "Exit Bitwarden config."
    'bitwarden-config
-   (bitwarden--run-cli "config" "server" bitwarden--config-server))
+   #'nil)
-
-  (bitwarden--def-action
-   "get-server"
-   "Get the URL of the on-premises hosted installation."
-   'bitwarden-config
-   (bitwarden--run-cli "config" "server"))
 
   ;; Login
-
   (bitwarden--def-action
    "login"
    "Log in Bitwarden."
@@ -310,8 +304,7 @@ This function is meant to be called by a transient.")
   ["Options"
    (bitwarden--set-config-server)]
   ["Actions"
-   ("g" "Get current server" bitwarden--action-get-server)
+   ("q" "Quit" bitwarden--action-config-quit)]
-   ("s" "Set current server" bitwarden--action-set-server)]
   (interactive)
   (transient-setup 'bitwarden-config))