(define-module (web view markdown)
  #:use-module (json)
  #:use-module (ice-9 match)
  #:use-module (ice-9 format)
  #:use-module (ice-9 iconv)
  #:use-module (ice-9 receive)
  #:use-module (ice-9 string-fun)
  #:use-module (ice-9 textual-ports)
  #:use-module (sxml simple)
  #:use-module (web sxml)
  #:use-module (commonmark)
  #:export (markdown-file->sxml))

(define (markdown-file->sxml fn)
  (commonmark->sxml
   (call-with-input-file fn
       get-string-all)))