A quickscript to rename the current tab file (like Save as but also deletes the original file)

rename-file.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 "Like 'Save as…' but also deletes the original file (unless cancelled)")

(define-script rename-file
  #:label "Rename file…"
  #:menu-path ("&Utils")
  (λ (selection #:file f #:definitions defs #:frame fr)
    (when (and f (send fr save-as 'same))
      (delete-file f))
    #f))

(module url2script-info racket/base
  (provide filename url)
  (define filename "rename-file.rkt")
  (define url "https://gist.github.com/Metaxal/31859c787804b4e40a1b2154172edcc3"))