This package was debianized by Kevin M. Rosenberg <kmr@debian.org>
in July 2003.
-It was downloaded from http://wol.b9.com/
+It was downloaded from http://wol.kpe.io/
Upstream Author: Kevin Rosenberg <kevin@rosenberg.net>
Debian Maintainer: Kevin M. Rosenberg <kmr@debian.org>
(gen-std-footer ,site ,plist ,command))))))
-(defun ml-head (title-str &optional (css "http://b9.com/main.css") altcss)
+(defun ml-head (title-str &optional (css "http://kpe.io/main.css") altcss)
(html
(:head
((:link :rel "stylesheet" :href css :type "text/css"))
(html
((:link :rel "stylesheet" :type "text/css"
:href (if (eq altcss t)
- "http://b9.com/umls.css" altcss)))))
+ "http://kpe.io/umls.css" altcss)))))
(when title-str
(html (:title (lml-write-string title-str)))))))
(:xml
(dtd-prologue format)
(lml-format "<?xml-stylesheet type=\"text/css\" href=\"~A\" ?>~%"
- (aif css it "http://b9.com/umlsxml.css"))
+ (aif css it "http://kpe.io/umlsxml.css"))
(lml-write-string "<pagedata xmlns:xlink=\"http://www.w3.org/1999/xlink\" xmlns:html=\"http://www.w3.org/TR/REC-html40\">")
(lml-write-char #\Newline)
(when title
(:html
(dtd-prologue format)
(lml-write-string "<html>")
- (ml-head title (aif css it "http://b9.com/main.css") altcss)
+ (ml-head title (aif css it "http://kpe.io/main.css") altcss)
(lml-write-string "<body>"))
((:xhtml :xhtml11 :xhtml10-strict :xhtml10-transitional
:xhtml10-frameset)
(dtd-prologue format)
(lml-write-string
"<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\">")
- (ml-head title (aif css it "http://b9.com/main.css") altcss)
+ (ml-head title (aif css it "http://kpe.io/main.css") altcss)
(lml-write-string "<body>"))
(:text
;; nothing to do