3 Expeditor API
procedure
(expeditor-open history) → (or/c eestate? #f)
history : (listof string?)
The history argument provides the
procedure
(expeditor-close ee) → (listof string?)
ee : estate?
procedure
(expeditor-read ee [#:prompt prompt-str]) → any/c
ee : estate? prompt-str : string? = ">"
Changed in version 1.1 of package expeditor-lib: Added the #:prompt argument.
procedure
(call-with-expeditor proc [ #:prompt prompt-str]) → any proc : ((-> any/c) -> any) prompt-str : string? = ">"
Expeditor history is initialized from current-expeditor-history on open, and the value of current-expeditor-history is updated with the new history on close.
Changed in version 1.1 of package expeditor-lib: Added the #:prompt argument.
procedure
The current-expeditor-reader parameter is first set to use current-read-interaction.
then, expeditor-configure checks for information via current-interaction-info, currently checking for the following keys:
'color-lexer —
Sets current-expeditor-lexer. If 'color-lexer is not provided and syntax-color/racket-lexer is available, then the Racket lexer is installed. 'drracket:submit-predicate —
Sets current-expeditor-ready-checker. 'drracket:paren-matches —
Sets current-expeditor-parentheses. 'drracket:grouping-position —
Sets current-expeditor-grouper. 'drracket:indentation and 'drracket:range-indentation —
Sets current-expeditor-indenter based on a combination of both values.
The 'expeditor-color-enabled preference (via get-preference) determines current-expeditor-color-enabled.
Finally, if the file named by (expeditor-init-file-path), it is dynamic-required.
procedure
If (find-system-path 'init-dir) produces a different result than (find-system-path 'home-dir), then the result is (build-path (find-system-path 'init-dir) "expeditor.rkt"). Otherwise, the result is (build-path (find-system-path 'home-dir) ".expeditor.rkt").
parameter
(current-expeditor-reader) → (input-port? . -> . any/c)
(current-expeditor-reader proc) → void? proc : (input-port? . -> . any/c)
parameter
(current-expeditor-post-skipper) → (input-port? . -> . any/c)
(current-expeditor-post-skipper proc) → void? proc : (input-port? . -> . any/c)
parameter
(current-expeditor-lexer proc) → void? proc : procedure?
parameter
(current-expeditor-ready-checker proc) → void? proc : procedure?
parameter
→ (listof (list/c symbol? symbol?)) (current-expeditor-parentheses pairs) → void? pairs : (listof (list/c symbol? symbol?))
parameter
(current-expeditor-grouper proc) → void? proc : procedure?
parameter
(current-expeditor-indenter proc) → void? proc : procedure?
parameter
(current-expeditor-color-enabled on?) → void? on? : boolean?
parameter
(current-expeditor-history strs) → void? strs : (listof string?)
parameter
(current-expeditor-history-whitespace-trim-enabled) → boolean?
(current-expeditor-history-whitespace-trim-enabled on?) → void? on? : any/c
procedure
(expeditor-error-display s) → void?
s : string?