diff --git a/tekuti/config.scm b/tekuti/config.scm index dbccf8a..d050920 100644 --- a/tekuti/config.scm +++ b/tekuti/config.scm @@ -31,7 +31,7 @@ *private-host* *private-port* *private-path-base* *bootstrap-base* *git-dir* *git* *debug* *admin-user* *admin-pass* *css-file* *navbar-links* *navbar-infix* - *title* *subtitle* *name* + *title* *subtitle* *name* *index-content* *server-impl* *server-impl-args*)) (define *public-host* "127.0.0.1") @@ -54,6 +54,9 @@ (define *title* "My blog") (define *subtitle* "Just a blog, ok") (define *name* "Joe Schmo") +(define *index-content* + '((h1 "Hello, World!") + "I am here to show you something new.")) (define *server-impl* 'http) (define *server-impl-args* diff --git a/tekuti/page.scm b/tekuti/page.scm index 75ef70f..a0bd037 100644 --- a/tekuti/page.scm +++ b/tekuti/page.scm @@ -48,6 +48,7 @@ page-admin-change page-admin-revert-change page-index + page-blog page-show-post page-new-comment page-archives @@ -185,6 +186,9 @@ #:redirect (relurl '("admin"))))))) (define (page-index request body index) + (respond *index-content*)) + +(define (page-blog request body index) (respond `((div (@ (class "row")) (div (@ (class "span9")) ,@(map (lambda (post) diff --git a/tekuti/web.scm b/tekuti/web.scm index faabcb7..57b8424 100644 --- a/tekuti/web.scm +++ b/tekuti/web.scm @@ -49,6 +49,7 @@ ((GET admin changes sha1!) page-admin-change) ((POST admin revert-change sha1!) page-admin-revert-change) ((GET) page-index) + ((GET blog) page-blog) ((GET archives year? month? day?) page-archives) ((GET archives year! month! day! post!) page-show-post) ((POST archives year! month! day! post!) page-new-comment)