From: Ricardo Wurmus <rekado@elephly.net>
Date: Wed, 26 Oct 2016 06:00:35 +0000 (-0700)
Subject: xwidget: Add function to find element by CSS selector
X-Git-Tag: emacs-26.0.90~1423
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=efa269d14685042912cfed96b617d4824a78a1cb;p=emacs.git

xwidget: Add function to find element by CSS selector

* lisp/xwidget.el (xwidget-webkit-show-element): New procedure.
---

diff --git a/lisp/xwidget.el b/lisp/xwidget.el
index e54d1f80c72..d7ef44d389f 100644
--- a/lisp/xwidget.el
+++ b/lisp/xwidget.el
@@ -334,6 +334,23 @@ XW is the xwidget identifier, TEXT is retrieved from the webkit."
   ;;TODO convert linefeed to \n
   )
 
+(defun xwidget-webkit-show-element (xw element-selector)
+  "Make webkit xwidget XW show a named element ELEMENT-SELECTOR.
+The ELEMENT-SELECTOR must be a valid CSS selector.  For example,
+use this to display an anchor."
+  (interactive (list (xwidget-webkit-current-session)
+                     (read-string "Element selector: ")))
+  (xwidget-webkit-execute-script
+   xw
+   (format "
+(function (query) {
+  var el = document.querySelector(query);
+  if (el !== null) {
+    window.scrollTo(0, el.offsetTop);
+  }
+})('%s');"
+    element-selector)))
+
 (defun xwidget-webkit-show-named-element (xw element-name)
   "Make webkit xwidget XW show a named element ELEMENT-NAME.
 For example, use this to display an anchor."