在emacs中使用google map api?!

當別人告訴你emacs 能做什麼什麼的時候，要淡定，這是emacsen固有的zhuangbility行爲。

 

所以當區區在slashdot上看到google-maps-el 時，作爲programmer，想到的只是仔細考察一下其實現過程：

It fully implements the Google Static Maps API and the Google Maps Geocoding API .

 

大約花了一下午，掌握了這兩個api的使用之後，我改寫了其中的一些函數：

;;;###autoload (defun jr-google-maps-geocode-location (location) (let* ((req (google-maps-geocode-request :address location)) (status (google-maps-geocode-request->status req))) (unless (eq status 'ok) (error (format "Unable to geocode %s: %s" location status))) (setq location (list (assoc 'formatted_address (google-maps-geocode-results->one-result (google-maps-geocode-request->results req))) (assoc 'location (cdr (assoc 'geometry (google-maps-geocode-results->one-result (google-maps-geocode-request->results req))))))))) ;;;###autoload (defun jr-google-maps (location &optional no-geocoding) "Run Google Maps on LOCATION. If NO-GEOCODING is t, then does not try to geocode the address and do not ask the user for a more precise location." (interactive (list (if (use-region-p) (buffer-substring-no-properties (region-beginning) (region-end)) (read-string "Location: ")))) (let* ((location (if no-geocoding location (jr-google-maps-geocode-location location))) (lat (cdr (assoc 'lat (assoc 'location location)))) (lng (cdr (assoc 'lng (assoc 'location location)))) ) (google-maps-static-show :markers `(((,(cdr (assoc 'formatted_address location))))) :zoom 14 :center (format "%f,%f" lat lng ) :lat lat :lng lng :format 'jpg))) (defun google-maps-static-up () "Move a Google map up." (interactive) (unless (and (plist-member google-maps-static-params :lat) (plist-member google-maps-static-params :lng) ) (error "No Current Lat&Lng")) (let* ((plist google-maps-static-params) (lat (plist-get plist :lat)) (lng (plist-get plist :lng)) (lvl (plist-get plist :zoom)) (new-lat (+ lat (offset-of-level lvl))) (new-center (format "%f,%f" new-lat lng ))) (plist-put plist :lat new-lat) (plist-put plist :center new-center) (apply 'google-maps-static-show plist)))

通過這兩個變更，就在emacs可以支持方向鍵移動交互查看google map了，當然，由於基於static api，速度不是非常理想。不過通過這個實驗，可以體驗到很多google api和emacs編程。

 

CSDN的博客完全放elisp代碼很不方便，如果有朋友對這個帶方向移動交互的代碼patch感興趣，可以留言聯繫，或者自己研究一下（more fun）。下面是一張運行效果圖:

 

國人也有高手跟進了，並且提供了中文資料 。

 

另外說一下的是，google-maps-el的作者真是個高手啊，他的rainbow-mode和awesome X管理器非常好用，猛擊 瞭解吧。