diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-14 01:08:01 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-15 01:43:12 +0100 |
commit | 6e656649817cd674b324af47a3d83a2b3a46a501 (patch) | |
tree | 45f26c81ec352b3e7aae66d4229ffcc9dec3bf2a | |
parent | Fix anchors in non-js page. (diff) | |
download | calp-6e656649817cd674b324af47a3d83a2b3a46a501.tar.gz calp-6e656649817cd674b324af47a3d83a2b3a46a501.tar.xz |
Directory table extra filetypes.
Diffstat (limited to '')
-rw-r--r-- | module/calp/server/routes.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/module/calp/server/routes.scm b/module/calp/server/routes.scm index 843eb01c..06bbe193 100644 --- a/module/calp/server/routes.scm +++ b/module/calp/server/routes.scm @@ -57,6 +57,11 @@ `(tr (td ,(case (stat:type stat) [(directory) "📁"] [(regular) "📰"] + [(symlink) "🔗"] + [(block-special) "🖴"] + [(char-special) "🔌"] + ;; [(fifo)] + ;; [(socket)] [else "🙃"])) (td (a (@ (href "/" ,dir "/" ,k)) ,k)) (td ,(number->string (stat:perms stat) 8))))) |