lisp/emacs-parallel/parallel-xwidget.el

   1 ;;; parallel-xwidget.el ---
   2
   3 ;; Copyright (C) 2013 Grégoire Jadi
   4
   5 ;; Author: Grégoire Jadi <gregoire.jadi@gmail.com>
   6
   7 ;; This program is free software: you can redistribute it and/or
   8 ;; modify it under the terms of the GNU General Public License as
   9 ;; published by the Free Software Foundation, either version 3 of
  10 ;; the License, or (at your option) any later version.
  11
  12 ;; This program is distributed in the hope that it will be useful,
  13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 ;; GNU General Public License for more details.
  16
  17 ;; You should have received a copy of the GNU General Public License
  18 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  19
  20 ;;; Commentary:
  21
  22 ;;; Code:
  23
  24 (require 'parallel)
  25 (require 'browse-url)
  26
  27 (defgroup parallel-xwidget nil
  28   "Browse the web in another emacs instance with XWidget."
  29   :group 'emacs)
  30
  31 (defvar parallel-xwidget--task nil)
  32
  33 (defcustom parallel-xwidget-config nil
  34   "Parallel configuration."
  35   :type 'alist
  36   :group 'parallel-xwidget)
  37
  38 (defun parallel-xwidget--init ()
  39   (setq parallel-xwidget--task
  40         (parallel-start (lambda ()
  41                           (require 'xwidget))
  42                         :graphical t
  43                         :continue-when-executed t
  44                         :config parallel-xwidget-config)))
  45
  46 (defun parallel-xwidget-browse-url (url &optional new-session)
  47   "Browse URL in another Emacs instance."
  48   (interactive (browse-url-interactive-arg "xwidget-webkit URL: "))
  49   (unless (and parallel-xwidget--task
  50                (eq 'run (parallel-status parallel-xwidget--task)))
  51     (parallel-xwidget--init))
  52   (parallel-send parallel-xwidget--task
  53                  (lambda (url new-session)
  54                    (xwidget-webkit-browse-url url new-session))
  55                  (url-tidy url) new-session))
  56
  57 (provide 'parallel-xwidget)
  58
  59 ;;; parallel-xwidget.el ends here