diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-31 00:42:08 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-31 00:42:08 +0200 |
| commit | 0f4f96732f5367bc37af5fa80a8afe8af51ec392 (patch) | |
| tree | 01629fe608ff002a00ff551af89e83960d8dbd45 | |
| parent | Update server endpoints for calendar rendering. (diff) | |
| download | calp-0f4f96732f5367bc37af5fa80a8afe8af51ec392.tar.gz calp-0f4f96732f5367bc37af5fa80a8afe8af51ec392.tar.xz | |
Improve server directory listing.
| -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)))))) |