#!/bin/sh
#|
exec csi -s "$0" "$@"
|#

(use srfi-1
     lowdown)

(define (text->html)
  (write-string
   (string-append
    "<pre>\n"
    (read-string)
    "\n</pre>\n")))


(define args
  (command-line-arguments))

(define filename (car args))
(define extension
  (let ((l (string-split filename ".")))
    (and (pair? (cdr l)) (cadr l))))

(cond
 ((equal? extension "md")
  (markdown->html (current-input-port)))
 (else
  (text->html)))