Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

allow channel and action page names to vary by site (for facebook apps)

  • Loading branch information...
commit df4f241d30d88cf7962bba5387e4228e74167846 1 parent 557b47c
@vii authored
Showing with 4 additions and 3 deletions.
  1. +1 −1  src/webapp/actions.lisp
  2. +3 −2 src/webapp/page.lisp
View
2  src/webapp/actions.lisp
@@ -16,7 +16,7 @@
,@body))
(defmacro page-action-link (&body body)
- `(page-link (action-page-name (current-site)) :.id. (register-action-id (page-action-lambda ,@body))))
+ `(page-link (site-action-page-name (current-site)) :.id. (register-action-id (page-action-lambda ,@body))))
(defmacro html-replace-link (text &body body)
(with-unique-names (body-func)
View
5 src/webapp/page.lisp
@@ -65,10 +65,11 @@
(defun ,normal-func-name (&key ,@defaulting-lambda-list)
,@body)
(defpage-lambda
- ,path #',normal-func-name :defaulting-lambda-list ,defaulting-lambda-list ,@(loop for (key value) on body by #'cddr while (keywordp key) collect key collect value))
+ ,path #',normal-func-name :defaulting-lambda-list ,defaulting-lambda-list
+ ,@(loop for (key value) on body by #'cddr while (keywordp key) collect key collect value))
',normal-func-name)))
-(defmacro page-link (&optional (page '+action-page-name+) &rest args)
+(defmacro page-link (&optional (page '(site-action-page-name (current-site))) &rest args)
`(sendbuf-to-byte-vector
(with-sendbuf (sendbuf)
,page
Please sign in to comment.
Something went wrong with that request. Please try again.