From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Thu, 6 Sep 2007 03:02:25 +0000 (-0600)
Subject: Add support for git repositories and gitweb
X-Git-Tag: v1.6.2~2
X-Git-Url: http://git.kpe.io/?p=lml2.git;a=commitdiff_plain;h=876eba0d95c4eb5923e43ecacaaafe0e7a0f62cc

Add support for git repositories and gitweb
---

diff --git a/downloads.lisp b/downloads.lisp
index 21473d1..3408a4f 100644
--- a/downloads.lisp
+++ b/downloads.lisp
@@ -123,7 +123,7 @@
               (decf (dl-data-indent dl-data)))
           (display-one-section title value dl-data))))))
 
-(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 ((dl-data (make-dl-data :indent 3
                                :base dl-base
                                :url dl-url
@@ -132,14 +132,18 @@
     (display-header pkg-name dl-url)
     (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)))
     (display-footer dl-data)))
 
-(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)