便利emacs lisp

カーソル位置のシンボルをGoogle Codeで検索(lisp決め打ち)

(progn
  (defun gcode-lookup ()
    "カーソル位置のシンボルをGoogle Codeで検索(lisp決め打ち)"
    (interactive)
    (browse-url
     (format "http://www.google.com/codesearch?q=%s+lang:%s+file:\\.%s$&hl=ja&num=20"
             (thing-at-point 'symbol) "lisp" "lisp")))
  
  (define-key slime-mode-map [(control ?c) (control ?d) ?g] 'gcode-lookup))

Last modified : 2010/07/08 22:54:07 JST

Powerd by WiLiKi 0.6.1 on Gauche 0.9