#!/home/afiw/opt/bin/csi -s

(import (chicken file)
        (chicken format)
        (chicken io)
        (chicken pathname))

(for-each print (find-files "/home"
                            #:limit 0
                            #:test (lambda (s) (not (string=? s "/home/!common")))
                            #:action (lambda (homedir acc)
                                       (let* ((path (sprintf "~a/.config/tilde/description" homedir))
                                              (username (pathname-file homedir))
                                              (desc (if (file-exists? path) (apply string-append (with-input-from-file path read-lines)) "Description file not found")))
                                         (cons (sprintf "<li><a href=\"~~~a/\">~~~a</a><p>~a</p></li>" username username desc) acc)))))