;; To use, add the following line to your .emacs:
;; (autoload 'browse-url-osso-browser "browse-url-osso-browser" "" t)
;; (setq browse-url-browser-function 'browse-url-osso-browser)

;;browser_dbuscmd.sh open_new_window www.yahoo.com
;;browser_dbuscmd.sh load_url www.yahoo.com
;;browser_dbuscmd.sh close_window
;;browser_dbuscmd.sh exit_browser

(defcustom browse-url-osso-browser-program "browser_dbuscmd.sh"
  "The name by which to invoke the osso web browser."
  :type 'string
  :group 'browse-url)

(defcustom browse-url-osso-browser-before-args nil
  "*A list of strings defining options for `browse-url-osso-browser-program'."
  :type '(repeat (string :tag "Argument"))
  :group 'browse-url)

(defcustom browse-url-osso-browser-args '("open_new_window")
  "*A list of strings defining options for `browse-url-osso-browser-program'."
  :type '(repeat (string :tag "Argument"))
  :group 'browse-url)

(defun browse-url-osso-browser (url &optional new-window)
  "Ask the Osso-Browser WWW browser to load URL.
Default to the URL around or before point."
  (interactive (browse-url-interactive-arg "Osso-Browser URL: "))
  (message "Sending URL to Osso-Browser...")
  (apply #'start-process `(,(concat "Osso-Browser" url) nil
			   ,@browse-url-osso-browser-before-args
			   ,browse-url-osso-browser-program
			   ,@browse-url-osso-browser-args ,url))
  (message "Sending URL to Osso-Browser...done"))