Renders the current markdown file as HTML in the browser (quickscript)

commonmark-render.rkt

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

;;; Requires `commonmark`

(require quickscript
         commonmark
         net/sendurl
         racket/file)

(script-help-string "Renders the current markdown file as HTML in the browser")

(define-script commonmark-render
  #:label "CommonMark render (opens browser)"
  (λ (selection #:file f)
    (send-url/contents (document->html (string->document (file->string f))))
    #f))

(module url2script-info racket/base
  (provide filename url)
  (define filename "commonmark-render.rkt")
  (define url "https://gist.github.com/Metaxal/4755dff3f47d76f616736d5abf83e810"))