register action pages to different places

whalliburton · May 8, 2010 · ae99abe · ae99abe
1 parent a54216d
commit ae99abe
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/webapp/actions.lisp b/src/webapp/actions.lisp
@@ -123,8 +123,8 @@
   (with-http-params ((.channels. nil :conv channel-string-to-states))
     (channel-respond-body .channels. :always-body t)))
 
-(defun register-action-page ()
-  (defpage-lambda (site-action-page-name (current-site)) 
+(defun register-action-page (&optional (url (site-action-page-name (current-site))))
+  (defpage-lambda url 
       #'action-respond-body :defaulting-lambda-list (.id. .javascript.)))
 
 

diff --git a/src/webapp/channel.lisp b/src/webapp/channel.lisp
@@ -104,8 +104,8 @@
 		    (when original-hangup-handler
 		      (apply original-hangup-handler args)))))))))))
 
-(defun register-channel-page ()
-  (dispatcher-register-path (site-dispatcher (current-site)) (site-channel-page-name (current-site)) #'channel-respond-page))
+(defun register-channel-page (&optional (url (site-action-page-name (current-site))))
+  (dispatcher-register-path url (site-channel-page-name (current-site)) #'channel-respond-page))
 
 (my-defun channel 'object-to-ml ()
   (js-html-script (channel (unquote (force-string (my id))) (unquote (my state)))))