在 Clojure 中实现 Java 泛型接口

我正在尝试使用 selenium2/webdriver 项目来掌握 clojure 的窍门网络驱动程序-clj http://github.com/mikitebeka/webdriver-cljwebdriver 的包装器。

然而，由于网络界面是大量脚本化的，我需要有一个选项来等待脚本创建某些元素，而不是在页面加载时。

所以我试图在 clojure 中创建一个等待函数，使用WebDriver等待 http://code.google.com/p/selenium/source/browse/trunk/support/src/java/org/openqa/selenium/support/ui/WebDriverWait.java类来按属性测试元素，最好使用 webdriver/by- 函数中的 clojure 语法。

然而，waiter 类 Until 方法采用通用接口 (com.google.common.base.Function) 作为参数，并且由于我的 Java 知识几乎不存在，这对于我刚刚起步的 clojure 技能来说太过分了。

任何人都具有 clojure-java 互操作技能，并且知道如何在 clojure 中实现以下 java 代码，以便它与 webdriver/by- 语法相结合？

Function<WebDriver, WebElement> presenceOfElementLocated(final By locator) {
return new Function<WebDriver, WebElement>() {
public WebElement apply(WebDriver driver) {
return driver.findElement(locator);
}
};}

// ...
driver.get("http://www.google.com");
WebDriverWait wait = new WebDriverWait(driver, /*seconds=*/3);
WebElement element =
wait.until(presenceOfElementLocated(By.name("q"))

结果应该使这样的事情成为可能

(defn test []
  (let [driver (webdriver/new-driver :firefox)]
    (webdriver/get driver "http://127.0.0.1/")
    (webdriver/wait-for (webdriver/by-name "button"))
    ))

我对 webdriver 一无所知，但实现接口的 clojure 方法是 proxy 和 reify（还有 deftype 和 defrecord，但这些可能与这里无关）。使用 reify，实现该接口将类似于

(defn presence-of-element-located [locator]
   (reify Function
      (apply [this driver]
         (.findElement driver locator))))

Clojure 不以任何方式处理泛型，但 Java 泛型的类型参数在运行时不存在，因此您应该能够将 Function 接口的实现传递给任何需要任何类型 Function 的对象。