Chrome.el

;;; Chrome.el --- Chrome.app                         -*- lexical-binding: t; -*-

;; Copyright (C) 2013-2018  Leo Liu

;; Author: Leo Liu <sdl.web@gmail.com>
;; Keywords: tools, processes

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;; Control Chrome from Emacs.

;;; Code:

(eval-when-compile (require 'osa))
(require 'cl-lib)

(defcustom Chrome-application-name "Google Chrome Canary"
  "Chrome application name."
  :type 'string
  :group 'osa)

(defun Chrome-tabs ()
  (split-string (read (osa "
tell application #{Chrome-application-name}
  set allTabs to {}
  repeat with w in windows
    repeat with x in tabs of w
      copy URL of x as text to end of allTabs
    end repeat
  end repeat
  set AppleScript's text item delimiters to {\"----\"}
  return allTabs as text
end tell"))
                "----"))

(defun Chrome-read-tab ()
  (completing-read "Chrome tab: " (Chrome-tabs) nil t))

;;;###autoload
(defun Chrome-reload (&optional tab)
  (interactive (and current-prefix-arg (list (Chrome-read-tab))))
  (osa "tell application #{Chrome-application-name}
  set nil to missing value
  if #{tab} is missing value then
    tell active tab of front window to reload
  else
    repeat with t in (first tab of windows whose URL is #{tab})
      if t is not missing value then
        tell t to reload
      end if
    end repeat
  end if
end tell"))

;;;###autoload
(defun Chrome-browse-url-helper (url prefix &optional background)
  (let ((url (substring-no-properties url))
        (prefix (substring-no-properties prefix))
        (background (if background "true" "false")))
    (osa "tell application #{Chrome-application-name}
  try
    set x to (first tab of front window whose URL starts with #{prefix})
  on error
    tell front window
      set x to make tab
    end tell
  end try
  if x is loading then
    tell x to stop
  end if
  set URL of x to #{url}
  if #{background} is \"false\" then
    tell x to activate
  end if
end tell")))

(provide 'Chrome)
;;; Chrome.el ends here