From 3f79f112db5657614a19231437f75126ef7f01f3 Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Wed, 5 Sep 2007 21:47:39 -0600 Subject: [PATCH] add giturl/gitweb support for full-dl-page --- downloads.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/downloads.lisp b/downloads.lisp index 3408a4f..99445ef 100644 --- a/downloads.lisp +++ b/downloads.lisp @@ -149,7 +149,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)) @@ -166,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) -- 2.34.1