X-Git-Url: http://git.kpe.io/?p=wol.git;a=blobdiff_plain;f=genpage.lisp;fp=genpage.lisp;h=3da30068c9fbd9cf47be6827410577893b739cad;hp=451b04f5ad13aad5e97f91247e3c16fbe783d613;hb=2271934ed37d266a4ebf206549ca213158489f13;hpb=cf7030dd6955c663f1f1422ff61c3aac41e4b8fa diff --git a/genpage.lisp b/genpage.lisp index 451b04f..3da3006 100644 --- a/genpage.lisp +++ b/genpage.lisp @@ -93,7 +93,7 @@ (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")) @@ -101,7 +101,7 @@ (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))))))) @@ -110,7 +110,7 @@ (:xml (dtd-prologue format) (lml-format "~%" - (aif css it "http://b9.com/umlsxml.css")) + (aif css it "http://kpe.io/umlsxml.css")) (lml-write-string "") (lml-write-char #\Newline) (when title @@ -119,14 +119,14 @@ (:html (dtd-prologue format) (lml-write-string "") - (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 "")) ((:xhtml :xhtml11 :xhtml10-strict :xhtml10-transitional :xhtml10-frameset) (dtd-prologue format) (lml-write-string "") - (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 "")) (:text ;; nothing to do