Give user the ability to change the server url on login

src/airsonic_ui/api.cljs

@@ -1,5 +1,5 @@
 (ns airsonic-ui.api
-  (:require [clojure.string :as string]
+  (:require [clojure.string :as str]
             [airsonic-ui.config :as config]))
 
 (defn ^:private uri-escape [s]
@@ -7,15 +7,18 @@
 
 (defn url
   "Returns an absolute url to an API endpoint"
-  [endpoint params]
+  [server endpoint params]
   (let [query (->> (assoc params
                           :f "json"
                           :c "airsonic-ui-cljs"
                           :v "1.15.0")
                    (map (fn [[k v]]
                           (str (uri-escape (name k)) "=" (uri-escape v))))
-                   (string/join "&"))]
-    (str config/server "/rest/" endpoint "?" query)))
+                   (str/join "&"))]
+    (str server (when-not (str/ends-with? server "/") "/") "/rest/" endpoint "?" query)))
+
+(defn song-url [server credentials song]
+  (url server "stream" (merge {:id (:id song)} credentials)))
 
 (defn ^:private api-error?
   "We need to look at the message body because the subsonic api always responds