;;; xwidget.el --- api functions for xwidgets ;; see xwidget.c for more api functions ;;; Commentary: ;; (require 'xwidget-internal) ;;TODO model after make-text-button instead! ;;; Code: (defun xwidget-insert (pos type title width height) "Insert an xwidget at POS, given ID, TYPE, TITLE WIDTH and HEIGHT. Return ID see xwidget.c for types suitable for TYPE." (goto-char pos) (let ((id (make-xwidget (point) (point) type title width height nil))) (put-text-property (point) (+ 1 (point)) 'display (list 'xwidget ':xwidget id)) id)) (defun xwidget-at (pos) "Return xwidget at POS." ;;TODO this function is a bit tedious because the C layer isnt well protected yet and ;;xwidgetp aparently doesnt work yet (let* ((disp (get-text-property pos 'display)) (xw (car (cdr (cdr disp))))) ;;(if ( xwidgetp xw) xw nil) (if (equal 'xwidget (car disp)) xw) )) (defun xwidget-socket-handler () "Create plug for socket. TODO." (interactive) (message "socket handler xwidget %S" last-input-event) (let* ((xwidget-event-type (nth 2 last-input-event)) (xwidget-id (nth 1 last-input-event))) (cond ( (eq xwidget-event-type 'xembed-ready) (let* ((xembed-id (nth 3 last-input-event))) (message "xembed ready event: %S xw-id:%s" xembed-id xwidget-id) ;;TODO fetch process data from the xwidget. create it, store process info ;;will start emacs/uzbl in a xembed socket when its ready ;; (cond ;; ((eq 3 xwidget-id) ;; (start-process "xembed" "*xembed*" (format "%ssrc/emacs" default-directory) "-q" "--parent-id" (number-to-string xembed-id) ) ) ;; ((eq 5 xwidget-id) ;; (start-process "xembed2" "*xembed2*" "uzbl-core" "-s" (number-to-string xembed-id) "http://www.fsf.org" ) ) ))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; webkit support (require 'browse-url) (require 'image-mode);;for some image-mode alike functinoality (require 'cl);;for flet ;;;###autoload (defun xwidget-webkit-browse-url (url &optional new-session) "Ask xwidget-webkit to browse URL. NEW-SESSION specifies whether to create a new xwidget-webkit session. URL defaults to the string looking like a url around the cursor position." (interactive (progn (require 'browse-url) (browse-url-interactive-arg "xwidget-webkit URL: "))) (when (stringp url) (if new-session (xwidget-webkit-new-session url) (xwidget-webkit-goto-url url)))) ;;shims for adapting image mode code to the webkit browser window (defun xwidget-image-display-size (spec &optional pixels frame) "Image code adaptor. SPEC PIXELS FRAME like the corresponding `image-mode' fn." (let ((xwi (xwidget-info (xwidget-at 1)))) (cons (aref xwi 2) (aref xwi 3)))) (defmacro xwidget-image-mode-navigation-adaptor (fn) "Image code adaptor. `image-mode' FN is called." `(lambda () (interactive) (flet ((image-display-size (spec) (xwidget-image-display-size spec))) (funcall ,fn )))) (defmacro xwidget-image-mode-navigation-adaptor-p (fn) "Image code adaptor. `image-mode' FN is called with interactive arg." `(lambda (n) (interactive "p") (flet ((image-display-size (spec) (xwidget-image-display-size spec))) (funcall ,fn n)))) ;;todo. ;; - check that the webkit support is compiled in (defvar xwidget-webkit-mode-map (let ((map (make-sparse-keymap))) (define-key map "g" 'xwidget-webkit-browse-url) (define-key map "a" 'xwidget-webkit-adjust-size-to-content) (define-key map "b" 'xwidget-webkit-back ) (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 [xwidget-event] 'xwidget-webkit-event-handler);;TODO needs to go into a higher level handler ;;similar to image mode bindings ;;TODO theres something wrong with the macro (define-key map (kbd "SPC") (xwidget-image-mode-navigation-adaptor 'image-scroll-up)) (define-key map (kbd "DEL") (xwidget-image-mode-navigation-adaptor 'image-scroll-down)) (define-key map [remap scroll-up] (xwidget-image-mode-navigation-adaptor 'image-scroll-up)) (define-key map [remap scroll-up-command] (xwidget-image-mode-navigation-adaptor 'image-scroll-up)) (define-key map [remap scroll-down] (xwidget-image-mode-navigation-adaptor 'image-scroll-down)) (define-key map [remap scroll-down-command] (xwidget-image-mode-navigation-adaptor 'image-scroll-down)) (define-key map [remap forward-char] (xwidget-image-mode-navigation-adaptor-p 'image-forward-hscroll)) (define-key map [remap backward-char] (xwidget-image-mode-navigation-adaptor-p 'image-backward-hscroll)) (define-key map [remap right-char] (xwidget-image-mode-navigation-adaptor-p 'image-forward-hscroll)) (define-key map [remap left-char] (xwidget-image-mode-navigation-adaptor-p 'image-backward-hscroll)) (define-key map [remap previous-line] (xwidget-image-mode-navigation-adaptor-p 'image-previous-line)) (define-key map [remap next-line] (xwidget-image-mode-navigation-adaptor-p 'image-next-line)) (define-key map [remap move-beginning-of-line] (xwidget-image-mode-navigation-adaptor 'image-bol)) (define-key map [remap move-end-of-line] (xwidget-image-mode-navigation-adaptor 'image-eol)) (define-key map [remap beginning-of-buffer] (xwidget-image-mode-navigation-adaptor 'image-bob)) (define-key map [remap end-of-buffer] (xwidget-image-mode-navigation-adaptor 'image-eob)) map) "Keymap for `xwidget-webkit-mode'.") (defun xwidget-webkit-event-handler () "Receive webkit event." (interactive) (message "stuff happened to webkit xwidget %S" last-input-event) (let* ((xwidget-event-type (nth 2 last-input-event)) (xwidget (nth 1 last-input-event))) (cond ((eq xwidget-event-type 'document-load-finished) (message "webkit loaded %s" xwidget) (xwidget-webkit-adjust-size-to-content)) ))) (define-derived-mode xwidget-webkit-mode special-mode "xwidget-webkit" "xwidget webkit view mode" (setq buffer-read-only t) ;; Keep track of [vh]scroll when switching buffers (image-mode-setup-winprops) ) (defvar xwidget-webkit-last-session-buffer nil) (defun xwidget-webkit-last-session () "Last active webkit, or a new one." (if (buffer-live-p xwidget-webkit-last-session-buffer) (save-excursion (set-buffer xwidget-webkit-last-session-buffer) (xwidget-at 1)) nil)) (defun xwidget-webkit-current-session () "Either the webkit in the current buffer, or the last one used, which might be nil." (if (xwidget-at 1) (xwidget-at 1) (xwidget-webkit-last-session))) (defun xwidget-adjust-size-to-content (xw) "Resize XW to content." ;;xwidgets doesnt support widgets that have their own opinions about size well yet ;;this reads the desired size and resizes the emacs allocated area accordingly (let ((size (xwidget-size-request xw))) (xwidget-resize xw (car size) (cadr size)))) (defun xwidget-webkit-insert-string (xw str) "Insert string in the active field in the webkit. Argument XW webkit. Argument STR string." ;;TODO read out the string in the field first and provide for edit (interactive (let* ((xww (xwidget-webkit-current-session)) (field-value (progn (xwidget-webkit-execute-script xww "document.title=document.activeElement.value;") (xwidget-webkit-get-title xww)))) (list xww (read-string "string:" field-value)))) (xwidget-webkit-execute-script xw (format "document.activeElement.value='%s'" str))) (defun xwidget-webkit-adjust-size-to-content () "Adjust webkit to content size." (interactive) ( xwidget-adjust-size-to-content ( xwidget-webkit-current-session))) (defun xwidget-webkit-adjust-size (w h) "Manualy set webkit size. Argument W width. Argument H height." ;;TODO shouldnt be tied to the webkit xwidget (interactive "nWidth:\nnHeight:\n") ( xwidget-resize ( xwidget-webkit-current-session) w h)) (defun xwidget-webkit-new-session (url) "Create a new webkit session buffer with URL." (let* ((bufname (generate-new-buffer-name "*xwidget-webkit*")) ) (setq xwidget-webkit-last-session-buffer (switch-to-buffer (get-buffer-create bufname))) (insert " ") (xwidget-insert 1 'webkit-osr bufname 1000 1000) (xwidget-webkit-mode) (xwidget-webkit-goto-uri ( xwidget-webkit-last-session) url ))) (defun xwidget-webkit-goto-url (url) "Goto URL." (if ( xwidget-webkit-current-session) (progn (xwidget-webkit-goto-uri ( xwidget-webkit-current-session) url)) ( xwidget-webkit-new-session url))) (defun xwidget-webkit-back () "Back in history." (interactive) (xwidget-webkit-execute-script ( xwidget-webkit-current-session) "history.go(-1);")) (defun xwidget-webkit-reload () "Reload current url." (interactive) (xwidget-webkit-execute-script ( xwidget-webkit-current-session) "history.go(0);")) (defun xwidget-current-url () "Get the webkit url." ;;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))) ;; use declare here? ;; (declare-function xwidget-resize-internal "xwidget.c" ) ;; check-declare-function? ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun xwidget-cleanup () "Delete zombie xwidgets." ;;its still pretty easy to trigger bugs with xwidgets. ;;this function tries to implement a workaround (interactive) (xwidget-delete-zombies) ;;kill xviews who should have been deleted but stull linger (redraw-display);;redraw display otherwise ghost of zombies will remain to haunt the screen ) ;;this is a workaround because I cant find the right place to put it in C ;;seems to work well in practice though (add-hook 'window-configuration-change-hook 'xwidget-cleanup) ;;killflash is sadly not reliable yet. (defvar xwidget-webkit-kill-flash-oneshot t) (defun xwidget-webkit-kill-flash () "Disable the flash plugin in webkit. This is needed because Flash is non-free and doesnt work reliably on 64 bit systems and offscreen rendering. Sadly not reliable yet, so deinstall Flash instead for now." ;;you can only call this once or webkit crashes and takes emacs with it. odd. (unless xwidget-webkit-kill-flash-oneshot (xwidget-disable-plugin-for-mime "application/x-shockwave-flash") (setq xwidget-webkit-kill-flash-oneshot t))) (xwidget-webkit-kill-flash) (provide 'xwidget) (provide 'xwidget) ;;; xwidget.el ends here