Previews the markdown text in DrRacket definitions editor in a web browser

preview-markdown-script.rkt

#lang racket/base

(require racket/gui/base
         racket/class
         racket/path
         net/sendurl
         markdown
         quickscript)

(define-script render-markdown
  #:label "Preview Markdown"
  #:help-string "Preview current markdown file in a web browser"
  #:output-to message-box
  (λ (selection #:definitions defs)
    (define md-xexprs
      (parse-markdown (send defs get-text)))
    (send-url/contents (xexpr->string `(html
                                        (head [title "Markdown Preview"])
                                        (body ,@md-xexprs))))
    #f))