change display of gitweb link

[lml.git] / downloads.lisp

diff --git a/downloads.lisp b/downloads.lisp
index 1005086716212078df37f04b997567b7d30187be..62e70dfab4b9ce54bc7c9bbfc3f6739f0eef1e54 100644 (file)
--- a/downloads.lisp
+++ b/downloads.lisp
@@ -118,7 +118,7 @@
               (decf *section-indent*))
           (display-one-section title value))))))
 
-(defun display-page (pkg-name pkg-base dl-base dl-url sects)
+(defun display-page (pkg-name pkg-base dl-base dl-url giturl gitweb sects)
   (let ((*section-indent* 3)
         (*dl-base* dl-base)
         (*dl-url* dl-url)
@@ -126,20 +126,24 @@
         (*signed* nil))
     (display-header pkg-name dl-url)
     (map nil #'display-sections sects)
+    (when 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)
+(defun std-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))
           (doc-path (make-pathname :defaults base :type "pdf" :name :wild)))
-      (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)
                         ("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))
@@ -156,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)