#lang web-server/insta
(define (start request)
'(html
(head (title "My Blog"))
(body (h1 "Under construction"))))
Runボタンを押してください。Webブラウザが"Under Construction"ページで開いたら「最初のwebアプリを作ったんだ!」と手を叩いて喜びましょう。複雑な事はやってませんが、とにかく作ったのです。取りあえず今はStopボタンを押してサーバをシャットダウンしましょう。
注:Emacs + Quack + mzscheme の環境の場合は、トップに次の一文を入れます。
#!/usr/bin/env mzscheme
つまり、全体的なコードは次のようになります。
#!/usr/bin/env mzscheme
#lang web-server/insta
(define (start request)
'(html
(head (title "俺のブログ"))
(body (h1 "工事中"))))
ファイルを一旦保存し、Emacsのeshell上ででも
chmod +x
として実行権限を与え、続いてeshell上で実行します。inferior-schemeプロセスではブラウザは起動しないので気をつけて下さい。
0 件のコメント:
コメントを投稿