Metaxal

#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)]))

Metaxal

#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

#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

#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

#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

#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

#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

Metaxal

#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

#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

#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)