X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=downloads.lisp;h=bac84bb967207cebff3faabb25a06f40aefccea7;hb=refs%2Ftags%2Fv1.6.5;hp=21473d15f8366b8bd585b2efc342ca9b58670975;hpb=9c5e52ab7792dc7e57d02141c797d95b31b23039;p=lml2.git
diff --git a/downloads.lisp b/downloads.lisp
index 21473d1..bac84bb 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,20 +132,24 @@
(display-header pkg-name dl-url)
(dolist (sect sects)
(display-sections sect dl-data))
+ (when giturl
+ (lml-format "
Git Repository
~A" giturl)
+ (when gitweb
+ (lml-format " [Browse]" gitweb)))
(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)
("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))
@@ -162,7 +166,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)