X-Git-Url: http://git.kpe.io/?p=lml.git;a=blobdiff_plain;f=downloads.lisp;h=2c1d2b2eaaf3872e14d28f1872fff83a049ff4bb;hp=7bd77bc4656b275c38de66391da31c6e1ad950c7;hb=HEAD;hpb=ffe053ab486b6e503513cf57f5321c61bd38b9c2

diff --git a/downloads.lisp b/downloads.lisp
index 7bd77bc..2c1d2b2 100644
--- a/downloads.lisp
+++ b/downloads.lisp
@@ -69,7 +69,7 @@
 (defun display-footer ()
   (when *signed*
     (lml-princ "<h3>GPG Public Key</h3>")
-    (lml-princ "Use this <a href=\"https://www.b9.com/kevin.gpg.asc\">key</a> to verify file signtatures"))
+    (lml-princ "Use this <a href=\"https://www.kpe.io/kevin.gpg.asc\">key</a> to verify file signtatures"))
   (lml-princ "</div>"))
 
 (defun print-sect-title (title)
@@ -127,9 +127,9 @@
     (display-header pkg-name dl-url)
     (map nil #'display-sections sects)
     (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)))
 
 (defun std-dl-page (pkg-name pkg-base dl-base dl-url &optional giturl gitweb)
@@ -143,7 +143,7 @@
                        (("Unix (.tar.gz)" ,tgz-path)
                         ("Windows (.zip)" ,zip-path))))))))
 
-(defun full-dl-page (pkg-name pkg-base dl-base dl-url)
+(defun full-dl-page (pkg-name pkg-base dl-base dl-url &optional giturl gitweb)
   (let ((base (parse-namestring dl-base)))
     (let ((tgz-path (make-pathname :defaults base :type "gz" :name :wild))
           (zip-path (make-pathname :defaults base :type "zip" :name :wild))
@@ -160,7 +160,7 @@
                      (make-pathname :directory '(:relative "win32")
                                     :type :wild :name :wild)
                      base)))
-      (display-page pkg-name pkg-base dl-base dl-url
+      (display-page pkg-name pkg-base dl-base dl-url giturl gitweb
                     `(("Manual" ,doc-path)
                       ("Source Code"
                        (("Unix (.tar.gz)" ,tgz-path)