Metaxal

#lang racket/base

(require quickscript
         quickscript/utils
         racket/class
         racket/list
         framework)

;;; Author: Laurent Orseau https://github.com/Metaxal
;;; License: [Apache License, Version 2.0](http://www.apache.org/licenses/LICENSE-2.0) or

Metaxal

#lang racket/base

(require quickscript
         racket/class
         racket/gui/base
         string-constants)

;;; 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.

Metaxal

#lang racket/base

(require quickscript-extra/scripts/provided-by ; exports the `provided-by` script, which is also a function
         racket/class)

;; Create a mock class to avoid creating an actior editor% from the framework.
(define my-ed%
  (class object%
    (init-field string)
    (define/public (get-start-position) 0)

Metaxal

#lang racket/base
(require (for-syntax racket/base
                     syntax/parse))

(provide with)

(define-syntax (with stx)
  (syntax-parse stx
    [(with it last)
     #'last]

Metaxal

#lang racket/base

(require quickscript
         quickscript/utils
         racket/class
         drracket/tool-lib
         racket/gui/base)

(script-help-string "move the current (saved) tab to a new DrRacket window")

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.


;;; Transforms a s-exp into another.
;;; Tries to keep most of the original indentation, parenthesis shapes,
;;; but it will remove all comments within the s-exp.
;;; New lines can be added with #\n.

Metaxal

#lang racket/base

;;; Author: Laurent Orseau https://github.com/Metaxal
;;; 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 racket/dict
         racket/class
         (submod text-block/symbols codes)
         quickscript

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)

(script-help-string "Remove trailing spaces in the current tab")

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