Add mac
authorKevin M. Rosenberg <kevin@rosenberg.net>
Mon, 19 Mar 2012 16:47:27 +0000 (10:47 -0600)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Mon, 19 Mar 2012 16:47:27 +0000 (10:47 -0600)
downloads.lisp

index bac84bb967207cebff3faabb25a06f40aefccea7..33d86150ab4fecccf63034f7c4d2351dd48f4f06 100644 (file)
           (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))))))))