Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

the code for the page designs was out-dated w.r.t. feeds

  • Loading branch information...
commit c01f23ac2566caabc71abbcf94627b695caab33a 1 parent 8a4e464
Rob Hunter authored December 06, 2008

Showing 1 changed file with 6 additions and 6 deletions. Show diff stats Hide diff stats

  1. 12  page.scm
12  page.scm
@@ -112,16 +112,16 @@
112 112
                 #:css (css '())
113 113
                 #:js (js '())
114 114
                 #:title (title "a LeftParen web app")
115  
-                #:atom-feed (atom-feed '())
116  
-                #:rss-feed (rss-feed '())
  115
+                #:atom-feed-page (atom-feed-page #f)
  116
+                #:rss-feed-page (rss-feed-page #f)
117 117
                 #:doc-type (doc-type #f) ; automatically "rawed" for you
118 118
                 #:body-attrs (body-attrs '())
119 119
                 #:body-wrap (body-wrap (lambda (body) body)))
120 120
   (lambda (body) (page #:doc-type doc-type
121 121
                        #:raw-header raw-header
122 122
                        #:css css
123  
-                       #:atom-feed atom-feed
124  
-                       #:rss-feed rss-feed
  123
+                       #:atom-feed-page atom-feed-page
  124
+                       #:rss-feed-page rss-feed-page
125 125
                        #:js js
126 126
                        #:title title
127 127
                        #:body-attrs body-attrs
@@ -167,8 +167,8 @@
167 167
 (define (redirect-to-page page-name . args)
168 168
   (redirect-to (apply controller-url page-name args)))
169 169
 
170  
-(define (page-url page #:absolute (absolute #f))
171  
-  (let ((rel-url (controller-url page)))
  170
+(define (page-url page #:absolute (absolute #f) . page-args)
  171
+  (let ((rel-url (apply controller-url page page-args)))
172 172
     (if absolute
173 173
         (url->string (combine-url/relative (string->url (setting *WEB_APP_URL*))
174 174
                                            rel-url))

0 notes on commit c01f23a

Please sign in to comment.
Something went wrong with that request. Please try again.