suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

...

Browse Source 
original commit: 32ddc78faab067bc376d7eab60d4aa75dafb364a
This commit is contained in:
John Clements 2003-10-06 17:22:52 +00:00
parent e5b2471236
commit 99d76649aa
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/framework/private/keymap.ss
View File

@ -309,6 +309,18 @@
(send edit set-position selection-start)
(send edit insert open-brace))
(send edit end-edit-sequence)))]
[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))]
[collapse-variable-space
;; As per emacs: collapse tabs & spaces around the point,
@ -906,6 +918,7 @@
(add "insert-{}-pair" (make-insert-brace-pair "{" "}"))
(add "insert-\"\"-pair" (make-insert-brace-pair "\"" "\""))
(add "insert-||-pair" (make-insert-brace-pair "|" "|"))
(add "insert-lambda-template" insert-lambda-template)
(add "toggle-anchor" toggle-anchor)
(add "center-view-on-line" center-view-on-line)
@ -976,7 +989,8 @@
(map-meta "{" "insert-{}-pair")
(map-meta "\"" "insert-\"\"-pair")
(map-meta "|" "insert-||-pair")
(map-meta "s:l" "insert-lambda-template")
(map "c:p" "previous-line")
(map "up" "previous-line")
(map "s:c:p" "select-up")