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/ とか呼ばなくてもなんとかなるかも?