diff options
| author | Ricardo Wurmus | 2016-10-25 23:00:35 -0700 |
|---|---|---|
| committer | Paul Eggert | 2016-10-25 23:07:13 -0700 |
| commit | cc3b868fbf471b54491ed81f01f2235d50bb5fee (patch) | |
| tree | ee6c8e0a84eba875ac47979fc242b98799318317 | |
| parent | ff80a9c8376d5c14e37fbbfde08706492327836a (diff) | |
| download | emacs-cc3b868fbf471b54491ed81f01f2235d50bb5fee.tar.gz emacs-cc3b868fbf471b54491ed81f01f2235d50bb5fee.zip | |
xwidget: Get title via asynchronous JavaScript.
* lisp/xwidget.el (xwidget-webkit-callback): Get document title
asynchronously.
| -rw-r--r-- | lisp/xwidget.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/xwidget.el b/lisp/xwidget.el index a252fd75d4b..133336533a8 100644 --- a/lisp/xwidget.el +++ b/lisp/xwidget.el | |||
| @@ -194,13 +194,14 @@ XWIDGET instance, XWIDGET-EVENT-TYPE depends on the originating xwidget." | |||
| 194 | "error: callback called for xwidget with dead buffer") | 194 | "error: callback called for xwidget with dead buffer") |
| 195 | (with-current-buffer (xwidget-buffer xwidget) | 195 | (with-current-buffer (xwidget-buffer xwidget) |
| 196 | (cond ((eq xwidget-event-type 'load-changed) | 196 | (cond ((eq xwidget-event-type 'load-changed) |
| 197 | (xwidget-log "webkit finished loading: '%s'" | 197 | (xwidget-webkit-execute-script |
| 198 | (xwidget-webkit-get-title xwidget)) | 198 | xwidget "document.title" |
| 199 | ;;TODO - check the native/internal scroll | 199 | (lambda (title) |
| 200 | ;;(xwidget-adjust-size-to-content xwidget) | 200 | (xwidget-log "webkit finished loading: '%s'" title) |
| 201 | (xwidget-webkit-adjust-size-dispatch) ;;TODO xwidget arg | 201 | ;;TODO - check the native/internal scroll |
| 202 | (rename-buffer (format "*xwidget webkit: %s *" | 202 | ;;(xwidget-adjust-size-to-content xwidget) |
| 203 | (xwidget-webkit-get-title xwidget))) | 203 | (xwidget-webkit-adjust-size-dispatch) ;;TODO xwidget arg |
| 204 | (rename-buffer (format "*xwidget webkit: %s *" title)))) | ||
| 204 | (pop-to-buffer (current-buffer))) | 205 | (pop-to-buffer (current-buffer))) |
| 205 | ((eq xwidget-event-type 'decide-policy) | 206 | ((eq xwidget-event-type 'decide-policy) |
| 206 | (let ((strarg (nth 3 last-input-event))) | 207 | (let ((strarg (nth 3 last-input-event))) |