Clean up requires in ns, provide example of how to use IWire in comme…

…nt at bottom

src/clj_webdriver/wire.clj

@@ -1,8 +1,9 @@
 ;; JsonWireProtocol work
 (ns clj-webdriver.wire
   (:use [cheshire.core :only [parse-string]])
-  (:require [clj-http.client :as client])
-  (:import [clj_webdriver.remote_server.RemoteServer]))
+  (:require [clj-http.client :as client]
+            [clj-webdriver.remote-server :as rs])
+  (:import clj_webdriver.remote_server.RemoteServer))
 
 (def default-wd-url "http://localhost:3001/wd/")
 
@@ -12,25 +13,30 @@
   (parse-string (:body resp)))
 
 (defprotocol IWire
-  "JsonWireProtocol implemented in Clojure"
+  "JsonWireProtocol support"
   (execute [server commands])
   (status [server]))
 
-;; this should probably be initially defined in remote.clj
-;; with a protocol for functions relating to starting/stopping,
-;; in addition to IWire protocol here.
 (extend-type RemoteServer
 
   IWire
   (execute [server commands]
     (let [commands (if-not (vector? commands)
                     (vector commands)
                     commands)
-          resp (client/get (str (:address server)
+          resp (client/get (str (rs/address server)
                                 (apply str (interpose "/" commands))))
           body (parse-body resp)]
       (assoc resp :body body)))
 
   (status [server]
     (execute server ["status"])))
 
+(comment
+  ;; The following would execute /session/:sessionId/url to get the
+  ;; current URL of the driver. The response is a JSON object
+  ;; that conforms to the JsonWireProtocol spec detailed here:
+  ;; http://code.google.com/p/selenium/wiki/JsonWireProtocol
+  (let [[server driver] (rs/new-remote-session)
+        session-id (clj-webdriver.remote-driver/session-id driver)]
+    (execute server ["session" session-id "url"])))