Initial tags support

Julien LepillerSun Sep 27 23:34:36+0200 2020

a4e644c

Initial tags support

gitile/handler.scm

9797 
         ((project-name "commit" ref)
9898 
          (show (style not-yet-page project-name ref)))
9999 
         ((project-name "tags")
100-
          (show (style not-yet-page project-name "-")))
100+
          (show (style (project-tags project-name (get-repo project-name))
101+
		       project-name "-")))
101102 
	 (_ (not-found request)))))))

gitile/pages.scm

2828 
            project-file-raw
2929 
            project-files
3030 
            project-index
31-
            project-commits))
31+
            project-commits
32+
	    project-tags))
3233 
3334 
(define not-yet-page
3435 
  `((p "Not yet available, sorry :/")))
…
179180 
                       res))
180181 
               (list "")
181182 
               (reverse (cdr (reverse path)))))))))
183+
184+
(define (project-tags repository-name repo)
185+
  (let ((tags (get-tags repo)))
186+
    (if (null? tags)
187+
	`((p "This project has no tags yet."))
188+
	`((p "There are tags, but we don't know how to show them yet.")))))