[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH 4/6] xwidget: Bind "beginning-of-buffer" and "end-of-buffer"
From: |
Ricardo Wurmus |
Subject: |
[PATCH 4/6] xwidget: Bind "beginning-of-buffer" and "end-of-buffer" |
Date: |
Wed, 21 Sep 2016 13:50:16 +0200 |
* lisp/xwidget.el: Rebind "beginning-of-buffer" and "end-of-buffer" to
"xwidget-webkit-scroll-top" and "xwidget-webkit-scroll-bottom",
respectively.
(xwidget-webkit-scroll-top,
xwidget-webkit-scroll-bottom): New procedures.
---
lisp/xwidget.el | 17 +++++++++++++++--
1 file changed, 15 insertions(+), 2 deletions(-)
diff --git a/lisp/xwidget.el b/lisp/xwidget.el
index 0892030..6ee4c67 100644
--- a/lisp/xwidget.el
+++ b/lisp/xwidget.el
@@ -129,8 +129,8 @@ Interactively, URL defaults to the string looking like a
url around point."
;; (define-key map [remap move-beginning-of-line] 'image-bol)
;; (define-key map [remap move-end-of-line] 'image-eol)
- ;; (define-key map [remap beginning-of-buffer] 'image-bob)
- ;; (define-key map [remap end-of-buffer] 'image-eob)
+ (define-key map [remap beginning-of-buffer] 'xwidget-webkit-scroll-top)
+ (define-key map [remap end-of-buffer] 'xwidget-webkit-scroll-bottom)
map)
"Keymap for `xwidget-webkit-mode'.")
@@ -172,6 +172,19 @@ Interactively, URL defaults to the string looking like a
url around point."
(xwidget-webkit-current-session)
"window.scrollBy(-50, 0);"))
+(defun xwidget-webkit-scroll-top ()
+ "Scroll webkit to the very top."
+ (interactive)
+ (xwidget-webkit-execute-script
+ (xwidget-webkit-current-session)
+ "window.scrollTo(pageXOffset, 0);"))
+
+(defun xwidget-webkit-scroll-bottom ()
+ "Scroll webkit to the very bottom."
+ (interactive)
+ (xwidget-webkit-execute-script
+ (xwidget-webkit-current-session)
+ "window.scrollTo(pageXOffset, window.document.body.clientHeight);"))
;; The xwidget event needs to go into a higher level handler
;; since the xwidget can generate an event even if it's offscreen.
--
2.10.0
- [PATCH 0/6] xwidget webkit: Use WebKit2 API., Ricardo Wurmus, 2016/09/21
- [PATCH 1/6] xwidget: Use WebKit2 API, Ricardo Wurmus, 2016/09/21
- [PATCH 2/6] Remove scrolled window container around WebKit widget, Ricardo Wurmus, 2016/09/21
- [PATCH 3/6] Implement zoom for WebKit widget, Ricardo Wurmus, 2016/09/21
- [PATCH 4/6] xwidget: Bind "beginning-of-buffer" and "end-of-buffer",
Ricardo Wurmus <=
- [PATCH 5/6] Let initial WebKit view fill window, Ricardo Wurmus, 2016/09/21
- [PATCH 6/6] xwidget: Map "previous-line" and "next-line" to scroll, Ricardo Wurmus, 2016/09/21
- Re: [PATCH 0/6] xwidget webkit: Use WebKit2 API., joakim, 2016/09/21
- Re: [PATCH 0/6] xwidget webkit: Use WebKit2 API., Eli Zaretskii, 2016/09/21