projects / wol.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: cf7030d)
Update domain name to kpe.io master
authorKevin M. Rosenberg <kevin@rosenberg.net>
Sat, 29 Aug 2015 06:16:33 +0000 (00:16 -0600)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Sat, 29 Aug 2015 06:16:33 +0000 (00:16 -0600)
debian/copyright patch | blob | history
genpage.lisp patch | blob | history
project.lisp patch | blob | history

diff --git a/debian/copyright b/debian/copyright
index 7bbc29eaf18ad459199d4e76377d60ffda904f29..a84ed919539c215a746f69598bc2f912bee5a568 100644 (file)
--- a/debian/copyright
+++ b/debian/copyright
@@ -1,7 +1,7 @@
 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>
diff --git a/genpage.lisp b/genpage.lisp
index 451b04f5ad13aad5e97f91247e3c16fbe783d613..3da30068c9fbd9cf47be6827410577893b739cad 100644 (file)
--- 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 "<?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
@@ -119,14 +119,14 @@
     (: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
diff --git a/project.lisp b/project.lisp
index fd2b4abf0cd5cad5b9147a38e1e33d67cf1592f0..75322739ecfbed95e28c13a974d8a9cd5daaabcb 100644 (file)
--- a/project.lisp
+++ b/project.lisp
@@ -159,7 +159,7 @@
                                                 (entity-project ent))
                                          :expires :never
                                          :secure nil
-                                         :domain ".b9.com"
+                                         :domain ".kpe.io"
                                          :value (websession-key
                                                  (websession-from-req req))
                                          :path "/"))
Common Lisp mid-level web services library