config-host

            config-database

            config-repositories

            config-base-git-url

            config-index-title

            config-intro

            set-parameters-from-config!))

(define-record-type <config>

  config?

  (port         config-port)

  (host         config-host)

  (database     config-database)

  (repositories config-repositories)

  (base-git-url config-base-git-url)

  (index-title  config-index-title)

  (intro        config-intro)

(define-module (gitile handler)

  #:use-module (fibers web server)

  #:use-module (git)

  #:use-module (gitile config)

  #:use-module (gitile pages)

  #:use-module (gitile repo)

                     (list)))

  (match config

     (lambda (request body)

       (pk 'request request)

       (pk 'body (if body (utf8->string body) body))

(use-modules (ice-9 match)

             (fibers web server)

             (gitile config)

             (gitile handler))

                          ('host host)

                          ('database database)

                          ('repositories repositories)

                          ('base-git-url git-base-url)

                          ('index-title index-title)

                          ('intro intro)

                          ('footer footer))

                              git-base-url index-title intro footer)))))

           (_ (format #t "Usage: ~a -c config-file~%" (car args))

              (exit)))))

    (set-parameters-from-config! config)

    (run-server (gitile-handler config) #:port (config-port config))))