Skip to content

Instantly share code, notes, and snippets.

@g000001

g000001/gist:13569

Created September 29, 2008 08:04
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save g000001/13569 to your computer and use it in GitHub Desktop.
Save g000001/13569 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
(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))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment