Webdriver Logic example

attributeo-in-action.clj

(defn attributeo
  "A relation where `elem` has value `value` for its `attr` attribute"
  [elem attr value]
  (fn [a]
    (to-stream
     (->> (for [el (wd/find-elements *driver* *search-domain*)
                attribute *html-attributes*]
            (unify a
                   [elem attr value]
                   [el attribute (wd/attribute el attribute)]))
          (remove not)))))

;; Run it
(run 2 [q]
     (fresh [an-el an-attr]
            (attributeo an-el an-attr "https://github.com/blog")
            (== q [an-attr an-el])))
;; Returns:
;; ([:href
;;   {:webelement
;;    #<Tag: <a>, Text: Blog, Href: https://github.com/blog, Object: [[FirefoxDriver: firefox on MAC (2b3afa4b-c0a7-bb45-b8be-4155f91e3cd9)] -> xpath: //*]>}]
;;  [:href
;;   {:webelement
;;    #<Tag: <a>, Text: Blog, Href: https://github.com/blog, Object: [[FirefoxDriver: firefox on MAC (2b3afa4b-c0a7-bb45-b8be-4155f91e3cd9)] -> xpath: //*]>}])