From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Fri, 11 Jul 2008 00:17:43 +0000 (-0600)
Subject: expand binary paths
X-Git-Tag: debian-1.6.6-2~3
X-Git-Url: http://git.kpe.io/?p=lml2.git;a=commitdiff_plain;h=de07e23d506452837023fdd31964866cffe96ef1;hp=90a1a084ef0d15eccc7c433d1a3787c9408b3f82

expand binary paths
---

diff --git a/downloads.lisp b/downloads.lisp
index bac84bb..e7b5897 100644
--- a/downloads.lisp
+++ b/downloads.lisp
@@ -165,6 +165,14 @@
           (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)
@@ -172,7 +180,8 @@
                        (("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))))))))