common.rkt

#lang racket/base

(provide markdown-inline
         markdown-part
         ABOUT.md

         terminal

         select-monster-db-tag

         ref-doc
         gui-doc)

(require markdown
         markdown/scrib
         racket/match
         racket/runtime-path
         scribble/base
         scribble/decode)

(define-runtime-path ABOUT.md "../ABOUT.md")

(define (markdown-inline file)
  (xexprs->scribble-pres
    (strip-html-comments
      (with-input-from-file file read-markdown))))

(define (markdown-part file)
  (decode
    (xexprs->scribble-pres
      (strip-html-comments
        (with-input-from-file file read-markdown)))))

(define (strip-html-comments xexpr)
  (match xexpr
    [(cons '!HTML-COMMENT _) ""]
    [(list tag (list (list attr val) ...) x ...)
     (list* tag (map list attr val)
            (map strip-html-comments x))]
    [(list tag x ...) (list* tag (map strip-html-comments x))]
    [else xexpr]))

(define (terminal . args)
  (nested #:style 'code-inset
          (apply verbatim args)))

(define select-monster-db-tag "select-monster-db")

(define ref-doc '(lib "scribblings/reference/reference.scrbl"))
(define gui-doc '(lib "scribblings/gui/gui.scrbl"))