X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=downloads.lisp;h=241dc666ea475dbf3e8ec7caf3bde7ea21a19ab6;hb=2eab8c677bfe8183f3e1e5bef25d30376873e18c;hp=1005086716212078df37f04b997567b7d30187be;hpb=5da5fb17e3c3e1c3a2fa289666e0f50dc3b223c4;p=lml.git
diff --git a/downloads.lisp b/downloads.lisp
index 1005086..241dc66 100644
--- 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
+ (if gitweb
+ (lml-format "
Git Repository
~A" gitweb giturl)
+ (lml-format "Git Repository
~A" giturl)))
(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)