; $LastChangedDate: 2008-02-19 21:07:21 -0600 (Tue, 19 Feb 2008) $
; $LastChangedRevision: 1368 $
; $HeadURL: svn://osiris/scheme-grant/trunk/drscheme/mykeys.ss $
(module mykeys (lib "keybinding-lang.ss" "framework")  
  
  ; Use the word lambda rather than the lambda symbol
  ; Source code
  ;  Url: http://svn.plt-scheme.org/plt/tags/v372/collects/framework/private/keymap.ss
  ;  Lines: 375-385 (insert-lambda-template)   
  (define insert-lambda-template
    (lambda (edit event)
      (send edit begin-edit-sequence)
      (let ([selection-start (send edit get-start-position)])
        (send edit set-position (send edit get-end-position))
        (send edit insert ")")
        (send edit set-position selection-start)
        (send edit insert ") ")
        (send edit set-position selection-start)
        (send edit insert "(lambda ("))
      (send edit end-edit-sequence)))
  
  (keybinding "ESC;s:l" insert-lambda-template))