A quickscript to change the selection to upcase

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)))
    
 ;; This is a really cool script! Oh folly…

(module url2script-info racket/base
  (provide filename url)
  (define filename "upcase.rkt")
  (define url "https://gist.github.com/Metaxal/10392f64b3860599f4a4643ea3a6978d/raw"))