(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)
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" ,linux-path)
("Linux .deb Packages" ,deb-path)