View dragable-panels.rkt
#lang racket/gui | |
(require framework) | |
(define fr (new frame% [label "gui"] [width 500] [height 500])) | |
(define p (new panel:vertical-dragable% [parent fr])) | |
(define pt (new panel:horizontal-dragable% [parent p] [border 1] [style '(border)])) | |
(define pb (new panel:horizontal-dragable% [parent p] [border 1] [style '(border)])) | |
(define ptl (new panel% [parent pt] [border 1] [style '(border)])) | |
(define ptr (new panel% [parent pt] [border 1] [style '(border)])) |
View upcase.rkt
#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))) |
View count-words-trie.rkt
#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))) |
View fix-true-false.rkt
#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!)") |
View print-editor.rkt
#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") |
View save-and-run.rkt
#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") |
View url2script.rkt
#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 |
View workspaces.rkt
#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 |
View new-file-in-same-directory.rkt
#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 |
View open-multi.rkt
#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 | |
racket/string | |
racket/gui/base) |
NewerOlder