"-"))))

  (define (name->project project)

    (make-project project (call-with-repo project get-name)

                  (call-with-repo project get-description)))

  (define (projects)

    (define (projects-aux dir)

      (let ((opened-dir (opendir dir)))

        (let loop ((res '()) (repo (readdir opened-dir)))

          (cond

             (closedir opened-dir)

             res)

            ((file-exists? (string-append dir "/" repo "/git-daemon-export-ok"))

             (loop

               (cons

                 (name->project

       (let-values (((project-name path) (find-project-component request)))

         (match (cons project-name path)

           (("" . ())

            (show (index-page (projects) base-git-url index-title intro footer)))

           (("" . args)

            (repo-404 "Project not found" ""

                      "-"))

           ((project-name)