View location of Ingress intel map in google map.

ingress-google-map.el

(require 's)

(defun ingress-location-to-google-map-location (loc)
  (let ((match (s-match (concat "https://www.ingress.com/intel\\?"
                                "ll=\\([^,]+\\),\\([^,]+\\)&"
                                "z=\\([0-9]+\\)") loc)))
    (and match
         (let* ((lat (nth 1 match))
                (lng (nth 2 match))
                (zoom (nth 3 match)))
           (concat "https://www.google.co.jp/maps/@" lat "," lng "," zoom "z")))))

(defun ingress-view-in-google-map (loc)
  "View location of intel map in google map."
  (interactive "sYank a link of intel map: ")
  (let ((url (ingress-location-to-google-map-location loc)))
    (if url
        (browse-url url)
      (message "Not a valid location."))))