Simplify imports of main class

openraildata · Feb 8, 2023 · 322ecaf · 322ecaf
1 parent 44a974e
commit 322ecaf
Showing 1 changed file with 25 additions and 33 deletions.
diff --git a/src/openldbws_example_clojure/core.clj b/src/openldbws_example_clojure/core.clj
@@ -1,17 +1,9 @@
 (ns openldbws-example-clojure.core
-  (:require [taoensso.timbre :as timbre
-              :refer [log trace debug info warn error
-                      fatal report logf tracef debugf infof
-                      warnf errorf fatalf reportf spy
-                      get-env]])
-  (:import (com.thalesgroup.rtti._2013_11_28.token.types AccessToken)
-           (com.thalesgroup.rtti._2021_11_01.ldb GetBoardRequestParams)
-           (com.thalesgroup.rtti._2021_11_01.ldb LDBServiceSoap)
-           (com.thalesgroup.rtti._2021_11_01.ldb Ldb)
-           (com.thalesgroup.rtti._2021_11_01.ldb StationBoardResponseType)
-           (com.thalesgroup.rtti._2021_11_01.ldb.types ServiceItem)
-
-           (org.apache.cxf.endpoint Client))
+  (:require [taoensso.timbre :refer [info infof]])
+  (:import
+    (com.thalesgroup.rtti._2013_11_28.token.types AccessToken)
+    (com.thalesgroup.rtti._2021_11_01.ldb GetBoardRequestParams Ldb LDBServiceSoap GetBoardRequestParams)
+    (com.thalesgroup.rtti._2021_11_01.ldb.types ServiceItem))
   (:gen-class))
 
 (defn -main
@@ -46,37 +38,37 @@
   ;; print informational banner for trains at 'X'
   (infof "Trains at: %s"
          (->
-          departureBoard
-          (.getGetStationBoardResult ,,,)
-          (.getLocationName ,,,)
-          ))
+           departureBoard
+           (.getGetStationBoardResult,,,)
+           (.getLocationName,,,)
+           ))
   (info "===============================================================================")
 
   ;; create list of services from 'X'
   (def services
     (->
-     departureBoard
-     (.getGetStationBoardResult ,,,)
-     (.getTrainServices ,,,)
-     (.getService ,,,)))
+      departureBoard
+      (.getGetStationBoardResult,,,)
+      (.getTrainServices,,,)
+      (.getService,,,)))
 
   ;; iterate over list of services
   (doseq [si services]
     (infof "%s to %s from %s - %s"
            (.getStd si)
 
            (->
-           si
-           (.getDestination ,,,)
-           (.getLocation ,,,)
-           (.get ,,, 0)
-           (.getLocationName ,,,))
+             si
+             (.getDestination,,,)
+             (.getLocation,,,)
+             (.get,,, 0)
+             (.getLocationName,,,))
 
-          (->
-           si
-           (.getOrigin ,,,)
-           (.getLocation ,,,)
-           (.get ,,, 0)
-           (.getLocationName ,,,))
+           (->
+             si
+             (.getOrigin,,,)
+             (.getLocation,,,)
+             (.get,,, 0)
+             (.getLocationName,,,))
 
-          (.getEtd si))))
+           (.getEtd si))))