projects
/
lml2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update domain name to kpe.io
[lml2.git]
/
downloads.lisp
diff --git
a/downloads.lisp
b/downloads.lisp
index 3408a4fc428e654fb9bf34ef9be09f4e893d82a8..6509feea2391f630b54d2d69d032d1d7d969badc 100644
(file)
--- a/
downloads.lisp
+++ b/
downloads.lisp
@@
-66,7
+66,7
@@
(defun display-footer (dl-data)
(when (dl-data-signed dl-data)
(lml-princ "<h3>GPG Public Key</h3>")
(defun display-footer (dl-data)
(when (dl-data-signed dl-data)
(lml-princ "<h3>GPG Public Key</h3>")
- (lml-princ "Use this <a href=\"https://www.
b9.com
/kevin.gpg.asc\">key</a> to verify file signtatures"))
+ (lml-princ "Use this <a href=\"https://www.
kpe.io
/kevin.gpg.asc\">key</a> to verify file signtatures"))
(lml-princ "</div>"))
(defun print-sect-title (title dl-data)
(lml-princ "</div>"))
(defun print-sect-title (title dl-data)
@@
-133,9
+133,9
@@
(dolist (sect sects)
(display-sections sect dl-data))
(when giturl
(dolist (sect sects)
(display-sections sect dl-data))
(when giturl
- (
if gitweb
- (lml-format "<h2>Git Repository</h2><tt><a href=\"~A\">~A</a></tt>" gitweb giturl)
-
(lml-format "<h2>Git Repository</h2><tt>~A</tt>" giturl
)))
+ (
lml-format "<h2>Git Repository</h2><tt>~A</tt>" giturl)
+ (when gitweb
+
(lml-format " [<a href=\"~A\">Browse</a>]" gitweb
)))
(display-footer dl-data)))
(defun std-dl-page (pkg-name pkg-base dl-base dl-url &optional giturl gitweb)
(display-footer dl-data)))
(defun std-dl-page (pkg-name pkg-base dl-base dl-url &optional giturl gitweb)
@@
-149,7
+149,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))
@@
-165,14
+165,24
@@
(w32-path (merge-pathnames
(make-pathname :directory '(:relative "win32")
:type :wild :name :wild)
(w32-path (merge-pathnames
(make-pathname :directory '(:relative "win32")
:type :wild :name :wild)
+ base))
+ (mac-path (merge-pathnames
+ (make-pathname :directory '(:relative "mac")
+ :type :wild :name :wild)
+ base))
+ (linux-path (merge-pathnames
+ (make-pathname :directory '(:relative "linux")
+ :type :wild :name :wild)
base)))
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)
`(("Manual" ,doc-path)
- ("Source Code"
- (("Unix (.tar.gz)" ,tgz-path)
- ("Windows (.zip)" ,zip-path)))
+ ,@(when (or (directory tgz-path) (directory zip-path))
+ `(("Source Code"
+ (("Unix (.tar.gz)" ,tgz-path)
+ ("Windows (.zip)" ,zip-path)))))
("Binaries"
("Binaries"
- (("Linux Binaries"
- (("Debian Linux" ,deb-path)
- ("RedHat Linux" ,rpm-path)))
+ (("Linux Binaries" ,linux-path)
+ ("Linux .deb Packages" ,deb-path)
+ ("Linux .rpm Packages" ,rpm-path)
+ ("Mac Binaries" ,mac-path)
("Windows Binaries" ,w32-path))))))))
("Windows Binaries" ,w32-path))))))))