updates to (tekuti config)

* tekuti/config.scm (*private-url-base*, *public-url-base*): Change to
  "/", so that we can serve HTTP directly without having a fetch to
  e.g. "/foo.css" cause an error. A silly reason, I know.
  (*public-path-base*, *private-path-base*): New vars, containing lists
  of path components corresponding to their "url" variants above. We are
  switching to this, as future commits will show.
  (*server-impl*, *server-impl-args*): New vars, will be used by the new
  (web server) main loop.

1 files changed, 10 insertions, 3 deletions

diff --git a/tekuti/config.scm b/tekuti/config.scm
index 189b257..84a8f8e 100644
--- a/tekuti/config.scm
+++ b/tekuti/config.scm
@@ -30,15 +30,19 @@
   #:export (*host* *port* *backlog* *git-dir* *git* *public-url-base*
             *private-url-base* *debug* *admin-user* *admin-pass*
             *css-file* *navbar-links* *navbar-infix*
-            *title* *subtitle* *name*))
+            *title* *subtitle* *name*
+            *public-path-base* *private-path-base*
+            *server-impl* *server-impl-args*))
 
 (define *host* "127.0.0.1")
 (define *port* 8081)
 (define *backlog* 5)
 (define *git-dir* "~/blog.git")
 (define *git* "git")
-(define *public-url-base* "/blog/")
-(define *private-url-base* "/blog/")
+(define *public-url-base* "/")
+(define *private-url-base* "/")
+(define *public-path-base* '())
+(define *private-path-base* '())
 (define *css-file* "/base.css")
 (define *navbar-links* '())
 (define *navbar-infix* " ")
@@ -49,6 +53,9 @@
 (define *subtitle* "Just a blog, ok")
 (define *name* "Joe Schmo")
 
+(define *server-impl* 'http)
+(define *server-impl-args* '(#:host "127.0.0.1" #:port 8080))
+
 (define-parsed-entity! 'agrave 224)
 (define-parsed-entity! 'laquo 171)
 (define-parsed-entity! 'mdash 8212)