Laurent Orseau Metaxal
Metaxal
/ upcase.rkt
Last active
March 22, 2021 14:56
A quickscript to change the selection to upcase
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #lang racket/base | |
| (require quickscript) | |
| ;; Returns a replacement string for the selected string `selection` | |
| ;; ("" if no text is selected), or `#f` to leave the selection as is. | |
| (define-script upcase | |
| #:label "upcase" | |
| (λ (selection) | |
| (string-upcase selection))) |
Metaxal
/ count-words-trie.rkt
Last active
March 19, 2021 14:14
The count-words problem using a discrimination tree with assocs and switching to hash when too many elements
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #lang racket/base | |
| (require racket/dict) | |
| ;;; License: [Apache License, Version 2.0](http://www.apache.org/licenses/LICENSE-2.0) or | |
| ;;; [MIT license](http://opensource.org/licenses/MIT) at your option. | |
| (define N-PAIRS-MAX 20) | |
| (define int-downcase (- (char->integer #\a) (char->integer #\A))) |
Metaxal
/ fix-true-false.rkt
Last active
March 3, 2021 14:48
Replaces all occurrences of #t and #f with #true and #false in the selected text (quickscript)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #lang racket/base | |
| ;;; License: [Apache License, Version 2.0](http://www.apache.org/licenses/LICENSE-2.0) or | |
| ;;; [MIT license](http://opensource.org/licenses/MIT) at your option. | |
| (require quickscript | |
| racket/class) | |
| (script-help-string | |
| "Replaces all occurrences of #t and #f with #true and #false in the selected text (warning: in strings too!)") |
Metaxal
/ print-editor.rkt
Created
February 11, 2021 22:47
Prints the contents of the current editor (quickscript)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #lang racket/base | |
| ;; License: [Apache License, Version 2.0](http://www.apache.org/licenses/LICENSE-2.0) or | |
| ;; [MIT license](http://opensource.org/licenses/MIT) at your option. | |
| (require quickscript | |
| racket/class) | |
| (script-help-string "Prints the contents of the current editor") |
Metaxal
/ save-and-run.rkt
Last active
February 6, 2021 10:11
Save current file and execute it (quickscript)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #lang racket/base | |
| (require quickscript | |
| racket/class) | |
| ;;; License: [Apache License, Version 2.0](http://www.apache.org/licenses/LICENSE-2.0) or | |
| ;;; [MIT license](http://opensource.org/licenses/MIT) at your option. | |
| (script-help-string "Save file an execute") |
Metaxal
/ url2script.rkt
Last active
October 29, 2021 09:32
(OBSOLETE: now part of quickscript-extra) Fetches a quickscript at a given url and adds it to the library
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #lang racket/base | |
| ;;; License: [Apache License, Version 2.0](http://www.apache.org/licenses/LICENSE-2.0) or | |
| ;;; [MIT license](http://opensource.org/licenses/MIT) at your option. | |
| (require quickscript | |
| quickscript/base | |
| racket/class | |
| racket/file | |
| racket/match |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #lang racket/base | |
| ;;; License: [Apache License, Version 2.0](http://www.apache.org/licenses/LICENSE-2.0) or | |
| ;;; [MIT license](http://opensource.org/licenses/MIT) at your option. | |
| ;;; See also: https://pkgs.racket-lang.org/package/drracket-restore-workspace | |
| (require quickscript | |
| racket/class | |
| racket/match |
Metaxal
/ new-file-in-same-directory.rkt
Last active
May 23, 2021 05:11
A quickscript to create a new file in the same directory as the current file and opens it in DrRacket
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #lang racket/base | |
| ;;; License: [Apache License, Version 2.0](http://www.apache.org/licenses/LICENSE-2.0) or | |
| ;;; [MIT license](http://opensource.org/licenses/MIT) at your option. | |
| (require quickscript | |
| racket/string | |
| racket/file | |
| racket/path | |
| racket/gui/base |
Metaxal
/ open-multi.rkt
Last active
October 31, 2021 13:19
Quickscript to open multiple files at once
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #lang racket/base | |
| ;;; License: [Apache License, Version 2.0](http://www.apache.org/licenses/LICENSE-2.0) or | |
| ;;; [MIT license](http://opensource.org/licenses/MIT) at your option. | |
| (require quickscript | |
| quickscript/utils | |
| racket/class | |
| racket/string | |
| racket/gui/base) |
Metaxal
/ easy-wrapping.rkt
Last active
December 29, 2020 16:46
Helpers to define wrappable functions and wrappers (proof of concept)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #lang racket | |
| (require syntax/parse/define | |
| (for-syntax racket/syntax | |
| racket/base)) | |
| ;;; License: [Apache License, Version 2.0](http://www.apache.org/licenses/LICENSE-2.0) or | |
| ;;; [MIT license](http://opensource.org/licenses/MIT) at your option. | |
| (define no-value (gensym)) |