(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)
(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)
(("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))))))))