(dolist (sect sects)
(display-sections sect dl-data))
(when giturl
- (if gitweb
- (lml-format "<h2>Git Repository</h2><tt><a href=\"~A\">~A</a></tt>" gitweb giturl)
- (lml-format "<h2>Git Repository</h2><tt>~A</tt>" giturl)))
+ (lml-format "<h2>Git Repository</h2><tt>~A</tt>" giturl)
+ (when gitweb
+ (lml-format " [<a href=\"~A\">Browse</a>]" gitweb)))
(display-footer dl-data)))
(defun std-dl-page (pkg-name pkg-base dl-base dl-url &optional giturl gitweb)