Changed Chaton home directory to http://chaton.practical-scheme.net.

shirok · Nov 8, 2011 · 00154e2 · 00154e2
1 parent b0f3d29
commit 00154e2
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 7 deletions.
diff --git a/README b/README
@@ -123,7 +123,7 @@ Directory structure:
     $HTDOCSDIR/var/status.{js,scm}  The comet server periodically dumps
                  the room status into these files.  You can poll these files
                  to find out the current status of the room.
-                 See http://practical-scheme.net/chaton/doc?Retrieving%20Room%20Status
+                 See http://chaton.practical-scheme.net/doc?Retrieving%20Room%20Status
                  for the details.
 
 Build a chat room:

diff --git a/chaton-browser b/chaton-browser
@@ -54,14 +54,14 @@
           :id "right-pane"
           (html:div :class "chaton-logo"
                     "Built on "
-                    (html:a :href "http://practical-scheme.net/chaton/"
+                    (html:a :href "http://chaton.practical-scheme.net/"
                             "Chaton"))
           (html:div :class "room-links"
                     (html:a :href "@@httpd-url@@@@url-path@@search.html" "Search")
                     " | "
                     (html:a :href "@@httpd-url@@@@url-path@@badge.html" "Badge")
                     " | "
-                    (html:a :href "http://practical-scheme.net/chaton/doc/Tools" "Tools"))
+                    (html:a :href "http://chaton.practical-scheme.net/doc/Tools" "Tools"))
           (monthly-navigate y m d))
          (html:div
           :id "left-pane"

diff --git a/chaton-entry b/chaton-entry
@@ -14,7 +14,7 @@
   (export entry-main))
 (select-module chaton.entry)
 
-(define-constant +chaton-url+ "http://practical-scheme.net/chaton/")
+(define-constant +chaton-url+ "http://chaton.practical-scheme.net/")
 (define-constant +viewer+  "@@httpd-url@@:@@comet-port@@/")
 (define-constant +credential+ "@@server-data-dir@@auth")
 
@@ -65,7 +65,7 @@
      (html:div :class "room-links"
       (html:a :href "@@httpd-url@@@@url-path@@search.html" "Search")
       " | "(html:a :href "@@httpd-url@@@@url-path@@badge.html" "Badge")
-      " | "(html:a :href "http://practical-scheme.net/chaton/doc/Tools" "Tools"))
+      " | "(html:a :href "http://chaton.practical-scheme.net/doc/Tools" "Tools"))
      )
     ;; Left pane --------------
     (html:div :id "left-pane"

diff --git a/search.html b/search.html
@@ -29,14 +29,14 @@ <h1 id="room-title">
 
 <div id="right-pane">
   <div class="chaton-logo">
-    Built on <a href="http://practical-scheme.net/chaton/">Chaton</a>
+    Built on <a href="http://chaton.practical-scheme.net/">Chaton</a>
   </div>
   <div class="room-description">
 @@room-description@@
   </div>
   <div class="room-links">
     <a href="@@httpd-url@@@@url-path@@badge.html">Badge</a> |
-    <a href="http://practical-scheme.net/chaton/doc/Tools">Tools</a>
+    <a href="http://chaton.practical-scheme.net/doc/Tools">Tools</a>
   </div>
 </div>