diff options
Diffstat (limited to 'module/entry-points')
| -rw-r--r-- | module/entry-points/server.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index 4f75a70c..1a257717 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -27,12 +27,15 @@ (define (directory-table dir) `(table (thead - (tr (th "Name") (th "Type") (th "Perm"))) + (tr (th "") (th "Name") (th "Perm"))) (tbody ,@(map (lambda (kv) (let* (((k stat) kv)) - `(tr (td (a (@ (href ,dir ,k)) ,k)) - (td ,(stat:type stat)) + `(tr (td ,(case (stat:type stat) + [(directory) "📁"] + [(regular) "📰"] + [else "🙃"])) + (td (a (@ (href "/" ,dir ,k)) ,k)) (td ,(number->string (stat:perms stat) 8))))) (cddr (file-system-tree dir)))))) |