From 07053c199965c6dafa4b2735e3b8d4f5290018a1 Mon Sep 17 00:00:00 2001 From: Joakim Verona Date: Tue, 23 Aug 2011 11:09:05 +0200 Subject: [PATCH] get webkit url --- lisp/xwidget.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/xwidget.el b/lisp/xwidget.el index 1e1660f760c..b4308008939 100644 --- a/lisp/xwidget.el +++ b/lisp/xwidget.el @@ -109,6 +109,7 @@ defaults to the string looking like a url around the cursor position." (define-key map "r" 'xwidget-webkit-reload ) (define-key map "t" (lambda () (interactive) (message "o")) ) (define-key map "\C-m" 'xwidget-webkit-insert-string) + (define-key map "w" 'xwidget-webkit-current-url) ;;similar to image mode bindings (define-key map (kbd "SPC") (xwidget-image-mode-navigation-adaptor 'image-scroll-up)) @@ -281,13 +282,14 @@ Argument H height." (interactive) (xwidget-webkit-execute-script ( xwidget-webkit-current-session) "history.go(0);")) -(defun xwidget-current-url () - "Get the webkit url." +(defun xwidget-webit-current-url () + "Get the webkit url. place it on kill ring." + (interactive) ;;notice the fugly "title" hack. it is needed because the webkit api doesnt support returning values. ;;TODO make a wrapper for the title hack so its easy to remove should webkit someday support JS return values ;;or we find some other way to access the DOM (xwidget-webkit-execute-script (xwidget-webkit-current-session) "document.title=document.URL;") - (xwidget-webkit-get-title (xwidget-webkit-current-session))) + (kill-new (xwidget-webkit-get-title (xwidget-webkit-current-session)))) -- 2.11.4.GIT