Hello. I've just created a hack to for org-mode (and org-remember) to receive and parse URLs from OpenStreetMap and Google Maps. The function extracts longitude and latitude and sets GEO property of the node to geo: URI.
The code is easily extendable. To add support for other maps one has to add a branch in the `cond' in stl/org-dnd-set-geo-property, that sets `lon' and `lat' appropriately *and* a regular expression in stl/org-dnd-add-geo-support. To see it running just drag and drop the URL that contains geographic coordinates from the address bar (or the "Link" link in the upper right corner of the Google Maps window) over a node to get its GEO property set. --8<---------------cut here---------------start------------->8--- (defun stl/org-dnd-set-geo-property (uri action) (save-excursion (let (lat lon) (cond ; OpenStreetMap ((string-match "^http://\\(?:www\.\\)openstreetmap\.org/" uri) (dolist (p (split-string (cadr (split-string uri "\?")) "&" )) (cond ((string-match "lat=\\(-?[.0-9]+\\)" p) (setq lat (match-string 1 p))) ((string-match "lon=\\(-?[.0-9]+\\)" p) (setq lon (match-string 1 p)))))) ; Google Maps ((string-match "^http://maps\.google\.com/.*ll=\\(-?[.0-9]+\\),\\(-?[.0-9]+\\)" uri) (setq lat (match-string 1 uri) lon (match-string 2 uri)))) (unless (outline-previous-heading) (search-forward-regexp org-outline-regexp)) (org-set-property "GEO" (concat "geo:" lat "," lon))))) (defun stl/org-dnd-add-geo-support () (org-set-local 'dnd-protocol-alist (append '(("^http://\\(?:\\(?:www\.\\)?openstreetmap\.org\\|maps\.google\.com\\)". stl/org-dnd-set-geo-property)) dnd-protocol-alist))) (add-hook 'org-mode-hook 'stl/org-dnd-add-geo-support) (add-hook 'org-remember-mode-hook 'stl/org-dnd-add-geo-support) --8<---------------cut here---------------end--------------->8--- -- Miłego dnia, Łukasz Stelmach _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode