code.delx.au - gnu-emacs/blob - lisp/xwidget.el

   1 ;;; xwidget.el --- api functions for xwidgets
   2 ;;  see xwidget.c for more api functions
   3
   4
   5 ;;; Commentary:
   6 ;;
   7
   8 ;;TODO this breaks compilation when we dont have xwidgets
   9 ;;(require 'xwidget-internal)
  10
  11 ;;TODO model after make-text-button instead!
  12 ;;; Code:
  13
  14 (eval-when-compile (require 'cl))
  15 (require 'reporter)
  16
  17 (defcustom xwidget-webkit-scroll-behaviour 'native
  18   "Scroll behaviour of the webkit instance.
  19 'native or 'image."
  20   :group 'xwidgets)
  21
  22 (defun xwidget-insert (pos type title width height)
  23   "Insert an xwidget at POS.
  24 given ID, TYPE, TITLE WIDTH and
  25 HEIGHT in the current buffer.
  26
  27 Return ID
  28
  29 see `make-xwidget' for types suitable for TYPE."
  30   (goto-char pos)
  31   (let ((id (make-xwidget (point) (point)
  32                           type title width height nil)))
  33     (put-text-property (point) (+ 1 (point))
  34                        'display (list 'xwidget ':xwidget id))
  35     id))
  36
  37 (defun xwidget-at (pos)
  38   "Return xwidget at POS."
  39   ;;TODO this function is a bit tedious because the C layer isnt well protected yet and
  40   ;;xwidgetp aparently doesnt work yet
  41   (let* ((disp (get-text-property pos 'display))
  42          (xw (car (cdr (cdr  disp)))))
  43     ;;(if ( xwidgetp  xw) xw nil)
  44     (if (equal 'xwidget (car disp)) xw)))
  45
  46
  47 ;; (defun xwidget-socket-handler ()
  48 ;;   "Create plug for socket.  TODO."
  49 ;;   (interactive)
  50 ;;   (message "socket handler xwidget %S" last-input-event)
  51 ;;   (let*
  52 ;;       ((xwidget-event-type (nth 2 last-input-event))
  53 ;;        (xwidget-id (nth 1 last-input-event)))
  54 ;;     (cond ( (eq xwidget-event-type 'xembed-ready)
  55 ;;             (let*
  56 ;;                 ((xembed-id (nth 3 last-input-event)))
  57 ;;               (message "xembed ready  event: %S xw-id:%s" xembed-id xwidget-id)
  58 ;;               ;;TODO fetch process data from the xwidget. create it, store process info
  59 ;;               ;;will start emacs/uzbl in a xembed socket when its ready
  60 ;;               ;; (cond
  61 ;;               ;;  ((eq 3 xwidget-id)
  62 ;;               ;;   (start-process "xembed" "*xembed*" (format "%ssrc/emacs" default-directory) "-q" "--parent-id" (number-to-string xembed-id) ) )
  63 ;;               ;;  ((eq 5 xwidget-id)
  64 ;;               ;;   (start-process "xembed2" "*xembed2*" "uzbl-core"  "-s" (number-to-string xembed-id)  "http://www.fsf.org" )  )
  65 ;;               )))))
  66
  67 (defun xwidget-display (xwidget)
  68   "Force XWIDGET to be displayed to create a xwidget_view.
  69 Return the window displaying XWIDGET."
  70   (let* ((buffer (xwidget-buffer xwidget))
  71          (window (display-buffer buffer))
  72          (frame (window-frame window)))
  73     (set-frame-visible frame t)
  74     (redisplay t)
  75     window))
  76
  77
  78 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  79 ;;; webkit support
  80 (require 'browse-url)
  81 (require 'image-mode);;for some image-mode alike functionality
  82 (require 'cl-macs);;for flet
  83
  84 ;;;###autoload
  85 (defun xwidget-webkit-browse-url (url &optional new-session)
  86   "Ask xwidget-webkit to browse URL.
  87 NEW-SESSION specifies whether to create a new xwidget-webkit session.  URL
  88 defaults to the string looking like a url around the cursor position."
  89   (interactive (progn
  90                  (require 'browse-url)
  91                  (browse-url-interactive-arg "xwidget-webkit URL: "
  92                                              ;;( xwidget-webkit-current-url)
  93                                              )))
  94   (when (stringp url)
  95     (setq url (url-tidy url))
  96     (if new-session
  97         (xwidget-webkit-new-session url)
  98       (xwidget-webkit-goto-url url))))
  99
 100
 101 ;;shims for adapting image mode code to the webkit browser window
 102 (defun xwidget-image-display-size  (spec &optional pixels frame)
 103   "Image code adaptor.  SPEC PIXELS FRAME like the corresponding `image-mode' fn."
 104   (let ((xwi (xwidget-info  (xwidget-at 1))))
 105     (cons (aref xwi 2)
 106           (aref xwi 3))))
 107
 108 (defadvice image-display-size (around image-display-size-for-xwidget
 109                                       (spec &optional pixels frame)
 110                                       activate)
 111   "Advice for re-using image mode for xwidget."
 112   (if (eq (car spec) 'xwidget)
 113       (setq ad-return-value (xwidget-image-display-size spec pixels frame))
 114     ad-do-it))
 115
 116 ;;todo.
 117 ;; - check that the webkit support is compiled in
 118 (defvar xwidget-webkit-mode-map
 119   (let ((map (make-sparse-keymap)))
 120     (define-key map "g" 'xwidget-webkit-browse-url)
 121     (define-key map "a" 'xwidget-webkit-adjust-size-dispatch)
 122     (define-key map "b" 'xwidget-webkit-back )
 123     (define-key map "r" 'xwidget-webkit-reload )
 124     (define-key map "t" (lambda () (interactive) (message "o")) )
 125     (define-key map "\C-m" 'xwidget-webkit-insert-string)
 126     (define-key map "w" 'xwidget-webkit-current-url)
 127
 128     ;;similar to image mode bindings
 129     (define-key map (kbd "SPC")                    'xwidget-webkit-scroll-up)
 130     (define-key map (kbd "DEL")                    'xwidget-webkit-scroll-down)
 131
 132     (define-key map [remap scroll-up]              'xwidget-webkit-scroll-up)
 133     (define-key map [remap scroll-up-command]      'xwidget-webkit-scroll-up)
 134
 135     (define-key map [remap scroll-down]            'xwidget-webkit-scroll-down)
 136     (define-key map [remap scroll-down-command]    'xwidget-webkit-scroll-down)
 137
 138     (define-key map [remap forward-char]           'xwidget-webkit-scroll-forward)
 139     (define-key map [remap backward-char]          'xwidget-webkit-scroll-backward)
 140     (define-key map [remap right-char]             'xwidget-webkit-scroll-forward)
 141     (define-key map [remap left-char]              'xwidget-webkit-scroll-backward)
 142     ;; (define-key map [remap previous-line]          'image-previous-line)
 143     ;; (define-key map [remap next-line]              'image-next-line)
 144
 145     ;; (define-key map [remap move-beginning-of-line] 'image-bol)
 146     ;; (define-key map [remap move-end-of-line]       'image-eol)
 147     ;; (define-key map [remap beginning-of-buffer]    'image-bob)
 148     ;; (define-key map [remap end-of-buffer]          'image-eob)
 149     map)
 150   "Keymap for `xwidget-webkit-mode'.")
 151
 152 (defun xwidget-webkit-scroll-up ()
 153   "Scroll webkit up,either native or like image mode."
 154   (interactive)
 155   (if (eq xwidget-webkit-scroll-behaviour 'native)
 156       (xwidget-set-adjustment (xwidget-webkit-last-session) 'vertical t 50)
 157     (image-scroll-up)))
 158
 159 (defun xwidget-webkit-scroll-down ()
 160   "Scroll webkit down,either native or like image mode."
 161   (interactive)
 162   (if (eq xwidget-webkit-scroll-behaviour 'native)
 163       (xwidget-set-adjustment (xwidget-webkit-last-session) 'vertical t -50)
 164     (image-scroll-down)))
 165
 166 (defun xwidget-webkit-scroll-forward ()
 167   (interactive)
 168   (if (eq xwidget-webkit-scroll-behaviour 'native)
 169       (xwidget-set-adjustment (xwidget-webkit-last-session) 'horizontal t 50)
 170     (xwidget-webkit-scroll-forward)))
 171
 172 (defun xwidget-webkit-scroll-backward ()
 173   (interactive)
 174   (if (eq xwidget-webkit-scroll-behaviour 'native)
 175       (xwidget-set-adjustment (xwidget-webkit-last-session) 'horizontal t -50)
 176     (xwidget-webkit-scroll-backward)))
 177
 178
 179 ;;the xwidget event needs to go into a higher level handler
 180 ;;since the xwidget can generate an event even if its offscreen
 181 ;;TODO this needs to use callbacks and consider different xw ev types
 182 (define-key (current-global-map) [xwidget-event] 'xwidget-event-handler)
 183 (defun xwidget-log ( &rest msg)
 184   "Log MSG to a buffer."
 185   (let ( (buf  (get-buffer-create "*xwidget-log*")))
 186     (save-excursion
 187       (buffer-disable-undo buf)
 188       (set-buffer buf)
 189       (insert (apply  'format msg))
 190       (insert "\n"))))
 191
 192 (defun xwidget-event-handler ()
 193   "Receive xwidget event."
 194   (interactive)
 195   (xwidget-log "stuff happened to xwidget %S" last-input-event)
 196   (let*
 197       ((xwidget-event-type (nth 1 last-input-event))
 198        (xwidget (nth 2 last-input-event))
 199                                         ;(xwidget-callback (xwidget-get xwidget 'callback));;TODO stopped working for some reason
 200        )
 201                                         ;(funcall  xwidget-callback xwidget xwidget-event-type)
 202     (message "xw callback %s" xwidget)
 203     (funcall  'xwidget-webkit-callback xwidget xwidget-event-type)))
 204
 205 (defun xwidget-webkit-callback (xwidget xwidget-event-type)
 206   "Callback for xwidgets.
 207 XWIDGET instance, XWIDGET-EVENT-TYPE depends on the originating xwidget."
 208   (save-excursion
 209     (cond ((buffer-live-p (xwidget-buffer xwidget))
 210            (set-buffer (xwidget-buffer xwidget))
 211            (let* ((strarg  (nth 3 last-input-event)))
 212              (cond ((eq xwidget-event-type 'document-load-finished)
 213                     (xwidget-log "webkit finished loading: '%s'" (xwidget-webkit-get-title xwidget))
 214                     ;;TODO - check the native/internal scroll
 215                     ;;(xwidget-adjust-size-to-content xwidget)
 216                     (xwidget-webkit-adjust-size-dispatch) ;;TODO send xwidget here
 217                     (rename-buffer (format "*xwidget webkit: %s *" (xwidget-webkit-get-title xwidget)))
 218                     (pop-to-buffer (current-buffer)))
 219                    ((eq xwidget-event-type 'navigation-policy-decision-requested)
 220                     (if (string-match ".*#\\(.*\\)" strarg)
 221                         (xwidget-webkit-show-id-or-named-element xwidget (match-string 1 strarg))))
 222                    (t (xwidget-log "unhandled event:%s" xwidget-event-type)))))
 223           (t (xwidget-log "error: callback called for xwidget with dead buffer")))))
 224
 225 (define-derived-mode xwidget-webkit-mode
 226   special-mode "xwidget-webkit" "xwidget webkit view mode"
 227   (setq buffer-read-only t)
 228   ;; Keep track of [vh]scroll when switching buffers
 229   (image-mode-setup-winprops))
 230
 231 (defvar xwidget-webkit-last-session-buffer nil)
 232
 233 (defun  xwidget-webkit-last-session ()
 234   "Last active webkit, or nil."
 235   (if (buffer-live-p xwidget-webkit-last-session-buffer)
 236       (with-current-buffer xwidget-webkit-last-session-buffer
 237         (xwidget-at 1))
 238     nil))
 239
 240 (defun xwidget-webkit-current-session ()
 241   "Either the webkit in the current buffer, or the last one used, which might be nil."
 242   (if (xwidget-at 1)
 243       (xwidget-at 1)
 244     (xwidget-webkit-last-session)))
 245
 246 (defun xwidget-adjust-size-to-content (xw)
 247   "Resize XW to content."
 248   ;;xwidgets doesnt support widgets that have their own opinions about size well yet
 249   ;;this reads the desired size and resizes the emacs allocated area accordingly
 250   (let ((size (xwidget-size-request xw)))
 251     (xwidget-resize xw (car size) (cadr size))))
 252
 253
 254 (defvar xwidget-webkit-activeelement-js"
 255 function findactiveelement(doc){
 256 //alert(doc.activeElement.value);
 257    if(doc.activeElement.value != undefined){
 258       return doc.activeElement;
 259    }else{
 260         // recurse over the child documents:
 261         var frames = doc.getElementsByTagName('frame');
 262         for (var i = 0; i < frames.length; i++)
 263         {
 264                 var d = frames[i].contentDocument;
 265                  var rv = findactiveelement(d);
 266                  if(rv != undefined){
 267                     return rv;
 268                  }
 269         }
 270     }
 271     return undefined;
 272 };
 273
 274
 275 "
 276
 277   "javascript that finds the active element."
 278   ;;yes its ugly. because:
 279   ;; - there is aparently no way to find the active frame other than recursion
 280   ;; - the js "for each" construct missbehaved on the "frames" collection
 281   ;; - a window with no frameset still has frames.length == 1, but frames[0].document.activeElement != document.activeElement
 282   ;;TODO the activeelement type needs to be examined, for iframe, etc. sucks.
 283   )
 284
 285 (defun xwidget-webkit-insert-string (xw str)
 286   "Insert string in the active field in the webkit.
 287 Argument XW webkit.
 288 Argument STR string."
 289   ;;read out the string in the field first and provide for edit
 290   (interactive
 291    (let* ((xww (xwidget-webkit-current-session))
 292
 293           (field-value
 294            (progn
 295              (xwidget-webkit-execute-script xww xwidget-webkit-activeelement-js)
 296              (xwidget-webkit-execute-script-rv xww "findactiveelement(document).value;" )))
 297           (field-type (xwidget-webkit-execute-script-rv xww "findactiveelement(document).type;" )))
 298      (list xww
 299            (cond ((equal "text" field-type)
 300                   (read-string "text:" field-value))
 301                  ((equal "password" field-type)
 302                   (read-passwd "password:" nil field-value))
 303                  ((equal "textarea" field-type)
 304                   (xwidget-webkit-begin-edit-textarea xww field-value))))))
 305   (xwidget-webkit-execute-script xw (format "findactiveelement(document).value='%s'" str)))
 306
 307
 308 (defun xwidget-webkit-begin-edit-textarea (xw text)
 309   (switch-to-buffer
 310    (generate-new-buffer "textarea"))
 311
 312   (set (make-local-variable 'xwbl) xw)
 313   (insert text))
 314
 315 (defun xwidget-webkit-end-edit-textarea ()
 316   (interactive)
 317   (goto-char (point-min))
 318   (while (search-forward "\n" nil t)
 319     (replace-match "\\n" nil t))
 320   (xwidget-webkit-execute-script xwbl (format "findactiveelement(document).value='%s'"
 321                                               (buffer-substring (point-min) (point-max))))
 322   ;;TODO convert linefeed to \n
 323   )
 324
 325 (defun xwidget-webkit-show-named-element (xw element-name)
 326   "make named-element show. for instance an anchor."
 327   (interactive (list (xwidget-webkit-current-session) (read-string "element name:")))
 328   ;;TODO
 329   ;; since an xwidget is an Emacs object, it is not trivial to do some things that are taken for granted in a normal browser.
 330   ;; scrolling an anchor/named-element into view is one such thing.
 331   ;; this function implements a proof-of-concept for this.
 332   ;; problems remaining:
 333   ;; - the selected window is scrolled but this is not always correct
 334   ;; - this needs to be interfaced into browse-url somehow. the tricky part is that we need to do this in two steps:
 335   ;;   A: load the base url, wait for load signal to arrive B: navigate to the anchor when the base url is finished rendering
 336
 337   ;;this part figures out the Y coordinate of the element
 338   (let ((y (string-to-number
 339             (xwidget-webkit-execute-script-rv xw
 340                                               (format "document.getElementsByName('%s')[0].getBoundingClientRect().top" element-name)
 341                                               0))))
 342     ;;now we need to tell emacs to scroll the element into view.
 343     (xwidget-log "scroll: %d" y)
 344     (set-window-vscroll (selected-window) y t)))
 345
 346 (defun xwidget-webkit-show-id-element (xw element-id)
 347   "make id-element show. for instance an anchor."
 348   (interactive (list (xwidget-webkit-current-session)
 349                      (read-string "element id:")))
 350   (let ((y (string-to-number
 351             (xwidget-webkit-execute-script-rv xw
 352                                               (format "document.getElementById('%s').getBoundingClientRect().top" element-id)
 353                                               0))))
 354     ;;now we need to tell emacs to scroll the element into view.
 355     (xwidget-log "scroll: %d" y)
 356     (set-window-vscroll (selected-window) y t)))
 357
 358 (defun xwidget-webkit-show-id-or-named-element (xw element-id)
 359   "make id-element show. for instance an anchor."
 360   (interactive (list (xwidget-webkit-current-session)
 361                      (read-string "element id:")))
 362   (let* ((y1 (string-to-number
 363               (xwidget-webkit-execute-script-rv xw
 364                                                 (format "document.getElementsByName('%s')[0].getBoundingClientRect().top" element-id)
 365                                                 "0")))
 366          (y2 (string-to-number
 367               (xwidget-webkit-execute-script-rv xw
 368                                                 (format "document.getElementById('%s').getBoundingClientRect().top" element-id)
 369                                                 "0")))
 370          (y3 (max y1 y2)))
 371     ;;now we need to tell emacs to scroll the element into view.
 372     (xwidget-log "scroll: %d" y3)
 373     (set-window-vscroll (selected-window) y3 t)))
 374
 375 (defun xwidget-webkit-adjust-size-to-content ()
 376   "Adjust webkit to content size."
 377   (interactive)
 378   (xwidget-adjust-size-to-content (xwidget-webkit-current-session)))
 379
 380 (defun xwidget-webkit-adjust-size-dispatch ()
 381   "Adjust size according to mode."
 382   (interactive)
 383   (if (eq xwidget-webkit-scroll-behaviour 'native)
 384       (xwidget-webkit-adjust-size-to-window)
 385     (xwidget-webkit-adjust-size-to-content)))
 386
 387 (defun xwidget-webkit-adjust-size-to-window ()
 388   "Adjust webkit to window."
 389   (interactive)
 390     (xwidget-resize ( xwidget-webkit-current-session) (window-pixel-width) (window-pixel-height)))
 391
 392 (defun xwidget-webkit-adjust-size (w h)
 393   "Manualy set webkit size.
 394 Argument W width.
 395 Argument H height."
 396   ;;TODO shouldnt be tied to the webkit xwidget
 397   (interactive "nWidth:\nnHeight:\n")
 398   (xwidget-resize ( xwidget-webkit-current-session) w h))
 399
 400 (defun xwidget-webkit-fit-width ()
 401   "Adjust width of webkit to window width."
 402   (interactive)
 403   (xwidget-webkit-adjust-size (- (caddr (window-inside-pixel-edges))
 404                                  (car (window-inside-pixel-edges)))
 405                               1000))
 406
 407 (defun xwidget-webkit-new-session (url)
 408   "Create a new webkit session buffer with URL."
 409   (let*
 410       ((bufname (generate-new-buffer-name "*xwidget-webkit*"))
 411        xw)
 412     (setq xwidget-webkit-last-session-buffer (switch-to-buffer (get-buffer-create bufname)))
 413     (insert " ")
 414     (setq xw (xwidget-insert 1 'webkit-osr  bufname 1000 1000))
 415     (xwidget-put xw 'callback 'xwidget-webkit-callback)
 416     (xwidget-webkit-mode)
 417     (xwidget-webkit-goto-uri (xwidget-webkit-last-session) url )))
 418
 419
 420 (defun xwidget-webkit-goto-url (url)
 421   "Goto URL."
 422   (if (xwidget-webkit-current-session)
 423       (progn
 424         (xwidget-webkit-goto-uri (xwidget-webkit-current-session) url))
 425     (xwidget-webkit-new-session url)))
 426
 427 (defun xwidget-webkit-back ()
 428   "Back in history."
 429   (interactive)
 430   (xwidget-webkit-execute-script (xwidget-webkit-current-session)  "history.go(-1);"))
 431
 432 (defun xwidget-webkit-reload ()
 433   "Reload current url."
 434   (interactive)
 435   (xwidget-webkit-execute-script (xwidget-webkit-current-session)  "history.go(0);"))
 436
 437 (defun xwidget-webkit-current-url ()
 438   "Get the webkit url.  place it on kill ring."
 439   (interactive)
 440   (let* ((rv (xwidget-webkit-execute-script-rv (xwidget-webkit-current-session)
 441                                                "document.URL"))
 442          (url (kill-new (or rv ""))))
 443     (message "url: %s" url )
 444     url))
 445
 446 (defun xwidget-webkit-execute-script-rv (xw script &optional default)
 447   "Same as 'xwidget-webkit-execute-script' but but with return value.
 448 XW is the webkit instance.  SCRIPT is the script to execut.
 449 DEFAULT is the defaultreturn value."
 450   ;;notice the fugly "title" hack. it is needed because the webkit api
 451   ;;doesnt support returning values.  this is a wrapper for the title
 452   ;;hack so its easy to remove should webkit someday support JS return
 453   ;;values or we find some other way to access the DOM
 454
 455   ;;reset webkit title. fugly.
 456   (let* ((emptytag "titlecantbewhitespaceohthehorror")
 457          title)
 458     (xwidget-webkit-execute-script xw (format "document.title=\"%s\";" (or default emptytag)))
 459     (xwidget-webkit-execute-script xw (format "document.title=%s;" script))
 460     (setq title (xwidget-webkit-get-title xw))
 461     (if (equal emptytag title)
 462         (setq title ""))
 463     (unless title
 464       (setq title default))
 465     title))
 466
 467
 468 ;; use declare here?
 469 ;; (declare-function xwidget-resize-internal "xwidget.c" )
 470 ;; check-declare-function?
 471
 472 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 473 (defun xwidget-webkit-get-selection ()
 474   "Get the webkit selection."
 475   (xwidget-webkit-execute-script-rv (xwidget-webkit-current-session)
 476                                     "window.getSelection().toString();"))
 477
 478 (defun xwidget-webkit-copy-selection-as-kill ()
 479   "Get the webkit selection and put it on the kill ring."
 480   (interactive)
 481   (kill-new (xwidget-webkit-get-selection)))
 482
 483
 484 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 485 ;; xwidget plist management(similar to the process plist functions)
 486
 487 (defun xwidget-get (xwidget propname)
 488   "Return the value of XWIDGET' PROPNAME property.
 489 This is the last value stored with `(xwidget-put XWIDGET PROPNAME VALUE)'."
 490   (plist-get (xwidget-plist xwidget) propname))
 491
 492 (defun xwidget-put (xwidget propname value)
 493   "Change XWIDGET' PROPNAME property to VALUE.
 494 It can be retrieved with `(xwidget-get XWIDGET PROPNAME)'."
 495   (set-xwidget-plist xwidget
 496                      (plist-put (xwidget-plist xwidget) propname value)))
 497
 498
 499 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 500
 501 (defun xwidget-delete-zombies ()
 502   "Helper for xwidget-cleanup."
 503   (dolist (xwidget-view xwidget-view-list)
 504     (when (or (not (window-live-p (xwidget-view-window xwidget-view)))
 505               (not (memq (xwidget-view-model xwidget-view)
 506                          xwidget-list)))
 507       (delete-xwidget-view xwidget-view))))
 508
 509 (defun xwidget-cleanup ()
 510   "Delete zombie xwidgets."
 511   ;;its still pretty easy to trigger bugs with xwidgets.
 512   ;;this function tries to implement a workaround
 513   (interactive)
 514   ;; kill xviews who should have been deleted but stull linger
 515   (xwidget-delete-zombies)
 516   ;; redraw display otherwise ghost of zombies  will remain to haunt the screen
 517   (redraw-display))
 518
 519 ;;this is a workaround because I cant find the right place to put it in C
 520 ;;seems to work well in practice though
 521 ;;(add-hook 'window-configuration-change-hook 'xwidget-cleanup)
 522 (add-hook 'window-configuration-change-hook 'xwidget-delete-zombies)
 523
 524 (defun xwidget-kill-buffer-query-function ()
 525   "Ask beforek illing a buffer that has xwidgets."
 526   (let ((xwidgets (get-buffer-xwidgets (current-buffer))))
 527     (or (not xwidgets)
 528         (not (memq t (mapcar 'xwidget-query-on-exit-flag xwidgets)))
 529         (yes-or-no-p
 530          (format "Buffer %S has xwidgets; kill it? "
 531                  (buffer-name (current-buffer)))))))
 532
 533 (add-hook 'kill-buffer-query-functions 'xwidget-kill-buffer-query-function)
 534
 535 ;;killflash is sadly not reliable yet.
 536 (defvar xwidget-webkit-kill-flash-oneshot t)
 537 (defun xwidget-webkit-kill-flash ()
 538   "Disable the flash plugin in webkit.
 539 This is needed because Flash is non-free and doesnt work reliably
 540 on 64 bit systems and offscreen rendering.  Sadly not reliable
 541 yet, so deinstall Flash instead for now."
 542   ;;you can only call this once or webkit crashes and takes emacs with it. odd.
 543   (unless xwidget-webkit-kill-flash-oneshot
 544     (xwidget-disable-plugin-for-mime "application/x-shockwave-flash")
 545     (setq xwidget-webkit-kill-flash-oneshot t)))
 546
 547 (xwidget-webkit-kill-flash)
 548
 549 (defun report-xwidget-bug ()
 550   "Report a bug in GNU Emacs about the XWidget branch.
 551 Prompts for bug subject.  Leaves you in a mail buffer."
 552   (interactive)
 553   (let ((reporter-prompt-for-summary-p t))
 554     (reporter-submit-bug-report "submit@debbugs.gnu.org" nil nil nil nil
 555                                 (format "Package: emacs-xwidgets
 556
 557 Please describee xactly whata ctions triggered the bug, and the
 558 precise symptoms of the bug.  If you can, give a recipe starting
 559 from `emacs -Q'.
 560
 561 If Emacs crashed, and you have the Emacs process in the gdb
 562 deubbger, please include the output from the following gdb
 563 commands:
 564     `bt full' and `xbacktrace'.
 565
 566 For information about debugging Emacs, please read the file
 567 %s" (expand-file-name "DEBUG" data-directory)))))
 568
 569 (provide 'xwidget)
 570
 571 ;;; xwidget.el ends here