3 Expeditor API
procedure
(expeditor-open history) β (or/c eestate? #f)
history : (listof string?)
The history argument provides the initial list of history entries, which is navigated by functions like ee-history-bwd. This history is updated as input is accepted during expeditor-read, and expeditor-close reports an updated history. The amount of preserved history is limited.
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
(expeditor-configure) β void?
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) β (listof string?)
(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?