Fix base-url where it was hard-coded

Julien LepillerFri Nov 12 02:55:11+0100 2021

debbb48

Fix base-url where it was hard-coded

gitile/handler.scm

100100 
                        (('*TOP* ('d content ...))
101101 
                         content))
102102 
                    (div (@ (class "instructions"))
103-
                         (code "git clone https://" ,base-git-url "/"
103+
                         (code "git clone " ,base-git-url "/"
104104 
                               ,(project-slug project)))))
105105 
               projects)))
106106 
       (footer ,@footer))))

…

185185 
         ((project-name)
186186 
          (call-with-repo project-name
187187 
            (lambda (repo)
188-
              (show (style (project-index project-name repo)
188+
              (show (style (project-index base-git-url project-name repo)
189189 
                           project-name "-" footer)))))
190190 
         ((project-name "tree" ref path ...)
191191 
          (call-with-repo project-name

gitile/pages.scm

161161 
        (proc out (config->pointer config) (string->pointer name))
162162 
        (pointer->string out)))))
163163 
164-
(define (project-index repository-name repo)
164+
(define (project-index base-url repository-name repo)
165165 
  `((h1 ,repository-name)
166166 
    (p ,(get-synopsis repo))
167167 
    (p (@ (class "clone"))
168-
       (code "git clone https://git.lepiller.eu/git/" ,repository-name))
168+
       (code "git clone " base-url "/" ,repository-name))
169169 
    ,(project-files repository-name repo)))
170170 
171171 
(define (author-image author)