(Arne Babenhauserheide)
2013-04-21: more consistent indentation. more consistent indentation.
diff --git a/hello-world-server.w b/hello-world-server.w
--- a/hello-world-server.w
+++ b/hello-world-server.w
@@ -1,19 +1,21 @@
-#!/home/arne/Quell/Programme/wisp/wisp-multiline.sh !#
+#!/home/arne/Quell/Programme/wisp/wisp-multiline.sh
+; !#
define : hello-world-handler request request-body
values
+ ; header
' : content-type . : text/plain
-
+ ; content
let : : text "Hello World!"
if : string? : getlogin
- set! text : string-append text : getlogin
- set! text : string-append text " Sucker!"
+ set! text : string-append text : getlogin
+ set! text : string-append text " Sucker!"
set! text
- string-append text " "
- number->string : tm:hour : gmtime : current-time
- . ":"
- number->string : tm:min : gmtime : current-time
+ string-append text " "
+ number->string : tm:hour : gmtime : current-time
+ . ":"
+ number->string : tm:min : gmtime : current-time
. text
@@ -24,3 +26,5 @@ display : string-append "Server starting
newline
run-server hello-world-handler 'http ' : #:port 8081
+
+