gitile

Fix startup issue

Julien LepillerWed Aug 25 14:15:31+0200 2021

d263330

Fix startup issue

gitile/handler.scm

     (make-project project (call-with-repo project get-name)
                   (call-with-repo project get-description)))
   (define projects
   (define (projects)
     (let ((dir (opendir (config-repositories config))))
       (let loop ((res '()) (repo (readdir dir)))
         (if (eof-object? repo)
        (pk 'body (if body (utf8->string body) body))
        (match (request-path-components request)
          (()
           (show (index-page projects base-git-url index-title intro footer)))
           (show (index-page (projects) base-git-url index-title intro footer)))
          ((project-name)
           (call-with-repo project-name
             (lambda (repo)