(library (project-name http main)
  (export
    main-action)
  (import
    (sph)
    (sph alist)
    (sph list)
    (sph web app)
    (sph web app client)
    (sph web app http))

  (define (main-action request id)
    (respond-html request
      (alist-q title "test title"
        ; include the pre-processed css file for the bundles default
        css
        (client-static (swa-http-request-swa-env request) (q project-name) (q css) (q (default))))
      (q project-name)
      ; use the template file layout and insert example content
      (list "layout" (list "example content")))))