#!/local/gauche/bin/gosh

(use text.html-lite)
(use text.tree)
(use srfi-13)
(use file.util)

(define (main args)
  (display
   (tree->string
    (html:html
     (html:head (html:title (string-join (cdr args) " ")))
     (html:body
      (html:h1 (string-join (cdr args) " "))
      (html:ul
       (map
        (lambda (thing)
          (html:li
           (html:a :href thing thing)))
         (directory-list "." :children? #t))))))))