md-serve.rkt

#lang racket

(require markdown)
(require web-server/servlet)
(provide/contract (start (request? . -> . response?)))

(define (article-fnames path-to-articles)
  (directory-list (string->path path-to-articles)))

(define (article-paths path-to-articles article-fnames)
  (map (lambda (fname)
         (build-path path-to-articles fname))
       article-fnames))

(define (article-paths->xeprs article-paths)
  (map parse-markdown article-paths))

(define fnames
  (article-fnames "articles"))

(define articles
  (article-paths->xeprs (article-paths "articles" fnames)))

;(define html
;  (map (lambda (article)
;         (map display-xexpr article))
;        articles))

(define (start request)
  (response/xexpr
   `(html (head (title ,(path->string (first fnames))))
          (body ,(first articles)))))

(require web-server/servlet-env)
(serve/servlet start
               #:launch-browser? #t
               #:quit? #f
               #:listen-ip #f
               #:port 8000
               #:servlet-path
               "/servlets/gantty.rkt")