Add web-server-adapter aliases to make import examples a little easier

Author: ptaoussanis

README.md

@@ -75,21 +75,14 @@ For Sente, we're going to add 2 new URLs and setup their handlers:
     ;; <other stuff>
     [taoensso.sente :as sente] ; <--- Add this
 
-    ;; Add a web-server adapter --->
-    [taoensso.sente.server-adapters.http-kit]    ; http-kit, or
-    ;; [taoensso.sente.server-adapters.immutant] ; Immutant
-   ))
-
-;;; Add this: --->
-(def web-server-adapter
-  taoensso.sente.server-adapters.http-kit/http-kit-adapter    ; http-kit, or
-  ;; taoensso.sente.server-adapters.immutant/immutant-adapter ; Immutant
-  )
+    ;; Uncomment a web-server adapter --->
+    ;; [taoensso.sente.server-adapters.http-kit :refer (sente-web-server-adapter)]
+    ;; [taoensso.sente.server-adapters.immutant :refer (sente-web-server-adapter)]))
 
 ;;; Add this: --->
 (let [{:keys [ch-recv send-fn ajax-post-fn ajax-get-or-ws-handshake-fn
               connected-uids]}
-      (sente/make-channel-socket! web-server-adapter {})]
+      (sente/make-channel-socket! sente-web-server-adapter {})]
   (def ring-ajax-post                ajax-post-fn)
   (def ring-ajax-get-or-ws-handshake ajax-get-or-ws-handshake-fn)
   (def ch-chsk                       ch-recv) ; ChannelSocket's receive channel

example-project/src/example/my_app.cljx

@@ -34,11 +34,14 @@
    [taoensso.sente     :as sente]
 
    ;;; ---> Choose (uncomment) a supported web server and adapter <---
+
    [org.httpkit.server :as http-kit]
-   [taoensso.sente.server-adapters.http-kit] ; Sente adapter for http-kit
+   [taoensso.sente.server-adapters.http-kit :refer (sente-web-server-adapter)]
+
+   ;; or
 
    ;; [immutant.web    :as immutant]
-   ;; [taoensso.sente.server-adapters.immutant] ; Sente adapter for Immutant
+   ;; [taoensso.sente.server-adapters.immutant :refer (sente-web-server-adapter)]
 
    ;; Optional, for Transit encoding:
    [taoensso.sente.packers.transit :as sente-transit])
@@ -63,7 +66,6 @@
 ;;;; ---> Choose (uncomment) a supported web server and adapter <---
 
 ;;; http-kit
-#+clj (def web-server-adapter taoensso.sente.server-adapters.http-kit/http-kit-adapter)
 #+clj
 (defn start-web-server!* [ring-handler port]
   (println "Starting http-kit...")
@@ -73,7 +75,6 @@
      :stop-fn (fn [] (http-kit-stop-fn :timeout 100))}))
 
 ;;; Immutant
-;; #+clj (def web-server-adapter taoensso.sente.server-adapters.immutant/immutant-adapter)
 ;; #+clj
 ;; (defn start-web-server!* [ring-handler port]
 ;;   (println "Starting Immutant...")
@@ -92,7 +93,7 @@
 #+clj
 (let [{:keys [ch-recv send-fn ajax-post-fn ajax-get-or-ws-handshake-fn
               connected-uids]}
-      (sente/make-channel-socket! web-server-adapter {:packer packer})]
+      (sente/make-channel-socket! sente-web-server-adapter {:packer packer})]
   (def ring-ajax-post                ajax-post-fn)
   (def ring-ajax-get-or-ws-handshake ajax-get-or-ws-handshake-fn)
   (def ch-chsk                       ch-recv) ; ChannelSocket's receive channel

src/taoensso/sente/server_adapters/http_kit.clj

@@ -31,3 +31,4 @@
         ))))
 
 (def http-kit-adapter (HttpKitAsyncNetworkChannelAdapter.))
+(def sente-web-server-adapter http-kit-adapter) ; Alias for ns import convenience

src/taoensso/sente/server_adapters/immutant.clj

@@ -25,3 +25,4 @@
         :on-message  (when on-msg (fn [im-ch message] (on-msg im-ch message)))))))
 
 (def immutant-adapter (ImmutantAsyncNetworkChannelAdapter.))
+(def sente-web-server-adapter immutant-adapter) ; Alias for ns import convenience