lament/utils.scm

(module utils (render-markdown replace-extension)
  (import
    scheme
    lowdown
    (chicken port)
    (chicken string))

  (define (replace-extension s old new)
    (string-append (string-chomp s old) new))

  (define (render-markdown content)
    (with-output-to-string (lambda () (markdown->html content)))))