(Arne Babenhauserheide)
2017-11-17: examples: update comment-server.w to the reader examples: update comment-server.w to the reader
diff --git a/examples/comment-server.w b/examples/comment-server.w --- a/examples/comment-server.w +++ b/examples/comment-server.w @@ -1,6 +1,7 @@ -#!./wisp-multiline.sh -guile -L $(dirname $(dirname $(realpath "$0"))) -c '(import (language wisp spec))' - +#!/usr/bin/env sh +# -*- wisp -*- +guile-2.0 -L $(dirname $(dirname $(realpath "$0"))) -c '(import (language wisp spec))' +exec guile-2.0 -L $(dirname $(dirname $(realpath "$0"))) --language=wisp -s "$0" "$@" ; !# use-modules @@ -24,7 +25,7 @@ define : show-comments request comments- <input type='submit' name='submit' value='Save' /> </form>" hash-ref comments-hash-table uri-components - string-join uri-components + string-join uri-components ;; default . "</body></html>\n" define : change-comment-content current to-add @@ -56,7 +57,8 @@ define : uri-comment-showing-handler req add-comment request request-body global-comment-hash-table show-comments request global-comment-hash-table -display "Server starting. Test it at http://127.0.0.1:8081" -newline +display "Server starting. Test it at http://127.0.0.1:8083 + Hit CTRL-C twice to stop the server. +" -run-server uri-comment-showing-handler 'http ' : #:port 8081 +run-server uri-comment-showing-handler 'http ' : #:port 8083