168
((3) 0 () 1 ((q lib "quickscript/main.rkt")) () (h ! (equal) ((c form c (c (? . 0) q define-hook)) q (1098 . 19)) ((c form c (c (? . 0) q define-script)) q (0 . 28))))
syntax
(define-script name
  property ...
  proc)
 
       property = #:label label-string
                | #:help-string string
                | #:menu-path (label-string ...)
                | #:shortcut char | symbol | #f
                | #:shortcut-prefix (shortcut-prefix ...)
                | #:persistent? #t | #f
                | #:output-to output-to
                | #:os-types (os-type ...)
                   
shortcut-prefix = alt | cmd | meta | ctl | shift | option
                   
      output-to = selection | new-tab | message-box | clipboard | #f
                   
        os-type = macosx | unix | windows
                   
           proc = (λ (selection-id
                      [#:editor editor-id]
                      [#:definitions definitions-id]
                      [#:interactions interactions-id]
                      [#:frame frame-id]
                      [#:file file-id])
                    body-expr ...
                    return-expr)
syntax
(define-hook name
  property ...
  proc)
 
property = #:help-string string
         | #:persistent? #t | #f
         | #:os-types (os-type ...)
            
 os-type = macosx | unix | windows
            
    proc = (λ ([#:editor editor-id]
               [#:definitions definitions-id]
               [#:interactions interactions-id]
               [#:frame frame-id]
               [#:file file-id]
               other-kwargs ...)
             body-expr ...
             return-expr)
