Edit: insert-key-sequence doesn't exist on Emacs 22.3.1, is that a more recent addition?
Also, while not crucial, I prefer to add a my-X-mode-hook function and add things to that, rather than adding several lambdas to the mode hook - it's easier to modify them all after binding that way.
I tried doing exactly that, but used (interactive "kKey: "), with lowercase k, and it didn't work.
I much prefer formatting the keybindings like kbd uses, anyway - do you know offhand how to convert a keypress to that format w/out using C-h k?
This should do what the original commenter wanted:
(defun insert-keybinding (k)
"Insert code for a keybinding."
(interactive "kKey sequence: ")
(insert (concat "(global-set-key (kbd \""
(key-description k)
"\") 'function-name)")))