- (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)))))
|