結構苦労して以下なナニがでっち上がった。 (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…