change display of gitweb link

[lml2.git] / downloads.lisp

diff --git a/downloads.lisp b/downloads.lisp
index 99445ef39ae9c305da39a7c78d3267911b516095..bac84bb967207cebff3faabb25a06f40aefccea7 100644 (file)
--- a/downloads.lisp
+++ b/downloads.lisp
@@ -133,9 +133,9 @@
     (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 "&nbsp;&nbsp;[<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)