Commit 1f80954a authored by Andy Stewart's avatar Andy Stewart
Browse files

Refactory code and add alias eaf-open-url.

parent 08ccaf2b

eaf.el

+8 −6
Original line number Diff line number Diff line
@@ -544,12 +544,14 @@ We need calcuate render allocation to make sure no black border around render co 
  (if (and (not (string-prefix-p "/" url))

           (not (string-prefix-p "~" url))

           (string-match "^\\(https?:\/\/\\)?[a-z0-9]+\\([\-\.]\\{1\\}[a-z0-9]+\\)*\.[a-z]\\{2,5\\}\\(:[0-9]{1,5}\\)?\\(\/.*\\)?$" url))

      (progn (setq app-name "browser")

             (unless (or (string-prefix-p "http://" url) (string-prefix-p "https://" url))

      (progn

        (unless (or (string-prefix-p "http://" url)

                    (string-prefix-p "https://" url))

          (setq url (concat "http://" url)))

        (eaf-open url "browser" arguments))

    (when (string= app-name "browser")

      (message (format "EAF: %s is an invalid URL." url)))))

    (message (format "EAF: %s is an invalid URL." url))))



(defalias 'eaf-open-url 'eaf-open-browser)



(defun eaf-open (url &optional app-name arguments)

  "Open an EAF application with URL, optional APP-NAME and ARGUMENTS."