1 files changed, 64 insertions, 0 deletions

diff --git a/prototypes/c3b2/web.scm b/prototypes/c3b2/web.scm
new file mode 100755
index 0000000..aadd744
--- /dev/null
+++ b/prototypes/c3b2/web.scm
@@ -0,0 +1,64 @@
+#!/bin/sh
+# -*- scheme -*-
+exec guile -L $(pwd) -e '(@@ (web) main)' -s "$0" "$@"
+!#
+;;; Copyright © 2014       David Thompson <davet@gnu.org>
+;;; Copyright © 2015-2017  Amirouche Boubekki <amirouche@hypermove.net>
+;;
+;; This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+(define-module (web))
+
+;; stdlib
+(use-modules (ice-9 match))
+(use-modules (web request))
+(use-modules (web uri))
+
+;; third party
+(use-modules (fibers web server))
+
+;; local
+(use-modules (web decode))
+(use-modules (web helpers))
+(use-modules (web html))
+(use-modules (web mime-types))
+(use-modules (web static))
+
+
+(setlocale LC_ALL "")
+
+;;;
+
+(define (template body-class body)
+  `((doctype "html")
+    (html
+     (head
+      (meta (@ (charset "utf-8")))
+      (title "guile-web boilerplate")
+      (link (@ (rel "stylesheet") (href "/static/normalize.css")))
+      (link (@ (rel "stylesheet") (href "/static/main.css"))))
+     (body
+      (div (h1 (a (@ (href "/")) "c3b2")))
+      ,body))))
+
+
+(define (handler request body)
+  (match (cons (request-method request) (request-path-components request))
+    (('GET) (render-html (template "index" '(div "Héllo Guilers"))))
+    (('GET "static" path ...) (render-static-asset path))
+    (_ (not-found (uri->string (request-uri request))))))
+
+
+(define (main _)
+  (format #t "Server running @ http://localhost:8080\n")
+  (run-server handler))