dmesg を出力、なソレ
結構苦労して以下なナニがでっち上がった。
(define (output-dmesg/) (div/ (map/ (lambda (x) (div/ x (br/))) (process-output->string-list '(/bin/dmesg))))) (define-entry (dmesg) (kahua:xml-template->sxml page-template :body (div/ (@/ (id "body")) (h1/ "body") (output-dmesg/) (a/cont/ (@@/ (cont greeting)) "greeting"))))
手続きの名前の付けかたとか微妙かも。あと、dmesg を一行毎にしてるナニは div/ とか呼ばなくてもなんとかなるかも?