about.scm 486 B

123456789101112131415161718
  1. (library (handlers about)
  2. (export about-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 about)))
  9. (define about-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-about-template request request-body)))))