Use define-app

mario-goulart · Mar 1, 2014 · 369b194 · 369b194
1 parent 34fdbbc
commit 369b194
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 14 deletions.
diff --git a/example-app.scm b/example-app.scm
@@ -1,2 +1,2 @@
 (use i-wonder)
-(i-wonder "/" "wonderings.db")
+(i-wonder '("/") "wonderings.db")
diff --git a/i-wonder.scm b/i-wonder.scm
@@ -9,18 +9,15 @@
     (print "Could not find the database file (" db-file "). Aborting.")
     (exit 1))
 
-  (add-request-handler-hook!
-   'i-wonder
-   (lambda (path handler)
-     (when (string-prefix? base-path path)
-       (parameterize ((enable-sxml #t)
-                      (app-root-path base-path)
-                      (db-credentials db-file)
-                      (page-css "/css/i-wonder.css"))
-         (switch-to-sql-de-lite-database)
-         (awful-settings handler)))))
-
-  (parameterize ((enable-sxml #t))
+  (define-app i-wonder
+    matcher: base-path
+    handler-hook: (lambda (handler)
+                    (parameterize ((enable-sxml #t)
+                                   (app-root-path (string-intersperse base-path "/"))
+                                   (db-credentials db-file)
+                                   (page-css "/css/i-wonder.css"))
+                      (switch-to-sql-de-lite-database)
+                      (awful-settings handler)))
 
     (define (awful-badge)
       `(div (@ (id "awful"))
@@ -90,7 +87,7 @@
     ;;;
     ;;; Pages
     ;;;
-    (define-page base-path
+    (define-page (main-page-path)
       (lambda ()
 
         (add-javascript