X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=downloads.lisp;h=62e70dfab4b9ce54bc7c9bbfc3f6739f0eef1e54;hb=210683d2ee50a200409ee0c9fd7443178935d983;hp=7bd77bc4656b275c38de66391da31c6e1ad950c7;hpb=ffe053ab486b6e503513cf57f5321c61bd38b9c2;p=lml.git
diff --git a/downloads.lisp b/downloads.lisp
index 7bd77bc..62e70df 100644
--- a/downloads.lisp
+++ b/downloads.lisp
@@ -127,9 +127,9 @@
(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)))
+ (lml-format "Git Repository
~A" giturl)
+ (when gitweb
+ (lml-format " [Browse]" 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)