index.scm 484 B

123456789101112131415161718
  1. (library (handlers index)
  2. (export index-handler)
  3. (import
  4. (except (rnrs base) let-values error)
  5. (only (guile) lambda* λ)
  6. (lib utils response-utils)
  7. (templates page-wrapper)
  8. (templates page home)))
  9. (define index-handler
  10. (lambda (request request-body)
  11. "A handler for a route."
  12. (create-html-response
  13. (page-wrapper-template request
  14. request-body
  15. (page-home-template request request-body)))))