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

adjust check syntax keyboard shortcuts

Browse Source 
- make them use the same names as the context menu items
- add c:x;a to tack/untack arrows
This commit is contained in:
Robby Findler 2013-05-01 07:17:22 -05:00
parent 0c9f16a829
commit c9724446e6
4 changed files with 36 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
collects/drracket/private/syncheck/gui.rkt
View File

@ -702,7 +702,21 @@ If the namespace does not, they are colored the unbound color.
an-identifier-location-set))))
(define/public (syncheck:tack/untack-arrows text)
(when arrow-records
(define arrow-record (hash-ref arrow-records text #f))
(define (find-arrows pos)
(define vec-ents (interval-map-ref arrow-record pos null))
(define arrs (filter arrow? vec-ents))
(and (not (null? arrs)) arrs))
(define arrows
(or (find-arrows (send text get-start-position))
(and (= (send text get-start-position)
(send text get-end-position))
(find-arrows (- (send text get-start-position) 1)))))
(when arrows
(tack/untack-callback arrows))))
;; rename-callback : string
;; (and/c syncheck-text<%> definitions-text<%>)
;; (list source number number)
@ -2177,29 +2191,34 @@ If the namespace does not, they are colored the unbound color.
(when (is-a? defs syncheck-text<%>)
(send-msg defs obj))))))))))])
(send keymap add-function
"jump to binding occurrence"
(string-constant cs-jump-to-binding)
(cs-callback (λ (defs obj) (send defs syncheck:jump-to-binding-occurrence obj))))
(send keymap add-function
"jump to next bound occurrence"
(string-constant cs-jump-to-next-bound-occurrence)
(cs-callback (λ (defs obj) (send defs syncheck:jump-to-next-bound-occurrence obj))))
(send keymap add-function
"jump to previous bound occurrence"
(string-constant cs-jump-to-previous-bound-occurrence)
(cs-callback (λ (defs obj) (send defs syncheck:jump-to-next-bound-occurrence obj #t))))
(send keymap add-function
"jump to definition (in other file)"
(string-constant cs-jump-to-definition)
(cs-callback (λ (defs obj) (send defs syncheck:jump-to-definition obj))))
(send keymap add-function
"rename identifier"
(string-constant cs-rename-id)
(cs-callback (λ (defs obj)
(send defs syncheck:rename-identifier obj)))))
(send defs syncheck:rename-identifier obj))))
(send keymap add-function
(string-constant cs-tack/untack-arrow)
(cs-callback (λ (defs obj)
(send defs syncheck:tack/untack-arrows obj)))))
(send keymap map-function "f6" "check syntax")
(send keymap map-function "c:c;c:c" "check syntax")
(send keymap map-function "c:x;b" "jump to binding occurrence")
(send keymap map-function "c:x;n" "jump to next bound occurrence")
(send keymap map-function "c:x;p" "jump to previous bound occurrence")
(send keymap map-function "c:x;d" "jump to definition (in other file)")
(send keymap map-function "c:x;m" "rename identifier")
(send keymap map-function "c:x;b" (string-constant cs-jump-to-binding))
(send keymap map-function "c:x;n" (string-constant cs-jump-to-next-bound-occurrence))
(send keymap map-function "c:x;p" (string-constant cs-jump-to-previous-bound-occurrence))
(send keymap map-function "c:x;d" (string-constant cs-jump-to-definition))
(send keymap map-function "c:x;m" (string-constant cs-rename-id))
(send keymap map-function "c:x;a" (string-constant cs-tack/untack-arrow))
(send keymap add-function "show/hide blue boxes in upper-right corner"
(λ (txt evt)

3
collects/drracket/private/syncheck/intf.rkt
View File

@ -27,7 +27,8 @@
syncheck:jump-to-next-bound-occurrence
syncheck:jump-to-binding-occurrence
syncheck:jump-to-definition
syncheck:rename-identifier))
syncheck:rename-identifier
syncheck:tack/untack-arrows))
;; use this to communicate the frame being
;; syntax checked w/out having to add new

1
collects/drracket/private/syncheck/local-member-names.rkt
View File

@ -24,6 +24,7 @@
syncheck:jump-to-binding-occurrence
syncheck:jump-to-definition
syncheck:rename-identifier
syncheck:tack/untack-arrows
syncheck:clear-highlighting
syncheck:apply-style/remember

3
collects/string-constants/private/english-string-constants.rkt
View File

@ -193,8 +193,9 @@ please adhere to these guidelines:
(cs-background-color "Background Color")
(cs-tack/untack-arrow "Tack/Untack Arrow(s)")
(cs-jump-to-next-bound-occurrence "Jump to Next Bound Occurrence")
(cs-jump-to-previous-bound-occurrence "Jump to Previous Bound Occurrence")
(cs-jump-to-binding "Jump to Binding Occurrence")
(cs-jump-to-definition "Jump to Definition")
(cs-jump-to-definition "Jump to Definition (in Other File)")
(cs-open-defining-file "Open Defining File")
(cs-error-message "Error Message")
(cs-open-file "Open ~a")