In the beginning there was darkness

chicken-on-a-raft.egg

@@ -3,7 +3,7 @@
  (synopsis "Cleanroom WebDriver implementation")
  (category testing)
  (license "BSD")
- (dependencies utf8 r7rs coops)
+ (dependencies utf8 r7rs http-client srfi-180)
  (test-dependencies srfi-78)
  (components
    (extension chicken-on-a-raft

chicken-on-a-raft.impl.scm

@@ -0,0 +1,17 @@
+;; -*- geiser-scheme: chicken -*-
+
+(import (r7rs))
+(import (scheme base))
+(import (srfi 180))
+(import (chicken process))
+(import http-client)
+
+(define (firefox)
+  (let-values (((stdout stdin pid stderr) (process* "geckodriver"))
+               (host "127.0.0.1")
+               (port "4444")
+               )
+    (lambda (msg #!optional args)
+      (case msg
+        ((test) (print "Test"))
+        ((test-with-args) (print "Args:" args))))))

chicken-on-a-raft.scm

@@ -2,19 +2,5 @@
 (import (r7rs))
 
 (define-library (chicken-on-a-raft)
-  (import (scheme base)
-		  coops
-		  coops-primitive-objects
-		  http-client)
-  (export #f)
-  (begin
-	(define-class <Driver> ()
-	  ((proc accessor: driver-proc))
-	  ((url accessor: driver-url)))
-
-	(define-method (initialize-instance ()))
-
-	(define-class <Firefox> (<Driver>))
-
-
-	  ))
+  (import (scheme base))
+  (include "chicken-on-a-raft.impl.scm"))