From 0f4f96732f5367bc37af5fa80a8afe8af51ec392 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 31 Mar 2020 00:42:08 +0200 Subject: Improve server directory listing. --- module/entry-points/server.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'module') 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)))))) -- cgit v1.2.3