gitile

Julien LepillerSun Mar 07 14:46:02+0100 2021

595b695

Fix tags

gitile/pages.scm

     (pk 'tags tags)
     (if (null? tags)
         `((p "This project has no tags yet."))
         (map (lambda (tag) (tag-box repository-name tag)) tags))))
         (map (lambda (tag) (tag-box repository-name repo tag)) tags))))
 (define (tag-box repository-name tag)
 (define (tag-box repository-name repo tag)
   (match tag
     (($ <mytag> name message target time)
      (let ((commit (get-commit repo target)))
              (p (img (@ (src ,(author-image (commit-author commit))))))
              (div (@ (class "tag"))
                   (p (@ (class "tag-name"))
                      (a (@ (href ,repository-name "/tree/" ,target)) ,name)p ,message)
                      (a (@ (href ,repository-name "/tree/" ,target)) ,name))
                   (p ,message)
                   (p (span (@ (class "author"))
                            (commit-author commit))
                            ,(signature-name (commit-author commit)))
                      (span (@ (class "date"))
                            ,(time->date-string time)))))))))