(defun display-footer ()
(when *signed*
(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)
(display-header pkg-name dl-url)
(map nil #'display-sections sects)
(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)))
(defun std-dl-page (pkg-name pkg-base dl-base dl-url &optional giturl gitweb)