Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
19 lines (15 sloc) 545 Bytes
;; -*- coding: utf-8 ; mode: kahua -*-
(define (simple-page ttl . elems)
(html/ (head/ (title/ ttl))
(body/ (@/ (bgcolor "white"))
(h1/ ttl)
(node-set elems))))
(define-entry (greeting :keyword name)
(if name
(simple-page "Welcome" "Hello, " name "! How are you?")
(simple-page "Please tell me your name."
(form/cont/ (@@/ (cont greeting))
(input/ (@/ (type "text")
(size "15")
(name "name")))))))
(initialize-main-proc greeting)
Something went wrong with that request. Please try again.