projects
/
lml.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
d69fd69
)
add giturl/gitweb support for full-dl-page
author
Kevin Rosenberg
<kevin@rosenberg.net>
Thu, 6 Sep 2007 03:47:27 +0000
(21:47 -0600)
committer
Kevin Rosenberg
<kevin@rosenberg.net>
Thu, 6 Sep 2007 03:47:27 +0000
(21:47 -0600)
downloads.lisp
patch
|
blob
|
history
diff --git
a/downloads.lisp
b/downloads.lisp
index 7bd77bc4656b275c38de66391da31c6e1ad950c7..241dc666ea475dbf3e8ec7caf3bde7ea21a19ab6 100644
(file)
--- a/
downloads.lisp
+++ b/
downloads.lisp
@@
-143,7
+143,7
@@
(("Unix (.tar.gz)" ,tgz-path)
("Windows (.zip)" ,zip-path))))))))
(("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))
(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)))
(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)
`(("Manual" ,doc-path)
("Source Code"
(("Unix (.tar.gz)" ,tgz-path)