Prints the contents of the current editor (quickscript)

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

(define-script print-current-editor
  #:label "Print current editor"
  (λ (selection #:editor ed #:file f)
    (send ed print #t #t 'pdf)
    #f))

(module url2script-info racket/base
  (provide filename url)
  (define filename "print-editor.rkt")
  (define url "https://gist.github.com/Metaxal/0b65f604bb7c7f5a446e7ad22fff85a2"))