scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

minor restructuring

This commit is contained in:
interp 2003-01-19 09:47:15 +00:00
parent dfe5c56163
commit 7c33c9ba08
1 changed files with 19 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
scheme/httpd/surflets/web-server/root/surflets/news.scm
View File

@ -15,20 +15,26 @@
(if (null? *data*) (read-data)) (if (null? *data*) (read-data))
(let loop ((count (- (length *data*) 1))) (let loop ((count (- (length *data*) 1)))
(if (< count 0) (if (< count 0)
(show-final-page)
(begin
(show-news-page count)
(loop (- count 1))))))
(define (show-final-page)
(send-html/finish (send-html/finish
`(html (body (p (h1 "THAT'S IT")) `(html (body (p (h1 "THAT'S IT"))
(p ("That's it...")) (p ("That's it..."))
(hr) (hr)
(p (URL "news.scm" "See news again.") (br) (p (URL "news.scm" "See news again.") (br)
(URL "/" "Return to main menu."))))) (URL "/" "Return to main menu."))))))
(begin
(define (show-news-page count)
(send-html/suspend (send-html/suspend
(lambda (next-url) (lambda (next-url)
`(html (body (p (h1 ,(list-ref *data* count))) `(html (body (p (h1 ,(list-ref *data* count)))
(a (@ href ,next-url) "read more...") (a (@ href ,next-url) "read more...")
(hr) (hr)
(p (URL "news.scm" "See news again from beginning.") (br) (p (URL "news.scm" "See news again from beginning.") (br)
(URL "/" "Return to main menu.")))))) (URL "/" "Return to main menu.")))))))
(loop (- count 1))))))
)) ))