X-Git-Url: http://git.kpe.io/?p=lml2.git;a=blobdiff_plain;f=downloads.lisp;h=6509feea2391f630b54d2d69d032d1d7d969badc;hp=99445ef39ae9c305da39a7c78d3267911b516095;hb=f6fab048b73e0b2d1deb2c3c93703fdacf4b5e22;hpb=3f79f112db5657614a19231437f75126ef7f01f3
diff --git a/downloads.lisp b/downloads.lisp
index 99445ef..6509fee 100644
--- a/downloads.lisp
+++ b/downloads.lisp
@@ -66,7 +66,7 @@
(defun display-footer (dl-data)
(when (dl-data-signed dl-data)
(lml-princ "
GPG Public Key
")
- (lml-princ "Use this key to verify file signtatures"))
+ (lml-princ "Use this key to verify file signtatures"))
(lml-princ ""))
(defun print-sect-title (title dl-data)
@@ -133,9 +133,9 @@
(dolist (sect sects)
(display-sections sect dl-data))
(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 dl-data)))
(defun std-dl-page (pkg-name pkg-base dl-base dl-url &optional giturl gitweb)
@@ -165,14 +165,24 @@
(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)))
(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)))
+ ,@(when (or (directory tgz-path) (directory zip-path))
+ `(("Source Code"
+ (("Unix (.tar.gz)" ,tgz-path)
+ ("Windows (.zip)" ,zip-path)))))
("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))))))))