Laurent Orseau <laurent dot orseauREMOVEME at gmail dot com>
Quickscript’s purpose is to make it easy to extend DrRacket with small Racket scripts that can be used in the definition (or interaction) window, or to graphically interact with the user.
Creating a new script is as easy as a click on a menu item. Each script is automatically added as an item to the Scripts menu, without needing to restart DrRacket. A keyboard shortcut can be assigned to a script (via the menu item). By default, a script takes as input the currently selected text, and outputs the replacement text. There is also direct access to some elements of DrRacket GUI for advanced scripting, like DrRacket’s frame and the definition or interaction editor.
You need to restart DrRacket. Now you should have a new item Scripts in the menu bar.
Click on the Scripts>Manage scripts>New script... menu item, and enter Reverse for the script name. This creates and opens the file reverse.rkt in the user’s scripts directory. Also, a new item automatically appears in the Scripts menu.
(define-script reverse #:label "Reverse" (λ(selection) (list->string (reverse (string->list selection)))))
Then go to a new tab, type some text, select it, and click on Scripts>Reverse, and voilà!
Quickscript adds a Scripts menu to the main DrRacket window. This menu has several items, followed by the list of scripts.
The New script item asks for a script name and creates a corresponding .rkt file in the user’s script directory, and opens it in DrRacket.
Each scripts is defined with define-script, which among other things adds an entry in DrRacket’s Scripts menu. A single script file can contain several calls to define-script.
(define-script a-complete-script ; Properties: #:label "Full script" #:help-string "A complete script showing all properties and arguments" #:menu-path ("Submenu" "Subsubmenu") #:shortcut #\a #:shortcut-prefix (ctl shift) #:output-to selection #:persistent #:os-types (unix macos windows) ; Procedure with its arguments: (λ(selection #:editor ed #:frame fr #:interactions ints #:file f) "Hello world!"))
Below we detail first the procedure and its arguments and then the script’s properties.
When clicking on a script label in the Scripts menu in DrRacket, its corresponding procedure is called. The procedure takes at least the selection argument, which is the string that is currently selected in the current editor. The procedure must returns either #f or a string?. If it returns #f, no change is applied to the current editor, but if it returns a string, then the current selection is replace with the return value.
The path to the current file of the definition window, or #f if there is no such file (i.e., unsaved editor).Example:
(define-script current-file-example #:label "Current file example" #:output-to message-box (λ(selection #:file f) (string-append "File: " (if f (path->string f) "no-file") "\nSelection: " selection)))
#:definitions : text%
#:interactions : text%
The text% editor of the current interaction window. Similar to #:definitions.
#:editor : text%
The text% current editor, either the definition or the interaction editor. Similar to #:definitions.
#:frame : drracket:unit:frame<%>
DrRacket’s frame. For advanced scripting.Example:
The properties are mere data and cannot contain expressions.
Most properties (#:label, #:shortcut, #:shortcut-prefix, #:help-string) are the same as for the menu-item% constructor. In particular, a keyboard shortcut can be assigned to an item.
If a property does not appear in the dictionary, it takes its default value.
Note that different scripts in different files can share the same submenus.
If selection, the output of the procedure replaces the selection in the current editor (definitions or interactions), or insert the output at the cursor if there is no selection. If new-tab, the return value is written in a new tab. If message-box, the return value (if a string) is displayed in a message-box. If clipboard, the return value (if a string) is copied to the clipboard. If #f, the return value is not used.
If they keyword #:persistent is not provided, each invocation of the script is done in a fresh namespace that is discarded when the procedure finishes.
But if #:persistent is provided, a fresh namespace is created only the first time it is invoked, and the same namespace is re-used for the subsequent invocations. Note that a single namespace is kept per file, so if different scripts in the same file are marked as persistent, they will all share the same namespace (and, thus, variables). Also note that a script marked as non-persistent will not share the same namespace as the other scripts of the same file marked as persistent.Consider the following script:
(define count 0) (define-script persistent-counter #:label "Persistent counter" #:persistent #:output-to message-box (λ(selection) (set! count (+ count 1)) (number->string count)))
If the script is persistent, the counter increases at each invocation of the script via the menu, whereas it always displays 1 if the script is not persistent.
Note: Persistent scripts can be "unloaded" by clicking on the Scripts>Manage scripts>Unload persistent scripts menu item. In the previous example, this will reset the counter.
This keyword must be followed by a list of supported os-types. Defaults to all types, i.e. (unix macos windows).
If changes are made to these properties, the Scripts menu will probably need to be reloaded by clicking on Scripts>Manage scripts>Reload scripts menu.
When the user creates a new script, the latter is placed into a sub-directory of (find-system-path 'pref-dir). A direct access to this folder is provided via the Scripts>Manage scripts>Open script... menu entry.
Additional directories to look for scripts can be added via the Scripts>Manage scripts>Library menu entry. When a directory is added to the library, all its .rkt files (non-recursively) are considered as scripts. Specific files can be excluded from the library.
To update Quickscript once already installed, either do so through the File>Package Manager menu in DrRacket, or run raco pkg update quickscript.
The user’s scripts will not be modified in the process.
Copyright (c) 2012 by Laurent Orseau <[email protected]>.
Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.