From 9446a4df3bcbbd336be1a4897a6e0ea72411ae7e Mon Sep 17 00:00:00 2001
From: Uunnamed <uunnamed@mail.ru>
Date: Mon, 24 Aug 2020 11:23:30 +0300
Subject: [PATCH] make service functions private

---
 src/etaoin/api.clj | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/src/etaoin/api.clj b/src/etaoin/api.clj
index 95fc50d4..4983edc6 100644
--- a/src/etaoin/api.clj
+++ b/src/etaoin/api.clj
@@ -2866,7 +2866,7 @@
   (format "http://%s:%s" host port))
 
 
-(defn create-driver
+(defn- -create-driver
   "Creates a new driver instance.
 
   Returns an atom that represents driver's state. Some functions, for
@@ -2921,7 +2921,7 @@
       ssl  (assoc :ssl ssl))))
 
 
-(defn run-driver
+(defn- -run-driver
   "Runs a driver process locally.
 
   Creates a UNIX process with a Webdriver HTTP server. Host and port
@@ -2930,7 +2930,7 @@
 
   Arguments:
 
-  - `driver` is an atom created with `create-driver` function.
+  - `driver` is an atom created with `-create-driver` function.
 
   - `opt` is an optional map with the following possible parameters:
 
@@ -3008,7 +3008,7 @@
            :process process)
     driver))
 
-(defn connect-driver
+(defn- -connect-driver
   "Connects to a running Webdriver server.
 
   Creates a new session on Webdriver HTTP server. Sets the session to
@@ -3130,15 +3130,15 @@
 
   - `type` a keyword determines a driver type.
 
-  - `opt` a map of all possible parameters that `create-driver`,
-  `run-driver` and `connect-driver` may accept."
+  - `opt` a map of all possible parameters that `-create-driver`,
+  `-run-driver` and `-connect-driver` may accept."
   ([type]
    (boot-driver type {}))
   ([type {:keys [host] :as opt}]
    (cond-> type
-     true       (create-driver opt)
-     (not host) (run-driver opt)
-     true       (connect-driver opt))))
+     true       (-create-driver opt)
+     (not host) (-run-driver opt)
+     true       (-connect-driver opt))))
 
 (defn quit
   "Closes the current session and stops the driver."